Главная страница
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.033 c
3-1164264466
pavel_guzhanov
2006-11-23 09:47
2007.02.18
Как сделать, чтобы если в диалоге ввода логина и пароля


15-1169649184
Vlad Oshin
2007-01-24 17:33
2007.02.18
web программирование на delphi..даже не знаю как называется это


15-1169883327
Piroxyline
2007-01-27 10:35
2007.02.18
На каком языке?


2-1170018465
san1
2007-01-29 00:07
2007.02.18
real в integer


2-1170102348
Ping-Pong
2007-01-29 23:25
2007.02.18
Поддержка русского языка только в моей программе