Как скрыть/показать иконки на рабочем столе
Для этого можно воспользоваться следующим кодом:
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; {Использование:} {Скрыть иконки на рабочем столе} ShowDesktop(False); {Показать иконки на рабочем столе} ShowDesktop(true);