Ребята, посоветуйте как загнать картинку экрана монитора в bmp

← →
Krag (2003-11-14 13:25) [0]

файл?

← →
LongIsland © (2003-11-14 13:39) [1]

BitBlt

← →
Palladin © (2003-11-14 13:39) [2]

uses extctrls; ... var dc:HDC; c:Timage; begin dc:=GetWindowDC(GetDesktopWindow); c:=TImage.Create(nil); c.Width:=Screen.Width; c.Height:=Screen.Height; BitBlt(c.Canvas.Handle,0,0,c.width,c.height,dc,0,0,srccopy); c.Picture.SaveToFile("c:\screen.bmp"); end;

← →
Vlad Oshin © (2003-11-14 13:40) [3]

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;

Или нужны картинки мониторов? :)

http://www.delphinsworld.narod.ru/Articles/rabotaem_s_rabochim_stolom.htm - там про работу с рабочим столом многое есть

Ребята, посоветуйте как загнать картинку экрана монитора в bmp Найти похожие ветки