做特定路径下截图,
var
SourceDC,DestDC,Bhandle:integer;
Bitmap:TBitmap;
phandle:tHandle;
pp:string;
begin
phandle:=loadimage(0,'C:\WINNT\Web\starter.bmp',IMAGE_BITMAP,0,0,LR_DEFAULTSIZE);
pp:=getlasterror();
showmessage(pp);
SourceDC:=Getdc(phandle);
DestDC:=CreateCompatibleDC(SourceDC);
Bhandle:=CreateCompatibleBitmap(SourceDC,100,100);
SelectObject(DestDC,Bhandle);
BitBlt(DestDC,0,0,100,100,SourceDC,300,300,SRCCOPY);
Bitmap:=TBitmap.Create;
Bitmap.Handle:=BHandle;
BitMap.Savetofile('C:\Program Files\Borland\Delphi7\Projects\xuesheng.bmp');
Bitmap.Free;
DeleteDC(DestDC);
ReleaseDC(Bhandle,SourceDC);
end;结果截到的是当前界面部分,为什么?
var
SourceDC,DestDC,Bhandle:integer;
Bitmap:TBitmap;
phandle:tHandle;
pp:string;
begin
phandle:=loadimage(0,'C:\WINNT\Web\starter.bmp',IMAGE_BITMAP,0,0,LR_DEFAULTSIZE);
pp:=getlasterror();
showmessage(pp);
SourceDC:=Getdc(phandle);
DestDC:=CreateCompatibleDC(SourceDC);
Bhandle:=CreateCompatibleBitmap(SourceDC,100,100);
SelectObject(DestDC,Bhandle);
BitBlt(DestDC,0,0,100,100,SourceDC,300,300,SRCCOPY);
Bitmap:=TBitmap.Create;
Bitmap.Handle:=BHandle;
BitMap.Savetofile('C:\Program Files\Borland\Delphi7\Projects\xuesheng.bmp');
Bitmap.Free;
DeleteDC(DestDC);
ReleaseDC(Bhandle,SourceDC);
end;结果截到的是当前界面部分,为什么?
解决方案 »
- 多线程访问全局变量 Tlist 当修改取出来的数据进行修改的时候要不要加锁?
- SOS
- 急救!!!自己写的函数报错
- 如何使窗口全屏显示?
- adodataset.next的小问题,或许很easy,或许很难,反正我不会,请教ing
- 如何把access数据引打包到程序的安装包中,
- API函数调用,急!!!!!!!!!!!!1
- Updata ...set.... from 难道在Access中不能用吗?
- 有誰用過borland公司的TermSource,談談使用方法及心得!
- 如何用Delphi实现类似于delphi的Object Inspector那样的小窗体?
- 求助!!!我的TMediaPlayer不出声。 附源码
- 一个简单的问题,有关Double型数据的操作
Bhandle没有定义