Auf Desktop zeichnen

[Bummi]

Delphi-Quellcode:

var
  DC : HDC;
  Canvas : TCanvas;
begin

      DC := GetWindowDC(GetDesktopWindow());
      try
        Canvas := TCanvas.Create();
        try
          Canvas.Handle := DC;
          Canvas.Pen.Color := clLime;
          Canvas.Rectangle(1,1,100,100);
        finally
          Canvas.Free;
        end;
      finally
        ReleaseDC(0, DC);
      end;

end