全螢幕OpenGL程式

其實在BCB中實現全螢幕OpenGL的原理是很簡單的，只要在視窗OpenGL程式的基礎上做一個小小的改動即可：只要將視窗屬性修改為WS_POPUP就可以了。

具體如下：

在視窗類別的CreateParam()成員函數中加入如下語句：

Params.Style=WS_POPUP|WS_CLIPCHILDREN|WS_CLIPSIBLINGS;

將相應視窗修改成WS_POPUP型視窗，另兩個是為支援OpenGL為設的。

仍在視窗類別的CreateParam()成員函數，加入如下語句：

ChangeResolution(800,600);

Params.Width=800;

Params.Height=600;

Params.X=Params.Y=0;

第一句將螢幕解析度設定為800X600（可以是顯示卡支援的任意值）

然後修改表單大小使之佔滿全屏。

ChangeResolution()是一個自編的小函數，其原理如下：

用WINAPI：EnumDisplaySettings()查詢並取得所需的顯示模式

用WINAPI：ChangeDisplaySettings()修改顯示模式。

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)
||(devMode.dmPelsWidth != w)
||(devMode.dmPelsHeight != h) )
&& (modeSwitch) );
/* Okay see if we found a mode */
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;
}

樣本程式

說明：通常這個程式運行時會看到螢幕底部有道白線，這是工作列造成的，如果你將它的總在最前面(always on top)去掉或者將本程式視窗作成Always On Top型就不會再看到它了。