install service

tools/install-package/boot/apq-client/bak/bat/apq-client.iss

+; Script generated by the Inno Setup Script Wizard.
+; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
+                 
+#define MyAppName "阿普奇检测客户端"
+#define MyAppVersion "V1.0"
+#define MyAppPublisher "阿普奇"          
+#define MyAppURL "https://www.apq.com/" 
+#define MyAppDirName "apq-client"            
+#define MyAppEnName "apq-client"
+#define MyAppExeName "apq-client.exe"  
+#define MyAppReBootName "service\启动服务R.bat"    
+
+[Setup]
+; 注: AppId的值为单独标识该应用程序。
+; 不要为其他安装程序使用相同的AppId值。
+; (生成新的GUID，点击 工具|在IDE中生成GUID。)
+; Tell Windows Explorer to reload the environment
+ChangesEnvironment=yes
+DisableDirPage=no
+; AlwaysRestart=yes
+AppId={{1394783A-5D3C-48CD-0000-E2DFBB844E42}
+AppName={#MyAppName}
+AppVersion={#MyAppVersion}
+AppVerName={#MyAppName}
+AppPublisher={#MyAppPublisher}
+AppPublisherURL={#MyAppURL}
+AppSupportURL={#MyAppURL}
+AppUpdatesURL={#MyAppURL}
+DefaultDirName={pf}\{#MyAppDirName}
+DefaultGroupName={#MyAppName}
+SetupIconFile=logo.ico
+
+;安装包文件输出目录
+OutputDir=..\dist\
+
+;安装包文件名
+OutputBaseFilename={#MyAppName}
+
+;压缩文件
+Compression=lzma
+SolidCompression=yes
+
+;以管理员权限运行
+PrivilegesRequired=admin
+
+
+UninstallDisplayIcon={app}/{#MyAppExeName}
+//CreateUninstallRegKey=no
+//UpdateUninstallLogAppName=no
+VersionInfoVersion=1.0.0.1  
+
+[Languages]
+Name: "chinese"; MessagesFile: "compiler:Languages/Chinese.isl"
+
+[Files]             
+Source: "../apq-client/*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;
+Source: "../../java/jre/jre/*"; DestDir: "{app}/jre"; Flags: ignoreversion recursesubdirs createallsubdirs;
+Source: "../../client/*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;
+; NOTE: Don't use "Flags: ignoreversion" on any shared system files
+
+[Icons]            
+Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
+Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\client-soft\apq.exe";
+
+[Run]             
+Filename: "{app}\Set_Env.bat"; Flags: runhidden; 
+Filename: "{app}\service\启动服务.bat"; Flags: runhidden runascurrentuser waituntilterminated;
+
+;卸载后执行的操作(停止、删除各种服务)
+[UninstallRun]  
+Filename: "{app}\service\删除服务.bat"; Flags: runhidden;
+
+;卸载后删除目录所有文件，删除空目录
+[UninstallDelete]
+Type: filesandordirs; Name: "{app}\*" 
+Type: dirifempty; Name: "{app}"
+
+;操作注册表
+[Registry]
+Root: HKLM; Subkey: "Software\{#MyAppEnName}"; Flags: uninsdeletekey;
+Root: HKCU; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"; ValueType: string; ValueName: "{#MyAppEnName}"; ValueData: "{app}\{#MyAppReBootName}"; Flags: uninsdeletevalue;
+; set JAVA_HOME 
+Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType:string; ValueName:"JAVA_HOME"; ValueData:"{app}\jre"; Flags: preservestringtype 
+; set PATH 
+Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"; ValueType:string; ValueName:"PATH"; ValueData:"{olddata};{app}\jre\bin"; Flags: preservestringtype
+
+
+[Code]
+function CheckProcessRunning( aProcName,
+                              aProcDesc: string ): boolean;
+var
+  ShellResult: boolean;
+  ResultCode: integer;
+  cmd: string;
+  sl: TStringList;
+  f: string;
+  d: string;
+  cmd2: string;
+  f2: string;
+  sl2: TStringList;
+begin
+  cmd := 'for /f "delims=," %%i ' + 
+         'in (''tasklist /FI "IMAGENAME eq ' + aProcName + '" /FO CSV'') ' + 
+         'do if "%%~i"=="' + aProcName + '" exit 1'; 
+  f := 'CheckProc.cmd';
+  cmd2 := 'taskkill -f -t -im ' + aProcName; 
+  f2 := 'KillProc.cmd';
+  d := AddBackSlash( ExpandConstant( '{tmp}' ));
+  sl := TStringList.Create;
+  sl.Add( cmd );
+  sl.Add( 'exit /0' );
+  sl.SaveToFile( d + f );
+  sl.Free;
+  sl2 := TStringList.Create;
+  sl2.Add( cmd2 );
+  sl2.Add( 'exit /0' );
+  sl2.SaveToFile( d + f2 );
+  sl2.Free;
+  Result := true;
+  while ( Result ) do
+  begin
+    ResultCode := 1;
+    ShellResult := Exec( f,
+                         '',
+                         d, 
+                         SW_HIDE, 
+                         ewWaitUntilTerminated, 
+                         ResultCode );
+    Result := ResultCode > 0;
+    if Result then
+      begin
+         // Msgbox('已关闭正在运行' + aProcDesc + '客户端!', mbInformation, MB_OK);
+         ShellResult := Exec( f2,
+                         '',
+                         d, 
+                         SW_HIDE, 
+                         ewWaitUntilTerminated, 
+                         ResultCode );
+      end;
+    end;
+    DeleteFile( d + f );
+    DeleteFile( d + f2 );
+end;
+
+// Perform some initializations.  Return False to abort setup
+function InitializeSetup: Boolean;
+begin
+// Do not use any user defined vars in here such as {app}
+  // Result := not ( CheckProcessRunning( 'apq-client-service.exe', 'apq-client-service' ));
+  CheckProcessRunning( 'apq-control.exe', 'apq客户端插件' )
+  CheckProcessRunning( 'apq-info.exe', 'apq客户端插件' )
+  CheckProcessRunning( 'apq-register.exe', 'apq客户端插件' )
+  CheckProcessRunning( 'apq.exe', 'apq客户端桌面' )
+  Result := not ( CheckProcessRunning( 'apq-client.exe', 'apq-client客户端' ));
+end;
\ No newline at end of file

tools/install-package/boot/apq-client/bak/删除服务.bat → tools/install-package/boot/apq-client/bak/bat/删除服务.bat

@@ -4,6 +4,15 @@ setlocal enabledelayedexpansion
 for /F "TOKENS=1,2,*" %%b in ('tasklist /FI "IMAGENAME eq apq.exe"') do TASKKILL /F /PID %%b
 taskkill -f -t -im %MyPID%
 
+for /F "TOKENS=1,2,*" %%a in ('jps -m ^| findstr apq-pc-info') do set SPID=%%a
+TASKKILL /F /PID %SPID%
+
+for /F "TOKENS=1,2,*" %%a in ('jps -m ^| findstr apq-pc-control') do set SPID=%%a
+TASKKILL /F /PID %SPID%
+
+for /F "TOKENS=1,2,*" %%a in ('jps -m ^| findstr apq-pc-register') do set SPID=%%a
+TASKKILL /F /PID %SPID%
+
 for /F "TOKENS=1,2,*" %%a in ('jps -m ^| findstr apq-pc-client') do set SPID=%%a
 TASKKILL /F /PID %SPID%
 

tools/install-package/boot/apq-client/bak/bat/启动服务R.bat

+cd /d "%~dp0"
+%1 %2
+ver|find "5.">nul&&goto :st
+mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :st","","runas",0)(window.close)&goto :eof
+:st
+copy "%~0" "%windir%\system32\"
+
+start apq-client -Xms256m -Xmx256m -Dfile.encoding=utf-8 -jar "%~dp0\apq-pc-client-0.0.1-SNAPSHOT-boot.jar"
+exit
\ No newline at end of file

tools/install-package/boot/apq-client/bak/wservice/apq-client.iss

+; Script generated by the Inno Setup Script Wizard.
+; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
+                 
+#define MyAppName "阿普奇检测客户端"
+#define MyAppVersion "V1.0"
+#define MyAppPublisher "阿普奇"          
+#define MyAppURL "https://www.apq.com/" 
+#define MyAppDirName "apq-client"            
+#define MyAppEnName "apq-client"
+#define MyAppExeName "apq-client.exe"  
+
+[Setup]
+; 注: AppId的值为单独标识该应用程序。
+; 不要为其他安装程序使用相同的AppId值。
+; (生成新的GUID，点击 工具|在IDE中生成GUID。)
+; Tell Windows Explorer to reload the environment
+ChangesEnvironment=yes
+DisableDirPage=no
+; AlwaysRestart=yes
+AppId={{1394783A-5D3C-48CD-0000-E2DFBB844E42}
+AppName={#MyAppName}
+AppVersion={#MyAppVersion}
+AppVerName={#MyAppName}
+AppPublisher={#MyAppPublisher}
+AppPublisherURL={#MyAppURL}
+AppSupportURL={#MyAppURL}
+AppUpdatesURL={#MyAppURL}
+DefaultDirName={pf}\{#MyAppDirName}
+DefaultGroupName={#MyAppName}
+SetupIconFile=logo.ico
+
+;安装包文件输出目录
+OutputDir=..\dist\
+
+;安装包文件名
+OutputBaseFilename={#MyAppName}
+
+;压缩文件
+Compression=lzma
+SolidCompression=yes
+
+;以管理员权限运行
+PrivilegesRequired=admin
+
+
+UninstallDisplayIcon={app}/{#MyAppExeName}
+//CreateUninstallRegKey=no
+//UpdateUninstallLogAppName=no
+VersionInfoVersion=1.0.0.1  
+
+[Languages]
+Name: "chinese"; MessagesFile: "compiler:Languages/Chinese.isl"
+
+[Files]             
+Source: "../apq-client/*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;
+Source: "../../java/jre/jre/*"; DestDir: "{app}/jre"; Flags: ignoreversion recursesubdirs createallsubdirs;
+Source: "../../client/*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;
+; NOTE: Don't use "Flags: ignoreversion" on any shared system files
+
+[Icons]            
+Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
+Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\client-soft\apq.exe";
+
+[Run]             
+Filename: "{app}\Set_Env.bat"; Flags: runhidden; 
+Filename: "{app}\service\启动服务.bat"; Flags: runhidden runascurrentuser waituntilterminated;
+
+;卸载后执行的操作(停止、删除各种服务)
+[UninstallRun]  
+Filename: "{app}\service\删除服务.bat"; Flags: runhidden;
+
+;卸载后删除目录所有文件，删除空目录
+[UninstallDelete]
+Type: filesandordirs; Name: "{app}\*" 
+Type: dirifempty; Name: "{app}"
+
+;操作注册表
+[Registry]
+Root: HKLM; Subkey: "Software\{#MyAppEnName}"; Flags: uninsdeletekey;
+
+[Code]
+function CheckProcessRunning( aProcName,
+                              aProcDesc: string ): boolean;
+var
+  ShellResult: boolean;
+  ResultCode: integer;
+  cmd: string;
+  sl: TStringList;
+  f: string;
+  d: string;
+  cmd2: string;
+  f2: string;
+  sl2: TStringList;
+begin
+  cmd := 'for /f "delims=," %%i ' + 
+         'in (''tasklist /FI "IMAGENAME eq ' + aProcName + '" /FO CSV'') ' + 
+         'do if "%%~i"=="' + aProcName + '" exit 1'; 
+  f := 'CheckProc.cmd';
+  cmd2 := 'taskkill -f -t -im ' + aProcName; 
+  f2 := 'KillProc.cmd';
+  d := AddBackSlash( ExpandConstant( '{tmp}' ));
+  sl := TStringList.Create;
+  sl.Add( cmd );
+  sl.Add( 'exit /0' );
+  sl.SaveToFile( d + f );
+  sl.Free;
+  sl2 := TStringList.Create;
+  sl2.Add( cmd2 );
+  sl2.Add( 'exit /0' );
+  sl2.SaveToFile( d + f2 );
+  sl2.Free;
+  Result := true;
+  while ( Result ) do
+  begin
+    ResultCode := 1;
+    ShellResult := Exec( f,
+                         '',
+                         d, 
+                         SW_HIDE, 
+                         ewWaitUntilTerminated, 
+                         ResultCode );
+    Result := ResultCode > 0;
+    if Result then
+      begin
+         // Msgbox('已关闭正在运行' + aProcDesc + '客户端!', mbInformation, MB_OK);
+         ShellResult := Exec( f2,
+                         '',
+                         d, 
+                         SW_HIDE, 
+                         ewWaitUntilTerminated, 
+                         ResultCode );
+      end;
+    end;
+    DeleteFile( d + f );
+    DeleteFile( d + f2 );
+end;
+
+// Perform some initializations.  Return False to abort setup
+function InitializeSetup: Boolean;
+begin
+// Do not use any user defined vars in here such as {app}
+  // Result := not ( CheckProcessRunning( 'apq-client-service.exe', 'apq-client-service' ));
+  CheckProcessRunning( 'apq-control.exe', 'apq客户端插件' )
+  CheckProcessRunning( 'apq-info.exe', 'apq客户端插件' )
+  CheckProcessRunning( 'apq-register.exe', 'apq客户端插件' )
+  CheckProcessRunning( 'apq.exe', 'apq客户端桌面' )
+  Result := not ( CheckProcessRunning( 'apq-client.exe', 'apq-client客户端' ));
+end;
\ No newline at end of file