Screenshots erstellen

[Delphi.Narium]

Mist, warum hat mich FastMM noch nie darauf hingewiesen?

Da muss dann noch mehr im Argen liegen

So besser?

Delphi-Quellcode:

{ Bildschirmfoto eines Formulars machen und als JPeg speichern.                }
procedure HardCopy(sJpegFile : String; fm : TForm);
Var
  FJpeg : Jpeg.TJpegImage;
  FBmp  : Graphics.TBitmap;
begin
  if SysUtils.FileExists(sJpegFile) then SysUtils.DeleteFile(sJpegFile);
  if (fm.WindowState = wsMinimized) then fm.WindowState := wsNormal;
  fm.Show;
  fm.Refresh;
  FJpeg := TJpegImage.Create;
  FBmp  := fm.GetFormImage;
  try
    try
      FJpeg.Assign(FBmp);
      fJPeg.SaveToFile(sJpegFile);
    except
      on e : Exception do begin
        MessageDlg(e.Message,mtError,[mbOk],0);
      end;
    end;
  finally
    FBmp.Free;
    FJpeg.Free;
  end;
end;

Wenn nicht, sollte ich mir langsam aber sicher ein anderes Hobby suchen