sorry was ich gepostet hab is nich all mein code:
ich hab das so:
Delphi-Quellcode:
DesktopBitmap:TBitmap;
implementation
{$R *.dfm}
procedure scrshoot();
begin
BitBlt(DesktopBitmap.Canvas.Handle,0,0,Screen.Width,Screen.Height,GetDC(GetDesktopWindow),0,0,SrcCopy);
buf.Assign(DesktopBitmap);
buf.CompressionQuality := 50;
buf.ProgressiveEncoding := true;
buf.Compress;
end;
kommt daher das ich in meinem programm keine jpeg funktion drin hab, die in nem anderen drin steckt. also jpegbild.assign will natürlich ein bitmap also würde ich
sagen nimm mal picture.bitmap da nur picture aus dem clipboard laden kann.