Как из своей программы написать сообщение на рабочем столе

← →
Aleks © (2005-02-25 17:56) [0]

Доброго времени суток
Как из своей программы написать текст или нарисовать на рабочем столе виндов.

← →
kami © (2005-02-25 19:12) [1]

TextOut(GetWindowDC(GetDesktopWindow),100,100,"Thom",4);

Поверх всех окон можно нарисовать надпись использую следующую процедуру:

procedure WriteDC(s: string); var c: TCanvas; begin c := TCanvas.Create; c.Brush.Color := clBlue; c.Font.color := clYellow; c.Font.name := "Fixedsys"; c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER)); c.TextOut(screen.Width - c.TextWidth(s) - 2, screen.Height - 43, s); c.free; end;

Взято с Delphi Knowledge Base

← →
dimaxx © (2005-02-25 21:27) [2]

Вместо GetWindowDC(GetDesktopWindow) можно писать просто GetDC(0).

← →
Aleks © (2005-02-25 21:44) [3]

Спасибо всё ок.

← →
partizan (2005-02-25 23:45) [4]

GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
try
//...
finally
ReleaseDC(0,c.Handle);
end;

Как из своей программы написать сообщение на рабочем столе Найти похожие ветки