Скачать: CL | DM;

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

← →
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), правда не надо тогда прятать часы, и в конечном щёте пулучится просто бой с виндовыми часами, попкрайней мере они будут иногда моргать.

---

← →
syte_ser78 ©   (2005-02-08 08:47) [5]

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

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

---

← →
Cosinus ©   (2005-02-08 09:40) [6]

> 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 (смотри последний код, на название статьи внимания не обращай - по-моему это как раз, то, что нужно)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c