опять о систрее

← →
syte_ser78 © (2005-02-07 10:51) [0]

Интересует следующее - вывод информации в область (вместо) часов. Проще говоря написать свои часы + некоторая дополнительная информация и показать все это в области часов. Это уже не систрей? Где об этом можно почитать?

← →
Cosinus © (2005-02-07 11:32) [1]

Попробуй просто спрятать виндовые часы, а на их место воткнуть свои. Прячатся они по моему так... Но лучше проверить.
begin Wnd := FindWindow("Shell_TrayWnd", nil); Wnd := FindWindowEx(Wnd, HWND(0),"TrayNotifyWnd", nil); Wnd := FindWindowEx(Wnd, HWND(0),"TrayClockWClass", nil); ShowWindow(Wnd, SW_HIde); end;

← →
syte_ser78 © (2005-02-07 14:30) [2]

В том то и вопрос. КАК впихивать? Это уже не систрей или все еще он?

← →
syte_ser78 © (2005-02-07 14:34) [3]

Cosinus © (07.02.05 11:32) [1]
К стати, код рабочий, спасибо!

← →
Jay1982 © (2005-02-07 14:43) [4]

Теперь по последнему wnd попробуй писать что-то (SetWindowText), правда не надо тогда прятать часы, и в конечном щёте пулучится просто бой с виндовыми часами, попкрайней мере они будут иногда моргать.

Wnd := FindWindow("Shell_TrayWnd", nil);
Wnd := FindWindowEx(Wnd, HWND(0),"TrayNotifyWnd", nil);
Wnd := FindWindowEx(Wnd, HWND(0),"TrayClockWClass", nil);
setwindowtext(Wnd,"234");

И в итоге ничего. Код стоит в таймере с интервалом 10

> syte_ser78 ©
Ну вот посмотри, что я нарыл, должно помочь.
http://www.rsdn.ru/Forum/Message/4485.htm
http://www.dore.ru/perl/nntp.pl?f=1&gid=25&mid=30901
http://www.realcoding.net/part.php?id=605 (смотри последний код, на название статьи внимания не обращай - по-моему это как раз, то, что нужно)

опять о систрее Найти похожие ветки