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

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.

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

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

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

17.04.2024 00:36:19/0.036514043807983/0