📄 lc_bcb_73.html
字号:
<HTML><HEAD>
<TITLE>拷屏代码</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content=zyqsj name=Author>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY >
<p align="center"><b><font size="5">拷 屏 代 码</font></b>
<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> <BR> <BR>
</P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -