Как рисовать прямо на экране?

← →
F1 (2004-10-12 19:48) [0]

Здравствуйте.
Меня интересует как можно сделать, чтоб написать надпись на:
-рабочем столе;
-поверх всех окон;
-в окне другой программы;

Если это возможно то как это осуществить?

← →
DVM © (2004-10-12 20:03) [1]

> Если это возможно то как это осуществить?

Взять DC нужного окна и используя его рисовать.
GetWindowDC(hWnd)
GetDC(0) - рисовать поверх всего.

← →
SammIk © (2004-10-12 20:07) [2]

Взять маркер и рисовать где вздумается

← →
Пастор (2004-10-12 20:42) [3]

-рабочем столе;

procedure TFormMain.FormPaint(Sender: TObject);
begin
PaintDeskTop(Canvas.handle);
end;

← →
8ung (2004-10-12 20:44) [4]

> SammIk © (12.10.04 20:07) [2]

Опередил..:(

> Пастор (12.10.04 20:42) [3]
> -рабочем столе;
>
> procedure TFormMain.FormPaint(Sender: TObject);
> begin
> PaintDeskTop(Canvas.handle);
> end;

Это не на рабочем столе, это, скорее наоборот, нарисовать в окне сам рабочий стол (фон его)

← →
Пастор (2004-10-12 20:56) [6]

DVM, вы правы, но создается иллюзия, что на рабочем столе ;)

Пример реализации - www.byble.by.ru

Как рисовать прямо на экране? Найти похожие ветки