installshield中杀死某一个进程

/////////////////////////////////////////////////
// Function prototypes.
/////////////////////////////////////////////////

prototype POINTER ArrayToPointer(BYREF VARIANT);
prototype NUMBER  ProcessEnd(STRING);
prototype BOOL    ProcessRunning(STRING);

// Kernel functions.

prototype NUMBER Kernel32.OpenProcess(NUMBER, BOOL, NUMBER);
prototype NUMBER Kernel32.TerminateProcess(NUMBER, NUMBER);

// Process information functions.

prototype NUMBER PSAPI.EnumProcesses(POINTER, NUMBER, BYREF NUMBER);
prototype NUMBER PSAPI.EnumProcessModules(NUMBER, BYREF NUMBER, NUMBER,
        BYREF NUMBER);
prototype NUMBER PSAPI.GetModuleFileNameExA(NUMBER, NUMBER, BYREF STRING,
        NUMBER);

/////////////////////////////////////////////////
// Structures.
/////////////////////////////////////////////////

// Structure to mirror the C/C++ SAFEARRAY data structure.

typedef _SAFEARRAY
begin
    SHORT   cDims;
    SHORT   fFeatures;
    LONG    cbElements;
    LONG    cLocks;
    POINTER pvData;
    // rgsaBound omitted
end;

// Structure to mirror the C/C++ VARIANT data structure.

typedef _VARIANT
begin
    SHORT  vt;
    SHORT  wReserver1;
    SHORT  wReserved2;
    SHORT  wReserved3;
    NUMBER nData;
end;

/////////////////////////////////////////////////
// Constants.
/////////////////////////////////////////////////

#define PSAPI_FILE        "psapi.dll"  // Windows NT process DLL
#define PROCESSID_LENGTH  4            // 4 bytes (DWORD) for a process ID

// Process information constants.

#define PROCESS_QUERY_INFORMATION  0x400
#define PROCESS_ALL_ACCESS         0x1f0fff
#define PROCESS_VM_READ            0x10

//////////////////////////////////////////////////////////////////////////////
//
// Function:    ArrayToPointer
//
// Description: Converts an InstallShield array into a C array.
//
//              When an array is created in InstallScript, a VARIANT variable
//              is created which holds an OLEAutomation SAFEARRAY. To pass
//              such an array to a DLL function expecting a C-style array,
//              this function explicitly typecasts the pointer to the array
//              to a _VARIANT pointer so that the _SAFEARRAY pointer can be
//              extracted. The pointer to the actual data is then extracted
//              from the _SAFEARRAY pointer.
//
// Parameters:  structArray - Array variable.
//
// Returns:     POINTER - Pointer to array.
//
//////////////////////////////////////////////////////////////////////////////

function POINTER ArrayToPointer(structArray)
    _SAFEARRAY POINTER pstructArray;    // _SAFEARRAY array pointer
    _VARIANT   POINTER pstructVariant;  // _VARIANT array pointer
begin
    // Typecast the pointer to the array to a _VARIANT pointer.

    pstructVariant = &structArray;

    // Extract the _SAFEARRAY pointer from the _VARIANT.

    pstructArray = pstructVariant->nData;

    // Return the pointer to the actual data from the _SAFEARRAY.

    return pstructArray->pvData;
end;

//////////////////////////////////////////////////////////////////////////////
//
// Function:    _Process_End
//
// Description: Terminates running processes for the specified application.
//
// Parameters:  szAppName - Name of the application to terminate.
//
// Returns:     >= 0 - Number of processes terminated.
//                -1 - Failure.
//
//////////////////////////////////////////////////////////////////////////////

function NUMBER ProcessEnd(szAppName)
    NUMBER  nvReturn;           // Number of processes terminated
    NUMBER  nvProcessIDs();  // Array of process IDs
    NUMBER  nvBytesReturned;    // Number of bytes returned in process ID array
    NUMBER  nvProcesses;        // Number of processes running
    NUMBER  nvIndex;            // Loop index
    NUMBER  nvProcessHandle;    // Handle to a process
    NUMBER  nvModuleHandle;     // Handle to a process module
    NUMBER  nvBytesRequired;    // Number of bytes required to store values
    POINTER pvProcessIDs;       // Pointer to process ID array
    STRING  svModuleName;       // Module name
    STRING  svFileName;         // Module filename
