⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 lc_bcb_73.html

📁 C++Builder教学大全
💻 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-&gt;Handle=GetDC(0);   

<P>Graphics::TBitmap *bitmap=new Graphics::TBitmap; <BR>bitmap-&gt;Width=Width;   

<BR>bitmap-&gt;Height=Height;   

<P>int nColors=GetDeviceCaps(Canvas-&gt;Handle,SIZEPALETTE); <BR>LOGPALETTE*   

logPal=(LOGPALETTE*)new   

Byte[sizeof(LOGPALETTE)+(nColors-1)*sizeof(PALETTEENTRY)];   

<BR>logPal-&gt;palVersion=0x300; logPal-&gt;palNumEntries=(Word)nColors;   

<BR>GetSystemPaletteEntries(Canvas-&gt;Handle,0,nColors,logPal-&gt;palPalEntry);   

<BR>bitmap-&gt;Palette=CreatePalette(logPal); <BR>delete[] logPal;   

<P>TRect src=BoundsRect; <BR>TRect dest=Rect(0,0,Width,Height);   

<BR>bitmap-&gt;Canvas-&gt;CopyRect(dest,dtCanvas,src);   

<P>bitmap-&gt;SaveToFile("Screen.bmp");   

<P>delete bitmap; <BR>delete dtCanvas; <BR>&nbsp; <BR>&nbsp; <BR>&nbsp;   

</P></BODY></HTML>  

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -