第一步当然是下载HGE引擎,并把HGE的源文件加入到库中了!
[url=http://sourceforge.net/projects/hgefordelphi/]HGE下载[/url]
把HGE加入delphi的库
[img]http://dl.iteye.com/upload/attachment/354786/b7de7424-e540-30c8-af33-f7ac125f66c0.png[/img]
新建一个VCL项目,把自动生成的Form Remove掉,然后按Ctrl+V
显示项目文件的源文件,在中间打下以下代码!
至此,第一个HGE就算完成了!当然他还没有任何的功能!以后会继续的学习会把各种游戏的功能加入
[url=http://sourceforge.net/projects/hgefordelphi/]HGE下载[/url]
把HGE加入delphi的库
[img]http://dl.iteye.com/upload/attachment/354786/b7de7424-e540-30c8-af33-f7ac125f66c0.png[/img]
新建一个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就算完成了!当然他还没有任何的功能!以后会继续的学习会把各种游戏的功能加入