Скачать: CL | DM;

Как создать скриншот всего экрана, не только окна самой программы   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c