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);