InnoSetup安装之前检查进程
来源:互联网 发布:海尔热水器电死人 知乎 编辑:程序博客网 时间:2024/05/17 06:36
http://ask.programmershare.com/3120_7933759/
Answer1
This is something I did to prompt the user to close a program if it was found running.
function CheckProcessRunning( aProcName, aProcDesc: string ): boolean;var ShellResult: boolean; ResultCode: integer; cmd: string; sl: TStringList; f: string; d: string;begin cmd := 'for /f "delims=," %%i ' + 'in (''tasklist /FI "IMAGENAME eq ' + aProcName + '" /FO CSV'') ' + 'do if "%%~i"=="' + aProcName + '" exit 1'; f := 'CheckProc.cmd'; d := AddBackSlash( ExpandConstant( '{tmp}' )); sl := TStringList.Create; sl.Add( cmd ); sl.Add( 'exit /0' ); sl.SaveToFile( d + f ); sl.Free; Result := true; while ( Result ) do begin ResultCode := 1; ShellResult := Exec( f, '', d, SW_HIDE, ewWaitUntilTerminated, ResultCode ); Result := ResultCode > 0; if Result and ( MsgBox( aProcDesc + ' is running. This program must be closed to continue.'#13#10 + 'Please close it and click Yes to retry or click No to cancel this installer.', mbConfirmation, MB_YESNO ) <> IDYES ) then Break; end; DeleteFile( d + f );end;
I used it in the following special code sections as follows:// Perform some initializations. Return False to abort setupfunction InitializeSetup: Boolean;begin // Do not use any user defined vars in here such as {app} InitializeGlobals; Result := not ( CheckProcessRunning( 'bcb.exe', 'C++ Builder' ) or CheckProcessRunning( 'delphi32.exe', 'Delphi' ) or CheckProcessRunning( 'bds.exe', 'Rad Studio' ));end;function InitializeUninstall: Boolean;begin InitializeGlobals; Result := not ( CheckProcessRunning( 'bcb.exe', 'C++ Builder' ) or CheckProcessRunning( 'delphi32.exe', 'Delphi' ) or CheckProcessRunning( 'bds.exe', 'Rad Studio' ));end;
关闭进程
closecmd := 'taskkill /F /IM process.exe';
停止服务
sc stop Process
删除服务
sc delete Process
http://www.cnblogs.com/tk-del/archive/2012/05/21/2511180.html
//TStringList 常用方法与属性:
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Strings1'); {添加}
List.Add('Strings2');
List.Exchange(0,1); {置换}
List.Insert(0,'Strings3'); {插入}
i := List.IndexOf('Strings1'); {第一次出现的位置}
List.Sort; {排序}
List.Sorted := True; {指定排序}
List.Count; {总数}
List.Text; {文本集合}
List.Delete(0); {删除, 0是第一个数据}
List.LoadFromFile('c:\tmp.txt');{打开}
List.SaveToFile('c:\tmp.txt'); {保存}
List.Clear; {清空}
List.Free; {释放}
end;
--------------------------------------------------------------------------------
//读入字符串
var
List: TStringList;
begin
List := TStringList.Create;
List.CommaText := 'aaa,bbb,ccc,ddd';
//相当于: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';
ShowMessage(IntToStr(List.Count)); //4
ShowMessage(List[0]); //aaa
List.Free;
end;
--------------------------------------------------------------------------------
//置换分隔符
var
List: TStringList;
begin
List := TStringList.Create;
List.Delimiter := '|';
List.DelimitedText := 'aaa|bbb|ccc|ddd';
ShowMessage(IntToStr(List.Count)); //4
ShowMessage(List[0]); //aaa
List.Free;
end;
--------------------------------------------------------------------------------
//类似的哈希表操作法
var
List: TStringList;
begin
List := TStringList.Create;
List.Add('aaa=111');
List.Add('bbb=222');
List.Add('ccc=333');
List.Add('ddd=444');
List.Add('eee=');
List.Add('fff');
ShowMessage(List.Names[1]); //bbb
ShowMessage(List.ValueFromIndex[1]); //222
ShowMessage(List.Values['bbb']); //222
//ValueFromIndex 可以赋值:
List.ValueFromIndex[1] := '2';
ShowMessage(List[1]); //bbb=2
//可以通过 Values 赋值:
List.Values['bbb'] := '22';
ShowMessage(List[1]); //bbb=22
ShowMessage(List.Names[4]); //eee
ShowMessage(List.ValueFromIndex[4]); //
ShowMessage(List.Values['eee']); //
ShowMessage(List.Names[5]); //
ShowMessage(List.ValueFromIndex[5]); //
ShowMessage(List.Values['fff']); //
List.Free;
end;
--------------------------------------------------------------------------------
//避免重复值
var
List: TStringList;
begin
List := TStringList.Create;
List.Add('aaa');
List.Sorted := True; //需要先指定排序
List.Duplicates := dupIgnore; //如有重复值则放弃
List.Add('aaa');
ShowMessage(List.Text); //aaa
//Duplicates 有3个可选值:
//dupIgnore: 放弃;
//dupAccept: 结束;
//dupError: 提示错误.
List.Free;
end;
--------------------------------------------------------------------------------
//排序与倒排序
{排序函数}
function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := -AnsiCompareText(List[Index1], List[Index2]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;
List.Add('bbb');
List.Add('ccc');
List.Add('aaa');
{未排序}
ShowMessage(List.Text); //bbb ccc aaa
{排序}
List.Sort;
ShowMessage(List.Text); //aaa bbb ccc
{倒排序}
List.CustomSort(DescCompareStrings); //调用排序函数
ShowMessage(List.Text); //ccc bbb aaa
//假如:
List.Sorted := True;
List.Add('999');
List.Add('000');
List.Add('zzz');
ShowMessage(List.Text); //000 999 aaa bbb ccc zzz
end;
- InnoSetup安装之前检查进程
- innosetup 安装前判断是否有进程正在运行
- innosetup静默安装
- InnoSetup 自动安装代码
- InnoSetup安装包制作事例
- InnoSetup 安装程序制作工具
- 使用InnoSetup打包安装程序
- innosetup 判断电脑有没有安装.netFramework
- innosetup 修改安装过程中的图片
- innosetup 安装完成后执行的代码
- Innosetup制作安装包的一些技巧
- innosetup的静默安装与卸载
- InnoSetup 安装前卸载旧版程序
- 进程检查
- InnoSetup快速入门(一):InnoSetup 环境安装并编译第一个安装程序
- innosetup 安装静默安装msi,指定安装路径的方法
- 使用Innosetup制作安装包的一些技巧
- InnoSetup打包exe安装应用程序,并添加卸载图标
- jstl和字符串比较是否相等
- 总结现网问题
- 51nod-1179-最大的最大公约数
- MYSQL必知必会读书笔记 第十四章 使用子查询
- React 自定义组件与组件复用
- InnoSetup安装之前检查进程
- Chrome ZeroNet 插件让你访问ZeroNet更轻松
- IDE神器intellij idea的基本使用
- Android的IPC方式
- android onActivityResult没调用
- 原码, 反码和补码.
- [剑指offer]两个链表的第一个公共结点
- windows下的Java应用启动
- (8^111+9^111)除以17^2余数是多少?