Registriert seit: 27. Nov 2017
2.490 Beiträge
Delphi 7 Professional
|
AW: Screenshots erstellen
30. Nov 2023, 02:39
Die Methode GetFormImage liefert doch schon ein Bitmap, damit müsste eigentlich auch sowas gehen: form1.GetFormImage.SaveToFile('c:\temp\' + Form1.Name + '.bmp');
for var i : Integer := 0 to Screen.FormCount - 1 do Screen.Forms[i].GetFormImage.SaveToFile(Format('c:\temp\%s.bmp',[Screen.Forms[i].Name]));
|