delphi截图的问题 有哪位大哥可以帮小弟一个忙,怎么在DELPHI里面截图啊,毕业论文就要交了,好急啊! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TClient.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);varRectWidth,RectHeight:integer;SourceDC,DestDC,Bhandle:integer;Bitmap:TBitmap;beginRectWidth:=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; 联合查询的SQL语句,如何在查询后的数据前加入自动序列 请问Control和client的区别还有ltems和Lines的区别 急,数组1排序后->数组2,求算法!3Q 关于添加treeview节点对象问题 问一个 关于在 使用 socket 做三层结构中遇到的问题!! 关于delphi的消息处理机制,有一点不太明白 替换的问题 Delphi的最高版本是多少? 请各位高手指点一下 ADOquery如何设置fields为空时的显示值? 郁闷,女朋友的手机今天掉了,散分 大家好,有关Tcombobox关联问题!
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;