Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Чтобы скрыть или отобразить иконки, которые находятся на Рабочем Столе 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;

 

Добавить комментарий


Защитный код
Обновить