呵呵，谁截过DELPHI启动时的图片？我用PRINT SCREEN截不到哦

有截过的哥们吗？ 问题点数：20、回复次数：8Top

1 楼houwei1008（下雨天）回复于 2004-09-01 14:53:14 得分 5

我曾经截过。想要就留个emailTop

2 楼houwei1008（下雨天）回复于 2004-09-01 14:59:41 得分 2

你可以用SnagIt   Studio工具啊。Top

3 楼hamzsy（十二真空间）回复于 2004-09-01 15:22:26 得分 0

为什么用PRINT   SCREEN截不到？Top

4 楼jinjazz（近身剪）回复于 2004-09-01 16:02:38 得分 5

把你的程序窗口做的小点  
   
  procedure   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.SaveToFile('c:\a.bmp');  
      Bitmap.Free;  
      DeleteDC(DestDC);  
      ReleaseDC(Bhandle,SourceDC);  
  end;  
  procedure   TForm1.BitBtn1Click(Sender:   TObject);  
  begin  
  ScreenCap(0,0,1204,768);  
  end;Top

5 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2004-09-01 16:06:34 得分 5

呵呵  
  我截到  
  用VMWare什么都能截，包括Windows启动关闭什么的Top

6 楼jinjazz（近身剪）回复于 2004-09-01 16:39:54 得分 2

我发现没有楼上做不到的  
  上次的那个问题你给了tip,相信你会,而且你的主页上有demo,只是我还没实现,实现了给你分Top

7 楼belllab（菜鸟）回复于 2004-09-01 17:14:58 得分 1

呵呵，为了一个Delphi截图装个虚拟机，有点不太划算也。Top

8 楼hamzsy（十二真空间）回复于 2004-09-02 09:26:09 得分 0

还没说明原因呢，有谁知道？Top

相关问题

• destdc
• sourcedc
• bhandle
• leftpos
• rectwidth
• rectheight
• toppos
• bitmap
• integer

• 帖主：hamzsy
• houwei1008
• houwei1008
• jinjazz
• ly_liuyang
• jinjazz
• belllab

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