UniGui服务程序部署

以UniGui-1.90.0.1530为例，介绍以下两种模式：
一、windows服务模式(推荐模式)
program UNIXJ;

//windows service 模式

uses
SvcMgr,
ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},
MainModule in 'MainModule.pas' {dm: TUniGUIMainModule},
ServiceModule in 'ServiceModule.pas' {UniServiceModule: TUniGUIService},

SYSmain in 'SYSmain.pas' {MainForm: TUniForm},
LoginForm in 'LoginForm.pas' {LoginForm1: TUniLoginForm},
。。。。。。。。。。。。。。。。。其他Form；

{$R *.res}

begin
if not Application.DelayInitialize or Application.Installing then
Application.Initialize;
Application.CreateForm(TUniServiceModule, UniServiceModule);
Application.Run;
end.
二、Standalone模式（主要在调试时用）
program UNIXJ;
//Standalone
uses
Forms,
ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},
MainModule in 'MainModule.pas' {DM: TUniGUIMainModule},

SYSmain in 'SYSmain.pas' {MainForm: TUniForm},
LoginForm in 'LoginForm.pas' {LoginForm1: TUniLoginForm},
。。。。。。。。。。。。。。。。。其他Form;

{$R *.res}

begin
ReportMemoryLeaksOnShutdown := True;
Application.Initialize;
TUniServerModule.Create(Application);
Application.Run;
end.
三、部署
第一种模式：
先将UniGui-1.90.0.1530的 ext-7.2.0 和 uni-1.90.0.1530 两个目录拷贝到运行目录（自建的目录）下；

进入管理员CMD模式
1.安装服务
UNIXJ -install
2.启动服务
net start UniServiceModule ##UniServiceModule 是 UniGui 的固定服务名称，不要改
此时服务就安装完毕，可以提供服务了
3.停止服务
net stop UniServiceModule
4.卸载服务
UNIXJ -uninstall
注意：
这里的UNIXJ是Delphi XE生成的应用名称
更新程序时需要停止和卸载服务后方可更新，更新后，再执行1-2
第二种模式，直接运行即可