// Die Desktopicons werden ein- und ausgeblendet.

// Getestet mit D4 unter WinME

procedure DeskIconsShow(wie:boolean);
begin
showwindow(findwindow('Progman','Program Manager'),sw_show * ord(wie));
end;

// Icons ausblenden
procedure TForm1.Button4Click(Sender: TObject);
begin
DeskIconsShow(false);
end;

// Icons einblenden
procedure TForm1.Button5Click(Sender: TObject);
begin
DeskIconsShow(true);
end;