Wo hat romber geschrieben, dass das speichern der flaschenhals ist?
Source sieht ungefähr so aus:
Delphi-Quellcode:
var
HDdc: HDC;
Bild: TBitmap;
const
CopyWidth = 800;
CopyHeight = 565;
// Vorbereitungen
HDdc := GetDC(0);
Bild := TBitmap.Create;
Bild.PixelFormat := pf24bit;
Bild.SetSize(CopyWidth, CopyHeight);
// Vorbereitungen abgeschlosen
// Kopieren
BitBlt(Bild.Canvas.Handle, 0, 0, CopyWidth, CopyHeight, HDdc, 0, 0, SRCCOPY);
//Nachbereitungen
ReleaseDC(0, HDdc);
Bild.Free;