安裝或者卸載時檢測軟件是否在運行

      在測試期間偶然遇到一個問題，有時卸載不乾淨，及時強制刪除也不行，經過多次測試終於發現原來是程序沒退出造成。先前的一個版本是調用IS自帶API FindWindow實現的，而現在情況是，程序運行時間長窗口銷燬了而進程卻在（當然這也是程序本身的問題，但遇到此問題不得不想辦法解決），方案只有一個枚舉進程，看進程是否還在來判斷軟件是否退出，當然這也有一個問題，如果有相同進程名字的程序存在就會出問題。

      在請教了幾位朋友後，得到的答覆是加載外部API來枚舉進程進而獲取進程名，IS幫助給的代碼如下：

/********************************************************************************** /* GetRunningApp(); /* ShutDownApp(); /* /* These script created functions will look for any running application based on /* the file name, then display an error message within the Setup. You can optionally /* halt the install or just continue on. /* /* You can use the ShutDownApp() function for shutting down that process or others /* as well. This is useful for processes that run in the background but have no Windows /* associated with them. May not work with Services. /* /* This script calls functions in PSAPI.DLL that are not supported on Windows 95 or 98. /* /* ***Instructions*** /* Place these script peices into the Setup.rul file. /* /* Modify the script to include the applications you would like to get or shutdown. /* /* Submitted by William F. Snodgrass /* Contact info: [e-mail] /* /* Created by Theron Welch, 3/3/99 /* Minor modifications by Stefan Krueger, 11/03/99 /* /* Copyright (c) 1999-2000 GeoGraphix, Inc. **********************************************************************************/ //////////////////// installation declarations /////////////////// // ----- DLL function prototypes ----- // your DLL function prototypes // Custom function for shutting down MyApp process prototype ShutDownApp(); // Custom function for shutting down any running application prototype GetRunningApp( BYREF STRING ); /////////////////////////////////////////////////////////////////////////////////// // Dll function calls needed // Kernel functions 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 prototype BOOL Kernel32.TerminateProcess( LONG, INT ); // 1st Param = Process ID, 2nd = Doesn't matter - "0" // Process info functions 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" prototype LONG Psapi.GetModuleFileNameExA( LONG, LONG, POINTER, LONG );// 1st Param = ProcessID, 2nd= Module ID, 3rd = pointer to a string, 4th = length of string 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") /////////////////////////////////////////////////////////////////////////////////// // your global variables STRING svApp program if ( 1 == GetRunningApp ( svApp ) ) then MessageBox ( "The installation has detected that " + svApp + " is running. " + "Please close " + svApp + " then restart the installation process.", SEVERE ); abort; endif; if ( 0 == ShutDownProjectManager() ) goto end_install; // This statement is within the Program block and jumps to the "end_install:" switch if the function fails. -WFS endprogram /////////////////////////////////////////////////////////////////////////////////// // // Function: GetRunningApp // // Purpose: This function returns "1" if an app is running. Otherwise "0". // If "1" is returned, the "appName" parameter will contain the name of the // application running. // // Theron Welch 3/3/99 // /////////////////////////////////////////////////////////////////////////////////// function GetRunningApp( appName ) HWND hWnd; LONG ProcessIDs[ 512 ]; // An array that's hopefully big enough to hold all process IDs LONG cbNeeded; LONG cb; LONG numItems; LONG ProcessHandle; LONG ModuleHandle; LONG Count; LONG Ret; LONG Ret2; POINTER pArray; // This pointer will point at the array of process IDs STRING ModuleName[ 128 ]; STRING FileName[ 64 ]; POINTER pModuleName; begin UseDLL ( WINSYSDIR ^ "Psapi.dll" ); // Load the helper dll - PsApi.dll cbNeeded = 96; cb = 8; pArray = &ProcessIDs; // Point at the array while ( cb <= cbNeeded ) cb = cb * 2; EnumProcesses ( pArray, cb, cbNeeded ); // Get the currently running process IDs endwhile; numItems = cbNeeded / 4; // Calculate number of process IDs - 4 is the size in bytes of a Process ID (DWORD) for Count = 1 to numItems // For each process id ProcessHandle = OpenProcess ( 2035711, 1, ProcessIDs[ Count ] ); // Get a handle to the process if ( 0 != ProcessHandle ) then Ret = EnumProcessModules ( ProcessHandle, ModuleHandle, 4, cb ); // Get the module handle - first one is EXE, the one I care about! if ( 0 != Ret ) then pModuleName = &ModuleName; // Point at the array Ret = GetModuleFileNameExA ( ProcessHandle, ModuleHandle, pModuleName, 128 ); // Get the exe name if ( 0 != Ret ) then ParsePath ( FileName, ModuleName, FILENAME_ONLY ); // Convert the full path to a filename //////////////////////////////Outlook///////////////////////////////////////// // Copy the next 5 lines and customize for each app Ret = StrCompare ( FileName, "Outlook" ); if ( 0 == Ret ) then // If there's a match... FileName = "Microsoft Outlook"; // Change to a name that makes sense... appName = FileName; // Copy the filename to the passed in parameter (by ref) return 1; // Return "Found" endif; /////////////////////////////////////////////////////////////////////////////// //////////////////////////////Navwnt///////////////////////////////////////// Ret = StrCompare ( FileName, "Navwnt" ); if ( 0 == Ret ) then // If there's a match... FileName = "Norton Anti-Virus"; // Change to a name that makes sense... appName = FileName; // Copy the filename to the passed in parameter (by ref) return 1; // Return "Found" endif; /////////////////////////////////////////////////////////////////////////////// endif; endif; endif; endfor; return 0; // "Well, uh, apparently, no application is running..." end; /////////////////////////////////////////////////////////////////////////////////// // // Function: ShutDownApp // // Purpose: This function attempts to shut down the app you decide on. It returns // "1" if successful or if app is not running. // Otherwise "0" if it could not be shut down. Install should terminate // if "0" is returned. // // Theron Welch 3/3/99 // /////////////////////////////////////////////////////////////////////////////////// function ShutDownApp() HWND hWnd; LONG ProcessIDs[ 512 ]; // An array that's hopefully big enough to hold all process IDs LONG cbNeeded; LONG cb; LONG numItems; LONG ProcessHandle; LONG ModuleHandle; LONG Count; LONG Ret; LONG Ret2; POINTER pArray; // This pointer will point at the array of process IDs STRING ModuleName[ 128 ]; STRING FileName[ 64 ]; POINTER pModuleName; begin UseDLL ( WINSYSDIR ^ "Psapi.dll" ); // Load the helper dll - PsApi.dll cbNeeded = 96; cb = 8; pArray = &ProcessIDs; // Point at the array while ( cb <= cbNeeded ) cb = cb * 2; EnumProcesses ( pArray, cb, cbNeeded ); // Get the currently running process IDs endwhile; numItems = cbNeeded / 4; // Calculate number of process IDs - 4 is the size in bytes of a Process ID (DWORD) for Count = 1 to numItems // For each process id ProcessHandle = OpenProcess ( 2035711, 1, ProcessIDs[ Count ] ); // Get a handle to the process if ( 0 != ProcessHandle ) then Ret = EnumProcessModules ( ProcessHandle, ModuleHandle, 4, cb ); // Get the module handle - first one is EXE, the one I care about! if ( 0 != Ret ) then pModuleName = &ModuleName; // Point at the array Ret = GetModuleFileNameExA ( ProcessHandle, ModuleHandle, pModuleName, 128 ); // Get the exe name if ( 0 != Ret ) then ParsePath ( FileName, ModuleName, FILENAME ); // Convert the full path to a filename // MessageBox( FileName, INFORMATION ); Ret = StrCompare ( FileName, "MYAPP~1.EXE" ); // Compare filenames (used for short file names. -WFS) Ret2 = StrCompare ( FileName, "MYAPP.exe" ); // Compare filenames if ( 0 == Ret || 0 == Ret2 ) then // If it's the filename I'm looking for... Ret = TerminateProcess( ProcessHandle, 0 ); // Terminate the process if ( 0 == Ret ) then goto Error; endif; goto Quit; endif; endif; endif; endif; endfor; Quit: UnUseDLL ( "Psapi.dll" ); // Unload the helper dll - PsApi.dll return 1; // Happy Error: UnUseDLL ( "Psapi.dll" ); // Unload the helper dll - PsApi.dll return 0; // Sad end;  

 

