//lpszMenuName := ''; // 不需要菜单
lpszClassName := 'OpenGL'; //设定类名
End;
If (RegisterClass(wndClass) = 0) Then // 注册窗体类
Begin
MessageBox(0, '注册窗体类失败!', '错误', MB_OK Or
MB_ICONERROR);
Result := False;
Exit
End;
// 如果需要全屏的话
If Fullscreen Then
Begin
ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings)); // 确保内存分配
With dmScreenSettings Do
Begin // 设置屏幕设置的参数
dmSize := SizeOf(dmScreenSettings); // Devmode 结构的大小
dmPelsWidth := Width; // 所选屏幕宽度
dmPelsHeight := Height; // 所选屏幕高度
dmBitsPerPel := PixelDepth; // 每象素所选的色彩深度
dmFields := DM_PELSWIDTH // 设置初始标志为dmPelsWidth
Or DM_PELSHEIGHT // dmPelsHeight 和
Or DM_BITSPERPEL; // dmBitsPerPel
End;
// 转换为全屏模式 ,
//切换成与dmScreenSettings所匹配模式。
//CDS_FULLSCREEN 移去了状态条。
//并保证在来回切换时，没有移动或改变您在桌面上的窗口。
// 转换为全屏模式
If (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) =
DISP_CHANGE_FAILED) Then //转换失败
Begin
MessageBox(0, '不能转换为全屏模式!', '错误', MB_OK
Or MB_ICONERROR);
Fullscreen := False;
End;
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
|
