Как спрятать все иконки на рабочем столе?

← →
KPY © (2003-02-28 16:24) [0]

САБЖ собственно.

← →
R4D][ (2003-02-28 18:23) [1]

Я не уверен, но посмотри в ShellApi.pas работу с иконками рабочего стола и просто изменяй их координаты на те, которые не входят в видимость. В любом случае нужно будет использовать COM.

← →
AGGRESSOR (2003-02-28 18:43) [2]

И вовсе не нужно такого гемороя. Это делается одной строкой:
ShowWindow (GetDesktopWindow, SW_HIDE);

← →
Marser © (2003-02-28 19:36) [3]

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

NoDesktop[REG_DWORD]= 1

Через TRegistry.Действует после ребута.

← →
DVM © (2003-02-28 19:45) [4]

Человек не просил прятать все окно Progman -а, а просил только иконки. Вдруг он контекстное меню хотел оставить?

← →
Marser © (2003-02-28 23:56) [5]

> DVM © (28.02.03 19:45)

> Человек не просил прятать все окно Progman -а, а просил
> только иконки. Вдруг он контекстное меню хотел оставить?

Ну тогда можно все ярлыки вынести за предел экрана :-)
При помощи реестра эти вещи настраиваються и более тонко

← →
Songoku (2003-03-01 14:54) [6]

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;

> h := GetWindow(h, GW_CHILD);
h := GetWindow(h, GW_CHILD);
> if YesNo = True then

Надо вставлять такую строку, т.к. у меня в XP потом меню десктопа не вызывается.

сделал все как у Songoku работает под 2000 и под 98

Как спрятать все иконки на рабочем столе? Найти похожие ветки