Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Надпись на часах в трее

Delphi , Рабочий стол , TaskBar

Надпись на часах в трее

Code:

var
 
hTrayClock  : HWND;
DC:HDC;
r:TRect;
begin
hTrayClock := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil);
GetWindowRect(hTrayClock,r);
DC := GetDC(0);
//  SetBkMode(DC, TRANSPARENT);   // можно сделать прозрачный фон
SetTextColor(DC, RGB($0FF,0,0));
SetBkColor(DC,RGB($0FF,$0FF,0));
TextOut(DC, r.Left+((r.Right-r.Left) div 4), r.Top+((r.Bottom-r.Top) div 4), '>:-(', 4);
ReleaseDC(hTrayClock, DC);
end.

При следующем обновлении часов надпись исчезнет. Так что можно делать это по таймеру.

Взято из http://forum.sources.ru

Автор: Krid

Статья Надпись на часах в трее раздела Рабочий стол TaskBar может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TaskBar ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
26.09.2017 15:36:08/0.023380994796753/0