Показать/скрыть иконки на рабочем столе

Тема в разделе "Delphi", создана пользователем WinHack, 2 дек 2016.

  1. WinHack
    Для того, чтобы скрыть или показать все иконки на рабочем столе 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;