HGE下载
把HGE加入delphi的库
新建一个VCL项目,把自动生成的Form Remove掉,然后按Ctrl+V
显示项目文件的源文件,在中间打下以下代码!
program demo01; {$R *.res} uses Windows, HGE; var HGE: IHGE = nil; //帖函数,如果返回False场景循环播放 function FrameFunc: Boolean; begin Result := HGE.Input_GetKeyState(HGEK_ESCAPE);//如果按下ESC侧返回True,退出游戏! end; begin ReportMemoryLeaksOnShutdown := True; HGE := HGECreate(HGE_VERSION); // 设置帧函数 HGE.System_SetState(HGE_FRAMEFUNC,FrameFunc); // 设置窗口的标题 HGE.System_SetState(HGE_TITLE,'My First HGE Demo'); // 设置为窗口方式运行HGE HGE.System_SetState(HGE_WINDOWED,True); // 设置为不用声音 HGE.System_SetState(HGE_USESOUND,False); //开始加载HGE if (HGE.System_Initiate) then begin //进入HGE的消息循环,游戏开始,当然我们的游戏中什么都没有,所以只返回一个黑屏! HGE.System_Start; end else begin //如果加载异常,侧跳出出错对话框 MessageBox(0,PChar(HGE.System_GetErrorMessage),'Error', MB_OK or MB_ICONERROR or MB_APPLMODAL); end; //关闭HGE HGE.System_Shutdown; //释放HGE所占用的接口 HGE := nil; end.
至此,第一个HGE就算完成了!当然他还没有任何的功能!以后会继续的学习会把各种游戏的功能加入