积累系统性知识
积聚技术精华
  首页    个人中心    撰写积文    建立课题    订立目标    整理积文    管理课题    管理目标    技能Get    代码积累 
BCB拷屏代码
error997 (error997)    2014-11-20 20:37:28      目标    课题
切换到: 纯代码  
   
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=BoundsRect; 
TRect dest=Rect(0,0,Width,Height); 
bitmap->Canvas->CopyRect(dest,dtCanvas,src); 

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

delete bitmap; 
delete dtCanvas;


转自 http://blog.csdn.net/y___y/article/details/1203161
(+0)技能Get

建议楼主:搜索关键字 |参考其他资源 |回复 |追问
  error997(error997):   个人中心    课题    目标    代码积累