Un trick interesant, desi nu neaparat util.
Daca doriti sa lasati vizibil desktop-ul asa cum e (inclusiv iconitele), dar sa nu poata fi folosite, doar folositi codul de mai jos:
procedure DisableDesktop;
begin
EnableWindow(FindWindowEx (FindWindow ('Progman', nil), 0, 'ShellDll_DefView', nil), False);
end;Cand credeti ca ar fi cazul sa puteti accesa din nou desktop-ul :
procedure EnableDesktop;
begin
EnableWindow(FindWindowEx (FindWindow ('Progman', nil), 0, 'ShellDll_DefView', nil), True);
end;