Как скрыть / показать иконки на Рабочем Столе Windows

WinHack

Администратор
23 Фев 2015
2,664
1,913
bsfo.ru
Чтобы скрыть или отобразить иконки, которые находятся на Рабочем Столе Windows, можно применить данную процедуру:

Код:
procedure ShowDesktop(const YesNo : boolean) ;
 var h : THandle;
 begin
   h := FindWindow('ProgMan', nil) ;
   h := GetWindow(h, GW_CHILD) ;
   if YesNo = True then
     ShowWindow(h, SW_SHOW)
   else
     ShowWindow(h, SW_HIDE) ;
 end;
Пример использования:

Код:
procedure TForm1.btnShowClick(Sender: TObject);
begin
ShowDesktop(true);
end;

procedure TForm1.btnNoShowClick(Sender: TObject);
begin
  ShowDesktop(false);
end;