📄 bcb_g14.htm
字号:
<html>
<head>
<title>拷屏代码</title>
<meta http-equiv="目录类型" content="文本/html; 字符集=gb2312">
</head>
<body bgcolor="#FFFFFF">
<table width="100%" border="0" height="285">
<tr>
<td height="35">
<div align="center" class="p14"><font color="#000000">拷 屏 代 码</font></div>
</td>
</tr>
<tr valign="top">
<td>
<p>TCanvas *dtCanvas = new TCanvas; <br>
dtCanvas->Handle=GetDC(0);
<p>Graphics::TBitmap *bitmap=new Graphics::TBitmap; <br>
bitmap->Width=Width; <br>
bitmap->Height=Height;
<p>int nColors=GetDeviceCaps(Canvas->Handle,SIZEPALETTE); <br>
LOGPALETTE* logPal=(LOGPALETTE*)new Byte[sizeof(LOGPALETTE)+(nColors-1)*sizeof(PALETTEENTRY)];
<br>
logPal->palVersion=0x300; logPal->palNumEntries=(Word)nColors; <br>
GetSystemPaletteEntries(Canvas->Handle,0,nColors,logPal->palPalEntry);
<br>
bitmap->Palette=CreatePalette(logPal); <br>
delete[] logPal;
<p>TRect src=BoundsRect; <br>
TRect dest=Rect(0,0,Width,Height); <br>
bitmap->Canvas->CopyRect(dest,dtCanvas,src);
<p>bitmap->SaveToFile("Screen.bmp");
<p>delete bitmap; <br>
delete dtCanvas; <br>
</p>
</td>
</tr>
</table>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -