拷屏代码

2008-02-23 05:35:50来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

TCanvas *dtCanvas = new TCanvas;
dtCanvas->Handle=GetDC(0);

Graphics::TBitmap *bitmap=new Graphics::TBitmap;
bitmap->Width=Width;
bitmap->Height=Height;

int nColors=GetDeviceCaps(Canvas->Handle,SIZEPALETTE);
LOGPALETTE* logPal=(LOGPALETTE*)new Byte[sizeof(LOGPALETTE) (nColors-1)*sizeof(PALETTEENTRY)];
logPal->palVersion=0x300; logPal->palNumEntries=(Word)nColors;
GetSystemPaletteEntries(Canvas->Handle,0,nColors,logPal->palPalEntry);
bitmap->Palette=CreatePalette(logPal);
delete[] logPal;

TRect src=http://www.bc-cn.net/Article/kfyy/cjj/jszl/200601/BoundsRect;
TRect dest=Rect(0,0,Width,Height);
bitmap->Canvas->CopyRect(dest,dtCanvas,src);

bitmap->SaveToFile("Screen.bmp");

delete bitmap;
delete dtCanvas;




标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇: 超星格式-

下一篇: 用TRUETYPE技术显示汉字

热门词条
热门标签