rgreat Posted September 13, 2017 Share 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 Link to comment Share on other sites More sharing options...
Tokay Posted September 14, 2017 Share Posted September 14, 2017 thank you! Link to comment Share on other sites More sharing options...
Stemon63 Posted September 15, 2017 Share Posted September 15, 2017 Thanks!! Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now