Installshield停止操作系统进程的代码--IS5版本适用

admin

1. /**********************************************************************************
   
2. /* GetRunningApp();
   
3. /* ShutDownApp();
   
4. /*
   
5. /* These script created functions will look for any running application based on
   
6. /* the file name, then display an error message within the Setup. You can optionally
   
7. /* halt the install or just continue on.
   
8. /*
   
9. /* You can use the ShutDownApp() function for shutting down that process or others
   
10. /* as well. This is useful for processes that run in the background but have no Windows
    
11. /* associated with them. May not work with Services.
    
12. /*
    
13. /* This script calls functions in PSAPI.DLL that are not supported on Windows 95 or 98.
    
14. /*
    
15. /* ***Instructions***
    
16. /* Place these script peices into the Setup.rul file.
    
17. /*
    
18. /* Modify the script to include the applications you would like to get or shutdown.
    
19. /*
    
20. /* Submitted by William F. Snodgrass
    
21. /* Contact info: bsnodgrass@geographix.com
    
22. /*
    
23. /* Created by Theron Welch, 3/3/99
    
24. /* Minor modifications by Stefan Krueger, 11/03/99
    
25. /*
    
26. /* Copyright (c) 1999-2000 GeoGraphix, Inc.
    
27. **********************************************************************************/
    
28. 
    
29. //////////////////// installation declarations ///////////////////
    
30. 
    
31. // ----- DLL function prototypes -----
    
32. 
    
33. // your DLL function prototypes
    
34.    
    
35. // Custom function for shutting down MyApp process
    
36. prototype ShutDownApp();
    
37. 
    
38. // Custom function for shutting down any running application
    
39. prototype GetRunningApp( BYREF STRING );
    
40. 
    
41. ///////////////////////////////////////////////////////////////////////////////////
    
42. // Dll function calls needed
    
43. 
    
44. // Kernel functions
    
45. prototype LONG Kernel32.OpenProcess( LONG, BOOL, LONG ); // 1ST Param = 2035711 for PROCESS_ALL_ACCESS (It pays to know hex!!), 2nd = Doesn't matter, 3rd = Process ID
    
46. prototype BOOL Kernel32.TerminateProcess( LONG, INT );   // 1st Param = Process ID, 2nd = Doesn't matter - "0"
    
47. 
    
48. // Process info functions
    
49. prototype LONG Psapi.EnumProcesses( POINTER, LONG, BYREF LONG );  // 1st Param = By ref, Process ID, 2nd = number of bytes in param 1 = "4", 3rd = cb needed - might as well be "4"
    
50. prototype LONG Psapi.GetModuleFileNameExA( LONG, LONG, POINTER, LONG );// 1st Param = ProcessID, 2nd= Module ID, 3rd = pointer to a string, 4th = length of string
    
51. prototype LONG Psapi.EnumProcessModules( LONG, BYREF LONG, LONG, BYREF LONG ); // 1st Param = Process Handle, 2nd = Module Handle, 3rd = bytes passed ("4"), 4th = bytes needed ("4")
    
52. ///////////////////////////////////////////////////////////////////////////////////
    
53. 
    
54. // your global variables
    
55. STRING    svApp
    
56. 
    
57. program
    
58. 
    
59.    if ( 1 == GetRunningApp ( svApp ) ) then
    
60.         MessageBox ( "The installation has detected that " + svApp + " is running. " +
    
61.                  "Please close " + svApp + " then restart the installation process.", SEVERE );
    
62.         abort;
    
63.    endif;
    
64.    
    
65.    if ( 0 == ShutDownProjectManager() ) goto end_install; // This statement is within the Program block and jumps to the
    
66.                                    "end_install:" switch if the function fails. -WFS
    
67.                                    
    
68. endprogram
    
69. 
    
70. ///////////////////////////////////////////////////////////////////////////////////
    
71. //
    
72. // Function: GetRunningApp
    
73. //
    
74. // Purpose: This function returns "1" if an app is running.  Otherwise "0".
    
