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

Данный пример кода позволяет сделать "снимок" рабочего стола и сохранить его в графический файл формата 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 Молочное оборудование для производства линия производства.

;

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

• Бегущая строка
• Рисование "неактивного" текста
• Копировать векторное изображение