从实践中学习 HGE ------第一个HGE应用

第一步当然是下载HGE引擎，并把HGE的源文件加入到库中了！
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就算完成了！当然他还没有任何的功能！以后会继续的学习会把各种游戏的功能加入