Wie Desktop-Icons verstecken und wieder freigeben?

[Daniel B]

Sperren:

Delphi-Quellcode:

procedure TForm1.Button9Click(Sender: TObject);
begin
  ShowWindow(FindWindowEx(FindWindow('Progman', nil),
    0, 'ShellDll_DefView', nil), SW_HIDE);
end;

Freigeben:

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject);
begin
  ShowWindow(FindWindowEx(FindWindow('Progman', nil),
    0, 'ShellDll_DefView', nil), SW_SHOW);
end;

Grüsse, Daniel