|
Вопрос # 818/ вопрос открыт / |
|
Доброго времени суток всем. Как можно заменить стандартные часы Windows возле трея смоими?
 |
Вопрос задал: Дима Гусаков (статус: 2-ой класс)
Вопрос отправлен: 1 августа 2007, 19:59
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Feniks
Здравствуйте, Дима Гусаков!
Как заменить часики я не знаю.
Но может этот пример скрытия System Tray (небольшая панелька с часиками), а так же и показывание наталкнет Вас на путь истенный, в котором и надо копать...
Приложение: Переключить в обычный режим- procedure HideSysTray(HideST: Boolean);
- Var
- Tray : hWnd;
- Child: hWnd;
- C : Array[0..127] of Char;
- S : String;
- Begin
- Tray := FindWindow(\'Shell_TrayWnd\', NIL);
- Child := GetWindow(Tray, GW_CHILD);
- While Child <> 0 do
- Begin
- If GetClassName(Child, C, SizeOf(C)) > 0 Then
- Begin
- S := StrPAS(C);
- If UpperCase(S) = \'TRAYNOTIFYWND\' Then
- begin
- If HideSt = False Then
- ShowWindow(Child, 1)
- else
- ShowWindow(Child, 0);
- end;
- End;
- Child := GetWindow(Child, GW_HWNDNEXT);
- End;
- End;
 |
Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 2 августа 2007, 12:08
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
