Как скрыть / показать иконки на рабочем столе?
Материал из 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