| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Скрытие значков рабочего стола [D5, Win95/98]
VJar © (2002-05-12 12:50:00)Как скрыть все значки на рабочом столе, включая
Мой компьютер, Корзину, Мои документы и т.д ???
Malder (2002-05-12 14:42:00) [1]добавляй эту функцию в UBPFD http://delphibase.endimus.com/
VJar (2002-05-12 13:08:00) [2]Я уже разобрался
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)
| |
