Скачать: CL | DM;

Возможно ли (вернее как это сделать) программно сделать скриншот   Найти похожие ветки 

← →
Не скажу кто   (2003-05-05 08:34) [0]

Возможно ли (вернее как это сделать) программно сделать скриншот и сохранить его в BMP.

---

← →
Babay ©   (2003-05-05 09:16) [1]

Примеры по дельфи в паке help

---

← →
Кот Бегемот ©   (2003-05-05 09:43) [2]

Можно,но НЕ СКАЖУ КАК :)))

---

← →
default ©   (2003-05-05 12:37) [3]

function ImageDesktopToBMP: TBitmap;
var
DtDC: HDC;
begin

Result := TBitmap.Create;
Result.Width := Screen.Width;
Result.Height := Screen.Height;
DtDC := GetDC(0);
BitBlt(Result.Canvas.Handle, 0, 0, Result.Width,
Result.Height, DtDC, 0, 0, SRCCOPY);
ReleaseDC(0, DtDC)

end;

---

← →
viman   (2003-05-05 15:24) [4]

var bmp: TBitmap;
jpg: TJPEGImage;
begin
try
bmp := Screen.ActiveForm.GetFormImage;
jpg := TJPEGImage.Create;
jpg.CompressionQuality := 65;
jpg.Assign(bmp);
jpg.SaveToFile(fn+".jpg");
freeAndNil(jpg);
FreeAndNil(bmp);
except on EAccessViolation do ;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c