*.jpeg Datei erstellen

[Nils1984]

Delphi-Quellcode:

Procedure TScreeny.Bild_Speichern;
Var Zeit :TDateTime;
    name :String;
    img: TPicture;
    Jpg: TJPEGImage;
Begin
  Zeit := now;
  Clip := Clipboard;
  img := TPicture.create;
  Jpg := TJPEGImage.create;
  name := ('Bild von '+Timetostr(Zeit)+'.jpeg');
  img.LoadFromClipboardFormat(CF_Bitmap,clip.GetAsHandle(CF_Bitmap),0);
  jpg.Assign(img);
  jpg.CompressionQuality := 50;
  jpg.ProgressiveEncoding := true;
  jpg.Compress;
  jpg.SaveToFile(name);
  clip.clear;
  img.Free;
End;

Function TScreeny.check_ClipBoard :Boolean;
Begin
  if Clipboard.HasFormat(CF_TEXT)
    Then Result := False
    else if clipboard.HasFormat(CF_Bitmap)
           Then Result := True;
end;

soweit bin ich jez, aber da kommt immer ne Fehlermeldung wenn ich die Screenshottaste drück