Как сделать BMP снимок с экрана?
Как сделать BMP снимок с экрана?
Как сделать BMP снимок с экрана? Грузин: var Desktopcanvas :TCanvas ; BitMap :TBitMap; begin DesktopCanvas:=TCanvas.Create; DesktopCanvas.Handle:=GetDC(Hwnd_Desktop); BitMap := TBitMap.Create; BitMap.Width := Screen.Width; BitMap.Height:=Screen.Height; Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, DesktopCanvas, DesktopCanvas.ClipRect); bitmap.SaveToFile('c:\windows\screen.bmp'); image1.Picture.LoadFromFile('c:\windows\screen.bmp'); end; ***************************************************** Alar: var ScreenDC:HDC; Canvas:TCanvas; Image1:TImage; Begin ScreenDC := GetDC(0); Canvas:=TCanvas.Create(); Canvas.Handle:=ScreenDC; Image1 := TImage.Create(nil); Image1.Width := Screen.Width Image1.Height := Screen.Height Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image 1.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height)); ReleaseDC(0,ScreenDC); Canvas.Free; end;
