有没有类似QQ的捕捉屏幕的例子程序给一个！

Question

有没有类似QQ的捕捉屏幕的例子程序给一个！
可以全屏捕捉，局部捕捉的那种。
谢谢！

Answer 1

http://delphi.e-0631.cn DELPHI常用技巧集 --〉4组 -〉5.抓屏程序

Answer 2

var s:string;Fullscreen:Tbitmap;
FullscreenCanvas:TCanvas;
dc:HDC;
tt:TmemoryStream;
MyJPEG,tempjpeg:tjpegimage;begin
s:=athread.Connection.ReadLn();
if s='getdesktop' then
begin
     Fullscreen := TBitmap.Create;       //创建一个BITMAP来存放图象
     Fullscreen.Width := screen.width;
     Fullscreen.Height := screen.Height;
     DC := GetDC (0);   //取得屏幕的 DC，参数0指的是屏幕
     FullscreenCanvas := TCanvas.Create; //创建一个CANVAS对象
     FullscreenCanvas.Handle := DC;Fullscreen.Canvas.CopyRect
(Rect (0, 0, screen.Width, screen.Height), fullscreenCanvas,
Rect (0, 0, Screen.Width, Screen.Height));
             //把整个屏幕复制到BITMAP中
     FullscreenCanvas.Free;           //释放CANVAS对象
     ReleaseDC (0, DC);               //释放DC
     //*******************************
   image1.picture.Bitmap:=fullscreen;//拷贝下的图象赋给IMAGE对象
   image1.Width:=fullscreen.Width;
   image1.Height:=fullscreen.Height;
// fullscreen.free;                 //释放bitmap
  //   form1.WindowState:=wsNormal;     //复原窗口状态
//     form1.show;                     //显示窗口
//     messagebeep(1);   //BEEP叫一声，报告图象已经截取好了。
//tt:=tmemorystream.Create;
MyJPEG:= TJPEGImage.Create;
with  myjpeg  do
          begin
             Assign(image1.Picture.Graphic);
              tt:=TMemoryStream.create;
              SaveToStream(tt);
          end;

Answer 3

http://blog.csdn.net/xzhifei/archive/2007/07/17/1695258.aspx

Answer 4

到 www.2ccc.com 找找
``以前找到过类似的