uses JPEG;

{©Drkb v.3(2007): <a href="http://www.drkb.ru" title="www.drkb.ru">www.drkb.ru</a>,

 ®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

...

var i: TJPEGImage;

begin

 try

  i := TJPEGImage.create;

  try

  i.CompressionQuality := 100;

  image.Width := screen.width;

  image.height := screen.height;

  DWH := GetDesktopWindow;

  GetWindowRect(DWH, DRect);

  DescDC := GetDeviceContext(DWH);

  Canv.Handle := DescDC;

  DRect.Left := 0;

  DRect. := 0;

  DRect.Right := screen.Width;

  DRect.Bottom := screen.Height;

  Image.Canvas.CopyRect(DRect, Canv, DRect);

  i.assign(Image.Picture.Bitmap);

  I.SaveToFile('M:\MyFile.jpg');

  finally

  i.free;

  end;

 except

 end;