呵呵,谁截过DELPHI启动时的图片?我用PRINT SCREEN截不到哦 有截过的哥们吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我曾经截过。想要就留个email 你可以用SnagIt Studio工具啊。 为什么用PRINT SCREEN截不到? 把你的程序窗口做的小点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);beginScreenCap(0,0,1204,768);end; 呵呵我截到用VMWare什么都能截,包括Windows启动关闭什么的 我发现没有楼上做不到的上次的那个问题你给了tip,相信你会,而且你的主页上有demo,只是我还没实现,实现了给你分 呵呵,为了一个Delphi截图装个虚拟机,有点不太划算也。 cxGrid的数据导出到Excel(200分) 求助:怎样把一个好的光电鼠标打造成“broken”鼠标 Service Unavailable 关于微软的CAPICOM的问题,高手请帮忙哦,重分(好几百分)酬谢!!!!!!!! 紧急讨教,事关毕业啊(送100分):delphi+oralce数据库,记录删除方面的一个问题。 新婚之夜!!!!(就一个字:超强!) 请问:怎样才能从数据库中取出N天之内的数据?分很好拿吧! 奇怪的错误???? 在delphi中如何自定义文件格式? *******大家齐来讨论****** 做过工资管理系统的兄弟,请进来! Word处理
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;
我截到
用VMWare什么都能截,包括Windows启动关闭什么的
上次的那个问题你给了tip,相信你会,而且你的主页上有demo,只是我还没实现,实现了给你分