Содержание материала

На форме у меня стоит TImage (его можно сделать невидимым)

 

Code:

var

{©Drkb v.3®Vit (Vitaly Nevzorov) }

Dwh : HWND;

DRect: TRect;

DescDC: HDC;

Canv: TCanvas;

i: TJPEGImage;

begin

try

   i := TJPEGImage.create;

   try

     Canv := TCanvas.Create();

     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.Top := 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');

     Canv.free;

   finally

     i.free;

   end;

except

end;

  

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить