摘要: 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 阅读全文
posted @ 2013-09-30 20:58 一路随云 阅读(766) 评论(0) 推荐(0) 编辑