Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.078 c
2-1170091537
_newman_
2007-01-29 20:25
2007.02.18
Как узнать путь к директории из которой запущена программа.


15-1169790289
Andrey_andrey
2007-01-26 08:44
2007.02.18
Отпугивание мышей- ультразвук.


15-1169657987
Rouse_
2007-01-24 19:59
2007.02.18
Мини ММП в пятницу


15-1169853003
eRoR_rrr
2007-01-27 02:10
2007.02.18
mIRC скрипт в Delphi код


15-1169897718
dmdel
2007-01-27 14:35
2007.02.18
firebird 2.0