Screenshot nach Zeit

[Flo]

So siehts aus

Delphi-Quellcode:

var MyBitmap : TBitmap;
i: integer;
begin
inc(i)   ;
     MyBitmap := TBitmap.Create;
     ScreenShot(mybitmap);

    mybitmap.SaveToFile('c:\screenshot'+inttostr(i)+'.bmp');
     mybitmap.free;