📄 20000727003.htm
字号:
<HTML>
<HEAD>
<TITLE>拷屏代码</TITLE>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
</HEAD>
<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0
vLink=#990099>
<div align="center">
<table width="744" border="0" cellspacing="0" cellpadding="0" height="76">
<tr>
<td>
<p align="center"><font size="3"><b><br>
拷 屏 代 码</b></font></p>
<p align="left">TCanvas *dtCanvas = new TCanvas; <br>
dtCanvas->Handle=GetDC(0);
<p align="left">Graphics::TBitmap *bitmap=new Graphics::TBitmap; <br>
bitmap->Width=Width; <br>
bitmap->Height=Height;
<p align="left">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 align="left">TRect src=BoundsRect; <br>
TRect dest=Rect(0,0,Width,Height); <br>
bitmap->Canvas->CopyRect(dest,dtCanvas,src);
<p align="left">bitmap->SaveToFile("Screen.bmp");
<p align="left">delete bitmap; <br>
delete dtCanvas; </p>
</td>
</tr>
</table>
</div>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -