Захват изображения

Советы » Другое » Захват изображения

Данный пример кода позволяет сделать "снимок" рабочего стола и сохранить его в графический файл формата BMP.


procedure

TForm1.Button1Click(Sender: TObject); var

DC: HDC;
Canva: TCanvas;
B: TBitmap;
begin


Canva := TCanvas.Create; B := TBitmap.Create;
DC := GetDC(0);
try
Canva.Handle := DC;
with Screen do begin
B.Width := Width;
B.Height := Height;
B.Canvas.CopyRect(Rect(0, 0, Width, Height), Canva, Rect(0, 0, Width, Height)); B.SaveToFile('c:screen.bmp'); end
finally
ReleaseDC(0, DC);
B.Free;
Canva.Free
end
end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com