Bitmap auf Bildschirm zeichnen

[jfheins]

Funktioniert super, hab' Sie noch ein wenig abgewandelt ...

Delphi-Quellcode:

procedure DrawBMPFullScreen(BMP: TBitmap32);
var hdcDesktop: HDC;
begin
  hdcDesktop := GetDC(0);
  If hdcDesktop <> 0 then
    StretchBlt(hdcDesktop,
               0,
               0,
               GetSystemMetrics(SM_CXSCREEN),   // Screenbreite
               GetSystemMetrics(SM_CYSCREEN),   // Screenhöhe
               BMP.Canvas.Handle,
               0,
               0,
               BMP.Width,
               BMP.Height,
               SRCCOPY);
end;