auf dem Desktop zeichnen

[jaenicke]

Probiere es doch einmal wie im Lazarus Wiki mit LoadFromDevice. ;-)

[Teekeks]

Bin ich auch gerade am ausprobieren:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  MyBitmap: TBitmap;
  ScreenDC: HDC;
begin
  MyBitmap := TBitmap.Create;
  ScreenDC := GetDC(0);
  MyBitmap.LoadFromDevice(ScreenDC);
  ReleaseDC(0,ScreenDC); 
end;

Ich kriege aber folgende Fehlermeldung:

Zitat:

Failed to get raw image from device