[delphi]Ukrywanie pulpitu

Wie ktoś jak ukryć cały pulpit? tzn. foldery,pliki itp.

[cya] Jest taki komponent DesktopControl(s?) może blokować/ukrywać Pulpit (Banalny w obsłudze) :p

Bardzo prosto:
[code]
Procedure Pulpit(Widoczny:Boolean);
Var Handle:THandle;
Begin
Handle:=FindWindowEx(FindWindow('Progman',Nil),0,'SHELLDLL_DefView',Nil);
If Widoczny Then ShowWindow(Handle,SW_Show)
Else ShowWindow(Handle,SW_Hide);
End;
[/code]