Mh erstmal danke für die super schnelle antwort aber irgendwie erhöht der das immer noch net. Also er soll ja nen screenshot machen diesen speichern dann den nächsten screenshot machen und wieder unter eineim anderen namen speichern also:
Screenshot hab ich ja schon
Delphi-Quellcode:
procedure MakeScreenShot(const ATarget: TBitmap);
var
DesktopDC: HDC;
begin
DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
try
ATarget.PixelFormat := pfDevice;
ATarget.Width := Screen.Width;
ATarget.Height := Screen.Height;
BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
finally
DeleteDC(DesktopDC);
end;
end;
und dann
i:= 0;
inc(i);
image1.Picture.SaveToFile(IntToStr(i)+'.bmp');
Also wäre net wenn ihr mir da nochmal helfen könnten das das oben beschriebene funkt thx thx
[edit=SirThornberry]Delphi-Tags gesetzt. Nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]