Bitmap auf Bildschirm zeichnen

[Dani]

GetDC liefert dir die zu einem Fenster gehörige Zeichenfläche (in Form eines Handles).

Delphi-Quellcode:

//Bitmap auf Desktop ausgeben
procedure DrawBMPOnDesktop(BMP: TBitmap; XOffset, YOffset: Integer);
var hdcDesktop: HDC;
begin
  hdcDesktop := GetDC(GetDesktopWindow);
  If hdcDesktop <> 0 then
   (**Schnelles kopieren des Bitmaps auf die Desktop-Zeichenfläche**)
   BitBlt(hdcDesktop, XOffset, YOffset BMP.Width, BMP.Height,
          BMP.Canvas.Handle, 0, 0, SRCCOPY);
end;

ist aber ungetestet, alle Angaben ohn....

//Edit: Delphi-Tags