INNO获取当前进程名称并可修改扩展名函数

admin

有时候你检测进程后要结束自己的安装程序，你用固定的名称那是不行的，别人修改了安装程序名称就无效了

1. ; QYC
   
2. ; http://www.abbeydawn.com.cn
   
3. [code]
   
4. var
   
5.    filenameEnd : Integer;
   
6.    jcfilename    : String;
   
7.    lpFilename  : LPTSTR;
   
8.    jj: Integer;
   
9. const
   
10.    MAX_LENGTH   = 255;
    
11. 
    
12. function BackslashToSlash(const S: String): String;
    
13. var
    
14.   I: Integer;
    
15.   II: Integer;
    
16.   cd: Integer;
    
17. begin
    
18.   //修改EXE为tmp
    
19.   Result := S;
    
20.   cd := Length(Result)
    
21.   if Result[cd] = 'e' then
    
22.   Result[cd] := 'p'
    
23.   I := cd - 1;
    
24.   if Result[I] = 'x' then
    
25.   Result[I] := 'm'
    
26.   I := cd - 2;
    
27.   if  Result[I] = 'e' then
    
28.   Result[I] := 't';
    
29.   //---------获取最后一个'\'位数是在第几位----------------------------
    
30.   II := 1;
    
31.   while II <= Length(Result) do
    
32.   begin
    
33.     if Result[II] = '\' then
    
34.     begin
    
35.     jj :=  II
    
36.     end;
    
37.     // Go to the next character. But do not simply increment I by 1.
    
38.     // Increment by CharLength() in case Result[I] is a double-byte character.
    
39.     II := II + CharLength(Result, II);
    
40.   end;
    
41.   //-------------------------------------
    
42. end;
    
43. 
    
44. 
    
45. procedure InitializeWizard();
    
46. begin
    
47.   // Show path of Common Files with backslashes changed to forward slashes
    
48. lpFilename := BackslashToSlash(ExpandConstant('{srcexe}'));   //获取当前进程全路径
    
49. SetLength(lpFilename, MAX_LENGTH);
    
50. filenameEnd := Pos(#0, lpFilename);
    
51. jcfilename := Copy(lpFilename, jj + 1 , filenameEnd - 1);  //jcfilename就是你所需要的进程文件名
    
52. 
    
53. MsgBox(jcfilename, mbInformation, MB_OK); //显示给你看下
    
54. end;

复制代码