Screenshot in Datei

Computer: Software & Programmierung Delphi & Pascal
#1

Hallo,

ich suche einen Code-Schnipsel für:

  • Screenshot vom Windows-Screen machen (am besten vom aktiven Fenster)
  • Das Ergebnis auf Platte schreiben
    habt Ihr da was zur Hand ?

viele Grüße Ralf

#2

kurz und schwerzlos

var r:trect;
begin
 with TBitmap.Create do begin
 r:=paintbox1.clientrect;
 canvas.copyrect(r,Form1.canvas,r);
 SaveDialog1.filename:='Schnellschuss.bmp';
 if SaveDialog1.execute then savetofile(SaveDialog1.filename);
 free;
 end;
end;

So oder so ähnlich sollte es klappen.

Gruß, Steffen

#3

ähhh, schmerzlos
o.t.