Надпись на часах в трее
Falk0ner, вс, 06/07/2008 - 15:34.
Надпись на часах в трее
var
{©Drkb v.3(2007): www.drkb.ru}
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.+((r.Bottom-r.) div 4), '>:-(', 4);
ReleaseDC(hTrayClock, DC);
end.
При следующем обновлении часов надпись исчезнет. Так что можно делать это по таймеру.
Взято из http://forum.sources.ru
Автор: Krid
{©Drkb v.3(2007): www.drkb.ru}
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.+((r.Bottom-r.) div 4), '>:-(', 4);
ReleaseDC(hTrayClock, DC);
end.
Отправить комментарий