[Admin]

Сообщение от Kaka

Не-а! Мне не по форме нужно, а по рабочему столу перемещать! Там приём с закраской не подойдёт!

Так в чем проблема?
Рисование на рабочем столе:

Код:

var
 dtc: TCanvas;
begin
 dtc:=TCanvas.Create;
 dtc.Handle:=GetDC(Hwnd_Desktop);
 dtc.Pen.Mode:=pmNot;
 dtc.Pen.Width:=50;
 dtc.Pen.Color:=clGreen;
 dtc.LineTo(1000,1000);
 ReleaseDC(dtc.Handle,Hwnd_Desktop);
 dtc.Free;
end;

Дальше думаю сами разберетесь...