摘要:
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_HIDEMOUS 阅读全文