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

Тема в разделе "Delphi", создана пользователем WinHack, 27 ноя 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;
    Пример использования:

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