DELPHI下讓HGE初始化在某個窗口內範例！

procedure TMainForm.FormCreate(Sender: TObject);
begin
  HGE := HGECreate(HGE_VERSION);
  HGE.System_SetState(HGE_USESOUND, False);
  HGE.System_SetState(HGE_SCREENWIDTH, Self.Width);
  HGE.System_SetState(HGE_SCREENHEIGHT,Self.Height);
  HGE.System_SetState(HGE_SCREENBPP, 32);
  HGE.System_SetState(HGE_HIDEMOUSE,False);
  HGE.System_SetState(HGE_TEXTUREFILTER, False);
  HGE.System_SetState(HGE_FPS,60);
  HGE.System_SetState(HGE_HWNDPARENT,self.handle);
  HGE.System_Initiate;
end;