Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
ВнизКак создать скриншот всего экрана, не только окна самой программы Найти похожие ветки
← →
acsoft (2003-05-18 09:45) [0]Как создать скриншот всего экрана, не только окна самой программы, и еще неплохо было бы, если это делалось вне зависимости от состояния окна (т.е. оно может быть свернуто).
← →
Delphi5.01 (2003-05-18 10:10) [1]ochen prosto
var BitMap: TBitMap;
begin
BitMap:=TBitMap.Create; //sozdau BitMap gde butet naxoditsa tvoi ekran
BitMap.Width:=Screen.Width; //ustanavlivaem shirinu bitmapa
BitMap.Height:=Screen.Height; //ustanavlivaem visotu
BitMap.Canvas.Handle:=GetDC(0); //ebiasnaem sisteme chto canvas BitMapa eto canvas ekrana, tak chto esli chto izmenitsa na Screene izmenitsa i v BitMape
form1.Canvas.Draw(0,0,BitMap); //vinosim rezultat na formu nu ili kudato esho eto uje po tvoemu usmotreniu
BitMap.Freee; //ocheshaem pamet
end;
Jelau udachi!
← →
e!dGe. (2003-05-18 10:29) [2]http://delphimaster.net/view/1-1053129234/
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c