Bitmap auf Bildschirm zeichnen

[jfheins]

Du meinst so:

Delphi-Quellcode:

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

  ReleaseDC (0, hdcDesktop);
end;

Geht aber auch nicht, das flimmern bleibt ...