Replace System Tray

← →
Khabibulin (2004-10-29 00:30) [0]

Можно ли заменить системные часы в System Tray"е допустим на свой тект...? Если да, то как?

← →
DrPass © (2004-10-29 00:34) [1]

Принципиально - можно. С помощью WinSight32 выяснить, какой контрол являет собой эти часы, подобраться к нему с помощью FindWindow/FindWindowEx, и заменить текст с помощью SetWindowText. Но мороки будет...

← →
Khabibulin (2004-10-29 00:37) [2]

а подробнее можно..., или какой нибудь примерчик (ссылку)...

← →
GanibalLector © (2004-10-29 00:37) [3]

> С помощью WinSight32 выяснить, какой контрол являет собой эти часы, подобраться к нему с помощью FindWindow/FindWindowEx

Shell_TrayWnd->TrayNotifyWnd->TrayClockWClass

> заменить текст с помощью SetWindowText
Не измениться...пробовал когда-то

← →
GanibalLector © (2004-10-29 00:45) [4]

var qq,qq2:HWND;
st:array[0..255] of char;
begin
qq:=findwindowex(findwindow("Shell_TrayWnd",nil),0,"TrayNotifyWnd",nil);
qq2:=findwindowex(qq,0,"TrayClockWClass",nil);
GetWindowText(qq2,st ,255);
Caption:=st;
SetWindowText(qq2,"kiss");
end;

Самое интересное в том,что если после SetWindowText вызвать GetWindowText ,то он вернет kiss.Хотя визуально останется время...Во как!

← →
Khabibulin (2004-10-29 00:59) [5]

и за это СПАСИБО ...!!!

← →
dmitry (2004-10-29 08:05) [6]

Проще надо быть :) Часы сделай необображаемыми, а вместо них свой текст как обычно в трей в виде иконки

FAQ?

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988620752&n=15

Можно рядом с часами написать свой текст - есть парочка ключей в реестре, один для PM другой - для АМ
Или так
http://www.delphiworld.narod.ru/base/text_to_tray.html

Replace System Tray Найти похожие ветки