Screenshot

[QuickAndDirty]

Also du brauchst

Delphi-Quellcode:

Procedure Screenshot;
var hdc :Thandle
    bm:timage;
Begin
  bm := Timage.create(nil);
  hdc := CreateDC('DIPSLAY',nil,nil,nil);
  bm.Width := Screen.Width;
  bm.height := Screen.height;
  Bitblt(bm.Picture.canvas.handle,0,0,screen.width,screen.height,hdc,0,0,SRCCOPY);
  bm.picture.savetofile('bla.bmp');
  bm.free;
  DeleteDC(hdc);
end;

das könnte gehen, könnten aber auch Fehler drinn sein, habs nicht getestet