rgreat Posted September 13, 2017 Posted September 13, 2017 // Use one of 3 defines below to choose compile mode: //{$DEFINE UNIGUI_VCL} // Stand Alone Application. //{$DEFINE UNIGUI_SERVICE} // Windows Service Application. //{$DEFINE UNIGUI_ISAPI} // ISAPI Library. {$IFDEF UNIGUI_SERVICE} {$EXTENSION exe} program {$ENDIF} {$IFDEF UNIGUI_VCL} {$EXTENSION exe} program {$ENDIF} {$IFDEF UNIGUI_ISAPI} {$EXTENSION dll} library {$ENDIF} MyProgram; // Your project name. uses {$IFDEF UNIGUI_SERVICE} SvcMgr, {$ENDIF} {$IFDEF UNIGUI_VCL} Forms, {$ENDIF} {$IFDEF UNIGUI_ISAPI} uniGUIISAPI, {$ENDIF} ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule}, MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule}, ServiceModule in 'ServiceModule.pas', // Grab this one from a new uniGui service project. // Add your custom units here. {$R *.res} {$IFDEF UNIGUI_ISAPI} exports GetExtensionVersion, HttpExtensionProc, TerminateExtension; {$ENDIF} begin {$IFDEF UNIGUI_SERVICE} if not Application.DelayInitialize or Application.Installing then Application.Initialize; Application.CreateForm(TMyServiceClass, MyServiceClass); // Get from your ServiceModule. Application.Run; {$ENDIF} {$IFDEF UNIGUI_VCL} ReportMemoryLeaksOnShutdown:=True; // Optional. Application.Initialize; TUniServerModule.Create(Application); Application.Run; {$ENDIF} end. 1 Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.