BCB中实现全屏幕

其实在BCB中实现全屏幕OpenGL的原理是很简单的，只要在窗口OpenGL程序的基础上做一个小小的改动即可：只要将窗口属性修改为WS_POPUP就可以了。

具体如下：

1. 在窗口类的CreateParam()成员函数中加入如下语句：
   Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;
   将相应窗口修改成WS_POPUP型窗口，另两个是为支持OpenGL为设的。
2. 仍在窗口类的CreateParam()成员函数，加入如下语句：
   ChangeResolution(800,600);
   Params.Width=800;
   Params.Height=600;
   Params.X=Params.Y=0;
   第一句将屏幕分辨率设定为800X600（可以是显示卡支持的任意值）
   然后修改窗体大小使之占满全屏。
3. ChangeResolution()是一个自编的小函数，其原理如下：

   1. 用WINAPI：EnumDisplaySettings()查询并取得所需的显示模式
   2. 用WINAPI：ChangeDisplaySettings()修改显示模式。

4. ChangeResolution()的完整代码：
   
   BOOL ChangeResolution(DWORD w, DWORD h) {
   DEVMODE devMode;
   LONG modeSwitch;
   LONG i;
   CHAR buf[256];
   i = 0;
   do {
   modeSwitch = EnumDisplaySettings(NULL, i, &devMode);
   i++;
   } while(( (devMode.dmBitsPerPel!=16)
   */
   if (!modeSwitch) { }
   else {
   modeSwitch = ChangeDisplaySettings(&devMode, 0);
   if (modeSwitch!=DISP_CHANGE_SUCCESSFUL)
   {
   //Might be running in Windows95, let\'s try without the hertz change
   devMode.dmBitsPerPel = 16;
   devMode.dmPelsWidth = w;
   devMode.dmPelsHeight = h;
   devMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT;
   modeSwitch = ChangeDisplaySettings(&devMode, 0);
   }
   }
   return TRUE;
   }