正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
有时候你检测进程后要结束自己的安装程序,你用固定的名称那是不行的,别人修改了安装程序名称就无效了
- ; QYC
- ; http://www.abbeydawn.com.cn
- [code]
- var
- filenameEnd : Integer;
- jcfilename : String;
- lpFilename : LPTSTR;
- jj: Integer;
- const
- MAX_LENGTH = 255;
- function BackslashToSlash(const S: String): String;
- var
- I: Integer;
- II: Integer;
- cd: Integer;
- begin
- //修改EXE为tmp
- Result := S;
- cd := Length(Result)
- if Result[cd] = 'e' then
- Result[cd] := 'p'
- I := cd - 1;
- if Result[I] = 'x' then
- Result[I] := 'm'
- I := cd - 2;
- if Result[I] = 'e' then
- Result[I] := 't';
- //---------获取最后一个'\'位数是在第几位----------------------------
- II := 1;
- while II <= Length(Result) do
- begin
- if Result[II] = '\' then
- begin
- jj := II
- end;
- // Go to the next character. But do not simply increment I by 1.
- // Increment by CharLength() in case Result[I] is a double-byte character.
- II := II + CharLength(Result, II);
- end;
- //-------------------------------------
- end;
- procedure InitializeWizard();
- begin
- // Show path of Common Files with backslashes changed to forward slashes
- lpFilename := BackslashToSlash(ExpandConstant('{srcexe}')); //获取当前进程全路径
- SetLength(lpFilename, MAX_LENGTH);
- filenameEnd := Pos(#0, lpFilename);
- jcfilename := Copy(lpFilename, jj + 1 , filenameEnd - 1); //jcfilename就是你所需要的进程文件名
- MsgBox(jcfilename, mbInformation, MB_OK); //显示给你看下
- end;
复制代码
|