75. //    If "1" is returned, the "appName" parameter will contain the name of the
    
76. //    application running.
    
77. //
    
78. // Theron Welch 3/3/99
    
79. //
    
80. ///////////////////////////////////////////////////////////////////////////////////
    
81. function GetRunningApp( appName )
    
82.     HWND hWnd;
    
83.     LONG ProcessIDs[ 512 ];                // An array that's hopefully big enough to hold all process IDs
    
84.     LONG cbNeeded;
    
85.     LONG cb;
    
86.     LONG numItems;
    
87.     LONG ProcessHandle;
    
88.     LONG ModuleHandle;
    
89.     LONG Count;
    
90.     LONG Ret;
    
91.     LONG Ret2;
    
92.     POINTER pArray;                    // This pointer will point at the array of process IDs
    
93.     STRING ModuleName[ 128 ];
    
94.     STRING FileName[ 64 ];
    
95.     POINTER pModuleName;
    
96. begin
    
97. 
    
98.     UseDLL ( WINSYSDIR ^ "Psapi.dll" );    // Load the helper dll - PsApi.dll
    
99.    
    
100.     cbNeeded = 96;
     
101.     cb = 8;
     
102.    
     
103.     pArray = &ProcessIDs;                // Point at the array
     
104.    
     
105.     while ( cb <= cbNeeded )
     
106.         cb = cb * 2;
     
107.         EnumProcesses ( pArray, cb, cbNeeded ); // Get the currently running process IDs
     
108.     endwhile;
     
109.     numItems = cbNeeded / 4;            // Calculate number of process IDs - 4 is the size in bytes of a Process ID (DWORD)
     
110.         
     
111.     for Count = 1 to numItems            // For each process id
     
112. 
     
113.         ProcessHandle = OpenProcess ( 2035711, 1, ProcessIDs[ Count ] ); // Get a handle to the process
     
114.         if ( 0 != ProcessHandle ) then
     
115.             
     
116.             Ret = EnumProcessModules ( ProcessHandle, ModuleHandle, 4, cb ); // Get the module handle - first one is EXE, the one I care about!
     
117.             if ( 0 != Ret ) then
     
118. 
     
119.                 pModuleName = &ModuleName;    // Point at the array
     
120.                 Ret = GetModuleFileNameExA ( ProcessHandle, ModuleHandle, pModuleName, 128 ); // Get the exe name
     
121.                 if ( 0 != Ret ) then
     
122.                
     
123.                     ParsePath ( FileName, ModuleName, FILENAME_ONLY ); // Convert the full path to a filename
     
124. 
     
125.                     //////////////////////////////Outlook/////////////////////////////////////////
     
126.                     // Copy the next 5 lines and customize for each app
     
127.                     Ret = StrCompare ( FileName, "Outlook" );
     
128.                     if ( 0 == Ret  ) then    // If there's a match
     
129.                         FileName = "Microsoft Outlook"; // Change to a name that makes sense
     
130.                         appName = FileName;        // Copy the filename to the passed in parameter (by ref)
     
131.                         return 1;            // Return "Found"
     
132.                     endif;
     
133.                     ///////////////////////////////////////////////////////////////////////////////
     
134. 
     
135.                     //////////////////////////////Navwnt/////////////////////////////////////////
     
136.                     Ret = StrCompare ( FileName, "Navwnt" );
     
137.                     if ( 0 == Ret  ) then    // If there's a match
     
138.                         FileName = "Norton Anti-Virus"; // Change to a name that makes sense
     
139.                         appName = FileName;        // Copy the filename to the passed in parameter (by ref)
     
140.                         return 1;            // Return "Found"
     
141.                     endif;
     
142.                     ///////////////////////////////////////////////////////////////////////////////
     
143.                 endif;
     
144.             endif;
     
145.         endif;
     
146.     endfor;   
     
147.     return 0;    // "Well, uh, apparently, no application is running"
     
148. end;
     
149. 
     
150. ///////////////////////////////////////////////////////////////////////////////////
     
151. //
     
152. // Function: ShutDownApp
     