至此又一個問題出現EnumProcessModules得到進程句柄是正確的，但獲取GetModuleFileNameExA卻是空，實在無奈。。。在多次檢查不出問題的時候，果斷用另一種方法，代碼如下：

 

function BOOL ProcessRunning(szAppName) STRING svFileName; // Module filename POINTER procSnap; LONG Ret; BOOL bRet; PROCESSENTRY32 procEntry; PROCESSENTRY32 POINTER pPe2; begin procSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); if (procSnap == INVALID_HANDLE_VALUE) then return FALSE; endif; pPe2 = &procEntry; pPe2->dwSize = 552; bRet = Process32First(procSnap,pPe2); while(bRet) svFileName = pPe2->szExeFile; if StrCompare(svFileName, szAppName) = 0 then return TRUE; endif; bRet = Process32Next(procSnap, pPe2); endwhile; CloseHandle (procSnap); //CloseHandle(procSnap); return FALSE; end;

 

typedef PROCESSENTRY32 begin int dwSize; int cntUsage; int th32ProcessID; // this process int th32DefaultHeapID; int th32ModuleID; // associated exe int cntThreads; int th32ParentProcessID; // this process's parent process LONG pcPriClassBase; // Base priority of process's threads int dwFlags; STRING szExeFile[MAX_PATH]; // Path end;

 

在調用時先聲明外部函數，註冊DLL即可，至此問題結束。至於是枚舉窗口還是進程都有根據實際情況來定。。。