uses Jpeg;
procedure CaptureScreen(FileName: TFileName; const Kvalita:Byte; const Sirka, Vyska:Cardinal);
var DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
Bitmap:TBitmap;
Jpg: TJpegImage;
ARect:TRect;
begin;
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0, Screen.Width,Screen.Height);
Bitmap:=TBitmap.Create;
Bitmap.Width:=Screen.Width;
Bitmap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(DeskTopRect, DeskTopCanvas, DeskTopRect);
ARect:= Rect(0, 0, Sirka, Vyska);
Bitmap.Canvas.StretchDraw(ARect, Bitmap);
Bitmap.Width:= Sirka;
Bitmap.Height:= Vyska;
Jpg:= TJpegImage.Create;
Jpg.Assign(Bitmap);
Jpg.CompressionQuality:= Kvalita;
Jpg.Compress;
Jpg.SaveToFile(FileName);
FreeAndNil(Jpg);
FreeAndNil(Bitmap);
FreeAndNil(DeskTopCanvas);
ReleaseDC(GetDeskTopWindow, DeskTopDC);
end;