153. //
     
154. // Purpose: This function attempts to shut down the app you decide on.  It returns
     
155. //        "1" if successful or if app is not running.
     
156. //        Otherwise "0" if it could not be shut down.  Install should terminate
     
157. //        if "0" is returned.
     
158. //
     
159. // Theron Welch 3/3/99
     
160. //
     
161. ///////////////////////////////////////////////////////////////////////////////////
     
162. 
     
163. function ShutDownApp()
     
164.     HWND hWnd;
     
165.     LONG ProcessIDs[ 512 ];                // An array that's hopefully big enough to hold all process IDs
     
166.     LONG cbNeeded;
     
167.     LONG cb;
     
168.     LONG numItems;
     
169.     LONG ProcessHandle;
     
170.     LONG ModuleHandle;
     
171.     LONG Count;
     
172.     LONG Ret;
     
173.     LONG Ret2;
     
174.     POINTER pArray;                    // This pointer will point at the array of process IDs
     
175.     STRING ModuleName[ 128 ];
     
176.     STRING FileName[ 64 ];
     
177.     POINTER pModuleName;
     
178. begin
     
179. 
     
180.     UseDLL ( WINSYSDIR ^ "Psapi.dll" );        // Load the helper dll - PsApi.dll
     
181.    
     
182.     cbNeeded = 96;
     
183.     cb = 8;
     
184.    
     
185.     pArray = &ProcessIDs;                // Point at the array
     
186.    
     
187.     while ( cb <= cbNeeded )
     
188.         cb = cb * 2;
     
189.         EnumProcesses ( pArray, cb, cbNeeded ); // Get the currently running process IDs
     
190.     endwhile;
     
191.     numItems = cbNeeded / 4;            // Calculate number of process IDs - 4 is the size in bytes of a Process ID (DWORD)
     
192.         
     
193.     for Count = 1 to numItems            // For each process id
     
194. 
     
195.         ProcessHandle = OpenProcess ( 2035711, 1, ProcessIDs[ Count ] ); // Get a handle to the process
     
196.         if ( 0 != ProcessHandle ) then
     
197.             
     
198.             Ret = EnumProcessModules ( ProcessHandle, ModuleHandle, 4, cb ); // Get the module handle - first one is EXE, the one I care about!
     
199.             if ( 0 != Ret ) then
     
200. 
     
201.                 pModuleName = &ModuleName;    // Point at the array
     
202.                 Ret = GetModuleFileNameExA ( ProcessHandle, ModuleHandle, pModuleName, 128 ); // Get the exe name
     
203.                 if ( 0 != Ret ) then
     
204.                
     
205.                     ParsePath ( FileName, ModuleName, FILENAME );     // Convert the full path to a filename
     
206.                     // MessageBox( FileName, INFORMATION );
     
207.                     Ret = StrCompare ( FileName, "MYAPP~1.EXE" );    // Compare filenames (used for short file names. -WFS)
     
208.                     Ret2 = StrCompare ( FileName, "MYAPP.exe" );    // Compare filenames
     
209.                     if ( 0 == Ret || 0 == Ret2 ) then            // If it's the filename I'm looking for
     
210.                         Ret = TerminateProcess( ProcessHandle, 0 );    // Terminate the process
     
211.                         if ( 0 == Ret ) then
     
212.                             goto Error;
     
213.                         endif;
     
214.                         goto Quit;
     
215.                 endif;
     
216.                
     
217.                 endif;
     
218.                
     
219.             endif;
     
220.                
     
221.         endif;
     
222. 
     
223.     endfor;   
     
224.    
     
225.     Quit:
     
226.    
     
227.     UnUseDLL ( "Psapi.dll" );    // Unload the helper dll - PsApi.dll                    
     
228.     return 1;    // Happy
     
229.    
     
230.     Error:
     
231.    
     
232.     UnUseDLL ( "Psapi.dll" );    // Unload the helper dll - PsApi.dll                    
     
233.     return 0;    // Sad
     
234. 
     
235. end;

复制代码