Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

// скрыть иконки

ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

// показать иконки

ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);

end;

 

Code:

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

 

 

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


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