Wenn ich es so mache, gibt es wieder einen Zugriffsverletzungs-Error (sofern ich ein Bild im Clipboard habe, also klappt das mit dem rausspringen schonmal)
Delphi-Quellcode:
if not Clipboard.HasFormat(CF_BITMAP) then
exit
else
try
Bitmap := TBitmap.Create;
JPEGImage := TJPEGImage.Create;
Bitmap.Assign(ClipBoard);
//JPEGImage.Assign(Bitmap);
//JPEGImage.SaveToFile(FormatDateTime('yyyymmddhhnnss',Now)+'.jpg');
Bitmap.SaveToFile(FormatDateTime('yyyymmddhhnnss',Now)+'.bmp');
ClipBoard.Clear;
finally
Bitmap.Free;
JPEGImage.Free;
end;
Delphi zeigt mir an, dass es irgendwas mit der Zeile ClipBoard.Clear zu tun hat
Außerdem werden zwar Bitmaps erstellt, aber sie sind alle 0 Byte groß und beinhalten keine Screenshots. (Also wenn ich ein Bild im Clipboard habe)