通过delphi,怎样抓取一幅游戏图像，如星际争霸的图像？

Question

啊！我太感激你了。
我的E-mail:
[email protected]

Answer 1

var 
   Bmp: TBitmap;
begin
   ScreenCap(bmp); //抓屏、
end;procedure ScreenCap(var Bmp: TBitmap);
var
  jpg:TJpegImage;
  Dc: HDC;
  MyCanvas: TCanvas;
  MyRect: TRect;
begin
   Dc := GetWindowDC(0);
   MyCanvas := TCanvas.Create;
   try
     MyCanvas.Handle := Dc;
     MyRect:=Rect(0,0,Screen.Width, Screen.Height);
     Bmp.PixelFormat := pf4bit;
     Bmp.Width := MyRect.Right;
     Bmp.Height := MyRect.Bottom;
     Bmp.Canvas.CopyRect(MyRect, MyCanvas, MyRect);
   finally
     MyCanvas.Handle := 0;
     jpg:=TJpegImage.Create;
     jpg.Assign(bmp);
     jpg.SaveToFile('c:\tmp.jpg');
     MyCanvas.Free;
     bmp.free;
     jpg.free;
     ReleaseDC(0, Dc);
   end;end;这个抓屏过程把屏幕抓下来保存为C盘下面的tmp.jpg，如果你要保存为BMP格式的话，就把里面的语句改以下就OK了。我用我的木马控制别人的机器后，对方在玩游戏，我一样可以抓他的屏幕。效果还不错。