Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

Скрытие значков рабочего стола   Найти похожие ветки 

← →
VJar   (2002-05-12 12:50) [0]

Как скрыть все значки на рабочом столе, включая
Мой компьютер, Корзину, Мои документы и т.д ???

---

← →
VJar   (2002-05-12 13:08) [1]

Я уже разобрался

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)

---

← →
Malder ©   (2002-05-12 14:42) [2]

добавляй эту функцию в UBPFD http://delphibase.endimus.com/

---

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

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх

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