Скачать: CL | DM;

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

← →
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;

---

← →
GROL ©   (2003-03-02 12:54) [7]

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

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

---

← →
KPY ©   (2003-03-03 07:48) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c