Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать не видимыми часы в таск баре??? [D6, WinXP]


Masya2001 ©   (2002-12-22 23:09:00) 

Всем здрасти!
Как чтоб часы исчезли?
И как сделать чтоб они появились??
Если можно с примером..


drin   (2002-12-23 04:01:00) [1]


var
hTrayClockWClass: THandle;
begin
hTrayClockWClass:=FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "TrayNotifyWnd", nil), 0, "TrayClockWClass", nil);

ShowWindow(hTrayClockWClass, SW_HIDE); //Прячем
ShowWindow(hTrayClockWClass, SW_SHOW); //Показываем
end.


Morfein   (2002-12-22 23:36:00) [2]

Хех...


...
handle:=FindWindow("TrayClockWClass", nil);
ShowWindow(handle, SW_HIDE);
...


Наверх

Титульная страница Поиск, карта сайта Написать письмо