TEXT

← →
PEC © (2002-03-20 09:44) [0]

как вывести текст на рабочий стол ?

зарание спасибо !

← →
Song © (2002-03-20 10:03) [1]

Получить handle рабочего стола и рисовать на нём.
Однако это проблему не решает. Ваша рисунок будет стираться другими окнами, надо ловить передвидение окон и динамически обновлять, а оно (обновление) не всегда будет успешным. Из-за движения окон будут оставаться обрывки рисунка...
Второй способ - рисовать на обоях, но тормозить будет...

← →
Фэ © (2002-03-20 10:13) [2]

DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := GetDC(HWnd_DeskTop);
DeskTopCanvas.TextOut(100,100, "Draw text");
DeskTopCanvas.Free;

← →
drpass © (2002-03-20 10:55) [3]

Я думаю, что вполне можно повесить свою оконную функцию (с помощью SetWindowLong) и на рабочий стол, и по wm_paint обновлять рисунок, так что отлавливание передвижений окон не потребуется.

← →
Nikolay M. (2002-03-20 14:23) [4]

> DeskTopCanvas := TCanvas.Create;
> DeskTopCanvas.Handle := GetDC(HWnd_DeskTop);
> DeskTopCanvas.TextOut(100,100, "Draw text");
ReleaseDC (DeskTopCanvas.Handle); //Не забыть освободить контент!
> DeskTopCanvas.Free;

Только зачем создавать объект, если можно вывести текст через API-шный аналог TextOut?

← →
Фэ © (2002-03-20 17:08) [5]

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

← →
mukha (2002-03-20 21:04) [6]

Я, думаю, это поможет.
procedure TForm1.Button1Click(Sender:TObject);
var dtC: TCanvas;
begin
dtC:=TCanvas.Create; // связь с рабочим столом
dtC.Handle:=GetDC(Hwnd_Desktop);
dtC.TextOut(100, 200, "Текст на рабочем столе");
ReleaseDC(dtC.Handle,Hwnd_Desktop); // Уничт. связи со столом
dtC.Free;
end;

dtC:=TCanvas.Create; // связь с рабочим столом
Мне понравилась эта строчка! Слышали? Когда мы канвас создаём, мы оказывается с рабочим столом связываемся (по сотовому наверна)

2mukha:
Ничего личного... :))

TEXT Найти похожие ветки