| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
опять о систрее
syte_ser78 © (2005-02-07 10:51:00)Интересует следующее - вывод информации в область (вместо) часов. Проще говоря написать свои часы + некоторая дополнительная информация и показать все это в области часов. Это уже не систрей? Где об этом можно почитать?
Cosinus (2005-02-08 09:40:00) [1]
> 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(смотри последний код, на название статьи внимания не обращай - по-моему это как раз, то, что нужно)
syte_ser78 (2005-02-08 08:47:00) [2]Wnd := FindWindow('Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0),'TrayNotifyWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0),'TrayClockWClass', nil);
setwindowtext(Wnd,'234');
И в итоге ничего. Код стоит в таймере с интервалом 10
Jay1982 (2005-02-07 14:43:00) [3]Теперь по последнему wnd попробуй писать что-то (SetWindowText), правда не надо тогда прятать часы, и в конечном щёте пулучится просто бой с виндовыми часами, попкрайней мере они будут иногда моргать.
syte_ser78 (2005-02-07 14:34:00) [4]Cosinus © (07.02.05 11:32) [1]
К стати, код рабочий, спасибо!
syte_ser78 (2005-02-07 14:30:00) [5]В том то и вопрос. КАК впихивать? Это уже не систрей или все еще он?
Cosinus (2005-02-07 11:32:00) [6]Попробуй просто спрятать виндовые часы, а на их место воткнуть свои. Прячатся они по моему так... Но лучше проверить.
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;
| |
