delphi截图的问题

有哪位大哥可以帮小弟一个忙，怎么在DELPHI里面截图啊，毕业论文就要交了，好急啊！ 问题点数：20、回复次数：2Top

1 楼kaershaw（一苇渡江&&欲出江湖）回复于 2004-05-01 20:23:42 得分 20

procedure   TClient.ScreenCap(LeftPos,TopPos,  
  RightPos,BottomPos:integer);  
  var  
  RectWidth,RectHeight:integer;  
  SourceDC,DestDC,Bhandle:integer;  
  Bitmap:TBitmap;  
  begin  
  RectWidth:=RightPos-LeftPos;  
  RectHeight:=BottomPos-TopPos;  
  SourceDC:=CreateDC('DISPLAY','','',nil);  
  DestDC:=CreateCompatibleDC(SourceDC);  
  Bhandle:=CreateCompatibleBitmap(SourceDC,  
  RectWidth,RectHeight);  
  SelectObject(DestDC,Bhandle);  
  BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,  
  LeftPos,TopPos,SRCCOPY);  
  Bitmap:=TBitmap.Create;  
  Bitmap.Handle:=BHandle;  
  BitMap.SaveToStream(BmpStream);  
  BmpStream.Position:=0;  
  LeftSize:=BmpStream.Size;  
  Bitmap.Free;  
  DeleteDC(DestDC);  
  ReleaseDC(Bhandle,SourceDC);  
  end;  
  Top

2 楼xbh（阿辉）回复于 2004-05-01 23:34:56 得分 0

我知道了Top

相关问题

• 截图
• destdc
• sourcedc
• bhandle
• leftpos
• rectheight
• bmpstream
• toppos
• rightpos
• bottompos

• 帖主：xbh
• kaershaw

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载