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

有截过的哥们吗？

解决方案 »

  1.   

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

  2.   

    你可以用SnagIt Studio工具啊。
      

  3.   

    为什么用PRINT SCREEN截不到？
      

  4.   

    把你的程序窗口做的小点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;
      

  5.   

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

  6.   

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

  7.   

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