رسم اشکال در دسکتاپ ویندوز

سلام

می خواستم ببینم چطور میشه با استفاده از Canvas روی دسکتاپ اشکالی رو رسم کنم.

کد زیر رو نوشتم ولی جواب نمیده :

 Desktop:HDC;

  C:TCanvas;

   h:HWND;

 C:=Tcanvas.Create;

 h:=findwindow('progman',nil);

 Desktop:=getdc(h);

 C.Handle:=DeskTop;

 C.Pen.Width:=3;

 C.Pen.Color:=CLRed;

 C.MoveTo(30,30);

 C.LineTo(100,100);

 ReleaseDC(h,desktop);

ممنون