Screenshot als JPG speichern?

[negaH]

Delphi-Quellcode:

uses JPeg, Graphics, Windows, Classes ...;

var
  B: TBitmap;
  I: TJpegImage;
  DC: hDC;
begin
  B := TBitmap.Create;
  try
    DC := GetDC(hWnd_Desktop);
    try
      B.Width := Screen.Width;
      B.Height := Screen.Height;
// Screenshot als Bitmap machen 
      BitBlt(B.Canvas.Handle, 0, 0, B.Width, B.Height, DC, 0, 0, SRCCOPY);
    finally
      ReleaseDC(DC, hWnd_Desktop);
    end;
// Bitmap nach JPEG und speichern
    I := TJpegImage.Create;
    try
      I.Assign(B);
      I.SaveToFile('Filename hier.jpeg');
    finally
      I.Free;
    end;
  finally
    B.Free;
  end;
end;

Gruß Hagen