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

← →
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!

http://delphimaster.net/view/1-1053129234/

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