Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];
ВнизРебята, посоветуйте как загнать картинку экрана монитора в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.014 c