Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

Ребята, посоветуйте как загнать картинку экрана монитора в 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;

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

---

← →
DelphiN! ©   (2003-11-14 13:46) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c