有哪位大哥可以帮小弟一个忙,怎么在DELPHI里面截图啊,毕业论文就要交了,好急啊!
解决方案 »
- Cheatengine里的4 bytes转换为text应该怎样写?
- delphi调用c++的dll。显示图片,有两给参数JPEG图片首地址lpbyte、图片的长度int.
- adoquery查询到n条记录,想显示第i条记录,该怎么办
- 帮忙怎么解决!
- 有些控件总是在最上面,比方说webbrowser,我想把image1放在webbrowser上面,如何实现?
- 定时拨号的简单问题。。
- 美丽的圣诞,你还在加班吗?
- 请指方向?
- __Query1.Active()__Query1.Execsql()__Query1.Open()__的区别?
- 如何是我的程序只运行一次
- 郁闷,女朋友的手机今天掉了,散分
- 大家好,有关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;