[san-46]

Отрисовка "снимка" формы в другом месте десктопа:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  DeskTopDC: HDc;
  DeskTopCanvas: TCanvas;
  DeskTopRect: TRect;
begin
  DeskTopDC := GetWindowDC(GetDeskTopWindow);
  DeskTopCanvas := TCanvas.Create;
  DeskTopCanvas.Handle := DeskTopDC;
  DeskTopRect := Rect(20, 40, Form1.Width+20, Form1.Height+40);

  DeskTopCanvas.CopyRect(DeskTopRect, DeskTopCanvas, Form1.BoundsRect);
  ReleaseDC(GetDeskTopWindow, DeskTopDC);
  DeskTopCanvas.Free;
end;

Рисовать на таскбаре не получится.