我现在开始学习DELPHI/poscal 学习从 写MIR2传奇开始；

第一天学习使用HGE

program Project1;

uses
  windows,
  HGE;

{$R *.res}

var
  myHGE: IHGE = nil;

function FrameFunc: Boolean;
begin
  Result := myHGE.Input_GetKeyState(HGEK_ESCAPE);
end;

begin
  ReportMemoryLeaksOnShutdown := True;

  myHGE := HGECreate(HGE_VERSION);

  myHGE.System_SetState(HGE_FRAMEFUNC, FrameFunc);

  myHGE.System_SetState(HGE_TITLE,'hge test dome');

  myHGE.System_SetState(HGE_WINDOWED, True);

  myHGE.System_SetState(HGE_USESOUND, False);

  if (myHGE.System_Initiate) then begin
    myHGE.System_Start;

  end else begin
    MessageBox(0,pChar(myHGE.System_GetErrorMessage),'Error Information', MB_OK + MB_ICONINFORMATION);
  end;

  myHGE.System_Shutdown;
end.