Главная страница
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.03 c
15-1169885826
Jenny
2007-01-27 11:17
2007.02.18
Что за компонент ?


2-1170252922
Beavercrazy
2007-01-31 17:15
2007.02.18
Как проверить есть ли в интернете по указанному адресу файл?


10-1129189029
DmitryNekl
2005-10-13 11:37
2007.02.18
Открытие запароленного xls-файла


11-1145031824
BMouradov
2006-04-14 20:23
2007.02.18
ScrollBox - видимая область


2-1169895528
LiteStone
2007-01-27 13:58
2007.02.18
Listbox