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

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

Code: 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.Top+((r.Bottom-r.Top) div 4), '>:-(', 4); ReleaseDC(hTrayClock, DC); End.

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

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

Автор: Krid.

©Drkb::01765.