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

Материал из DRKB

Как скрыть / показать иконки на рабочем столе?[править | править код]

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;


ID: 01826



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


Source: Взято из http://forum.sources.ru
ID: 01825