Текущий архив: 2007.02.18;
Скачать: CL | DM;
Вниз
ScreenShot Найти похожие ветки
← →
TCrash (2006-12-22 09:52) [0]Требуется получить снимок экрана. Нашел пример как его загнать в TCanvas, а хотелось бы в BMP. Возиться с TCanvas.Pixels желания нет. Подскажите плиз куда копать.
← →
PZ (2006-12-22 10:17) [1]
procedure CopyScreen;
var
bmp : TBitmap;
DC : HDC;
begin
bmp := TBitmap.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0); // Дескpиптоp экpана
bitblt(
bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
bmp.SaveToFile("Screen.bmp");
ReleaseDC(0, DC);
end; { CopyScreen }
← →
TCrash (2006-12-22 10:46) [2]Спасибо. Не с той стороны начал :(
Страницы: 1 вся ветка
Текущий архив: 2007.02.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.052 c