begin
    // The psapi.dll reads the Windows NT performance database. The DLL
    // is part of the Win32 SDK.

    if UseDLL(WINSYSDIR ^ PSAPI_FILE) <  then
        // Could not load psapi.dll.

        MessageBox("ERROR: Could not load [" + WINSYSDIR ^ PSAPI_FILE +
                "].", SEVERE);

        return -;
    endif;

    // Get the PIDs of all currently running processes.

    pvProcessIDs = ArrayToPointer(nvProcessIDs);

    EnumProcesses(pvProcessIDs, , nvBytesReturned);

    // Determine the number of process IDs retrieved. Each process ID
    // is PROCESSID_LENGTH bytes.

    nvProcesses = nvBytesReturned / PROCESSID_LENGTH;

    // Get the executable associated with each process, and check if
    // its filename matches the one passed to the function.

    for nvIndex =  to nvProcesses
        // Get a handle to the process. The OpenProcess function
        // must have full (all) access to be able to terminate
        // processes.

        nvProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION |
                PROCESS_ALL_ACCESS, , nvProcessIDs(nvIndex));

        if nvProcessHandle !=  then
            // Get a handle to the first module in the process, which
            // should be the executable.

            if EnumProcessModules(nvProcessHandle, nvModuleHandle,
                    PROCESSID_LENGTH, nvBytesRequired) !=  then
                // Get the path of the module.

                if GetModuleFileNameExA(nvProcessHandle, nvModuleHandle,
                        svModuleName, SizeOf(svModuleName)) !=  then
                    // Extract the filename (without an extension) from
                    // the path.

                    ParsePath(svFileName, svModuleName, FILENAME_ONLY);

                    if StrCompare(svFileName, szAppName) =  then
                        // The process module matches the application
                        // name passed to the function.

                        if TerminateProcess(nvProcessHandle, ) >  then
                            nvReturn++;
                        endif;
                    endif;
                endif;
            endif;
        endif;
    endfor;

    if UnUseDLL(PSAPI_FILE) <  then
        MessageBox("ERROR: Could not unload [" + WINSYSDIR ^ PSAPI_FILE +
                "].", SEVERE);

        return -;
    endif;

    return nvReturn;
end;

//////////////////////////////////////////////////////////////////////////////
//
// Function:    _Process_Running
//
// Description: Determines if the specified process is running in memory.
//
// Parameters:  szAppName - Name of the application to check.
//
// Returns:     TRUE  - The process is running.
//              FALSE - The process is not running.
//
//////////////////////////////////////////////////////////////////////////////

function BOOL ProcessRunning(szAppName)
    BOOL    bvRunning;          // Process is running
    NUMBER  nvProcessIDs();  // Array of process IDs
    NUMBER  nvBytesReturned;    // Number of bytes returned in process ID array
    NUMBER  nvProcesses;        // Number of processes running
    NUMBER  nvIndex;            // Loop index
    NUMBER  nvProcessHandle;    // Handle to a process
    NUMBER  nvModuleHandle;     // Handle to a process module
    NUMBER  nvBytesRequired;    // Number of bytes required to store values
    POINTER pvProcessIDs;       // Pointer to process ID array
    STRING  svModuleName;       // Module name
    STRING  svFileName;         // Module filename
begin
    // The psapi.dll reads the Windows NT performance database. The DLL
    // is part of the Win32 SDK.

    if UseDLL(WINSYSDIR ^ PSAPI_FILE) <  then
        // Could not load psapi.dll.

        MessageBox("ERROR: Could not load [" + WINSYSDIR ^ PSAPI_FILE +
                "].", SEVERE);

        return FALSE;
    endif;

    // Get the PIDs of all currently running processes.

    pvProcessIDs = ArrayToPointer(nvProcessIDs);

    EnumProcesses(pvProcessIDs, , nvBytesReturned);

    // Determine the number of process IDs retrieved. Each process ID
    // is PROCESSID_LENGTH bytes.

    nvProcesses = nvBytesReturned / PROCESSID_LENGTH;

    // Get the executable associated with each process, and check if
    // its filename matches the one passed to the function.

    for nvIndex =  to nvProcesses
        // Get a handle to the process.

        nvProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION |
                PROCESS_VM_READ, , nvProcessIDs(nvIndex));

        if nvProcessHandle !=  then
            // Get a handle to the first module in the process, which
            // should be the executable.

            if EnumProcessModules(nvProcessHandle, nvModuleHandle,
                    PROCESSID_LENGTH, nvBytesRequired) !=  then
                // Get the path of the module.

                if GetModuleFileNameExA(nvProcessHandle, nvModuleHandle,
                        svModuleName, SizeOf(svModuleName)) !=  then
                    // Extract the filename (without an extension) from
                    // the path.

                    ParsePath(svFileName, svModuleName, FILENAME_ONLY);

                    if StrCompare(svFileName, szAppName) =  then
                        // The process module matches the application
                        // name passed to the function.

                        bvRunning = TRUE;

                        goto ProcessRunningEnd;
                    endif;
                endif;
            endif;
        endif;
    endfor;

    ProcessRunningEnd:

    if UnUseDLL(PSAPI_FILE) <  then
        MessageBox("ERROR: Could not unload [" + WINSYSDIR ^ PSAPI_FILE +
                "].", SEVERE);

        return FALSE;
    endif;

    return bvRunning;
end;

调用方式：

function KILLNotepad()
    NUMBER  nResult,nSetupType;
    STRING  szTitle, szMsg;
begin    

    if ProcessRunning("notepad") then
        MessageBox("Application is running.", INFORMATION);

        ProcessEnd("notepad");

        Delay();  // Delay to allow process list to refresh

        if ProcessRunning("notepad") then
            MessageBox("Application is running.", INFORMATION);
        else
            MessageBox("Application is not running.", INFORMATION);
        endif;
    else
        MessageBox("Application is not running.", INFORMATION);
    endif;

    abort;

    return ;
end;