Installshield 在安装或者卸载过程中，判断某一程序是否正在运行

1.在操作时，首先引入类库ShutDownRunningApp.rul，其中ShutDownRunningApp.rul代码如下

//////////////////////////////////////////////////////////////////////////////
//
// Description: WindowsNT process control functions.
//
//              The process code is adapted fromcode posted by William F.
//              Snodgrass to www.installsite.org.The original code header
//              is appended below. The array codeis adapted from code posted
//              by Rajesh Ramachandran to theinstallshield.is6.installscript
//              newsgroup.
//
// Submitted by RichardIwasa (riwasa@email.com).
//
// Usage example:
//
// ifProcessRunning("notepad") then
//        MessageBox("Application isrunning.", INFORMATION);
//
//        ProcessEnd("notepad");
//
//      Delay(2); // Delay to allow process list to refresh
//
//        if ProcessRunning("notepad")then
//            MessageBox("Application isrunning.", INFORMATION);
//        else
//            MessageBox("Application is notrunning.", INFORMATION);
//        endif;
//    else
//        MessageBox("Application is notrunning.", INFORMATION);
//    endif;
//
// Original code headerappended below:
//
// GetRunningApp();
// ShutDownApp();
//
// These script createdfunctions will look for any running application
// based on the filename, then display an error message within the Setup.
// You can optionally haltthe install or just continue on.
//
// You can use theShutDownApp() function for shutting down that process
// or others as well.This is useful for processes that run in the
// background but haveno Windows associated with them. May not work with
// Services.
//
// This script callsfunctions in PSAPI.DLL that are not supported on
// Windows 95 or 98.
//
// ***Instructions***
// Place these scriptpeices into the Setup.rul file.
//
// Modify the script toinclude the applications you would like to get or
// shutdown.
//
// Submitted by WilliamF. Snodgrass
// Contact info:bsnodgrass@geographix.com
//
// Created by TheronWelch, 3/3/99
// Minor modificationsby Stefan Krueger, 11/03/99
//
// Copyright (c)1999-2000 GeoGraphix, Inc.
//
//////////////////////////////////////////////////////////////////////////////

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

prototype POINTERArrayToPointer(BYREF VARIANT);
prototype NUMBER  ProcessEnd(STRING);
prototype BOOL    ProcessRunning(STRING);

// Kernel functions.

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

// Process informationfunctions.

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

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

// Structure to mirrorthe C/C++ SAFEARRAY data structure.

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

// Structure to mirrorthe 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 informationconstants.

#definePROCESS_QUERY_INFORMATION  0x400
#definePROCESS_ALL_ACCESS         0x1f0fff
#definePROCESS_VM_READ            0x10

//////////////////////////////////////////////////////////////////////////////
//
// Function:    ArrayToPointer
//
// Description: Convertsan InstallShield array into a C array.
//
//              When an array is created inInstallScript, a VARIANT variable
//              is created which holds anOLEAutomation SAFEARRAY. To pass
//              such an array to a DLL functionexpecting a C-style array,
//              this function explicitlytypecasts the pointer to the array
//              to a _VARIANT pointer so that the_SAFEARRAY pointer can be
//              extracted. The pointer to theactual data is then extracted
//              from the _SAFEARRAY pointer.
//
// Parameters:  structArray - Array variable.
//
// Returns:     POINTER - Pointer to array.
//
//////////////////////////////////////////////////////////////////////////////

function POINTERArrayToPointer(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 datafrom the _SAFEARRAY.

    return pstructArray->pvData;
end;

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

function NUMBERProcessEnd(szAppName)
    NUMBER nvReturn;           // Number ofprocesses terminated
    NUMBER nvProcessIDs(512);  // Array ofprocess IDs
    NUMBER nvBytesReturned;    // Number ofbytes returned in process ID array
    NUMBER nvProcesses;        // Number ofprocesses running
    NUMBER nvIndex;            // Loop index
    NUMBER nvProcessHandle;    // Handle to aprocess
    NUMBER nvModuleHandle;     // Handle to aprocess module
    NUMBER nvBytesRequired;    // Number ofbytes required to store values
    POINTER pvProcessIDs;       // Pointer to process ID array
    STRING svModuleName;       // Module name
    STRING svFileName;         // Modulefilename
begin
    // The psapi.dll reads the Windows NTperformance database. The DLL
    // is part of the Win32 SDK.

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

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

        return -1;
    endif;

    // Get the PIDs of all currently runningprocesses.

    pvProcessIDs =ArrayToPointer(nvProcessIDs);

    EnumProcesses(pvProcessIDs, 512,nvBytesReturned);

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

    nvProcesses = nvBytesReturned /PROCESSID_LENGTH;

    // Get the executable associated with eachprocess, and check if
    // its filename matches the one passed tothe function.

    for nvIndex = 1 to nvProcesses
        // Get a handle to the process. TheOpenProcess function
        // must have full (all) access to beable to terminate
        // processes.

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

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

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

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

                    ParsePath(svFileName,svModuleName, FILENAME_ONLY);

                    if StrCompare(svFileName,szAppName) = 0 then
                        // The process modulematches the application
                        // name passed to thefunction.

                        ifTerminateProcess(nvProcessHandle, 0) > 0 then
                            nvReturn++;
                        endif;
                    endif;
                endif;
            endif;
        endif;
    endfor;

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

        return -1;
    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 notrunning.
//
//////////////////////////////////////////////////////////////////////////////

function BOOLProcessRunning(szAppName)
    BOOL   bvRunning;          // Process isrunning
    NUMBER nvProcessIDs(512);  // Array ofprocess IDs
    NUMBER nvBytesReturned;    // Number ofbytes returned in process ID array
    NUMBER nvProcesses;        // Number ofprocesses running
    NUMBER nvIndex;            // Loop index
    NUMBER nvProcessHandle;    // Handle to aprocess
    NUMBER nvModuleHandle;     // Handle to aprocess module
    NUMBER nvBytesRequired;    // Number ofbytes required to store values
    POINTER pvProcessIDs;       // Pointer to process ID array
    STRING svModuleName;       // Module name
    STRING svFileName;         // Modulefilename
begin
    // The psapi.dll reads the Windows NTperformance database. The DLL
    // is part of the Win32 SDK.

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

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

        return FALSE;
    endif;

    // Get the PIDs of all currently runningprocesses.

    pvProcessIDs =ArrayToPointer(nvProcessIDs);

    EnumProcesses(pvProcessIDs, 512,nvBytesReturned);

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

    nvProcesses = nvBytesReturned /PROCESSID_LENGTH;

    // Get the executable associated with eachprocess, and check if
    // its filename matches the one passed tothe function.

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

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

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

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

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

                    ParsePath(svFileName,svModuleName, FILENAME_ONLY);

                    if StrCompare(svFileName,szAppName) = 0 then
                        // The process modulematches the application
                        // name passed to thefunction.

                        bvRunning = TRUE;

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

    ProcessRunningEnd:

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

        return FALSE;
    endif;

    return bvRunning;
end;

2.然后Setup.rul 代码如下：

//===========================================================================
//
//  File Name:   Setup.rul
//
//  Description: Blank setup main script file
//
//  Comments:    Blank setup is an empty setup project. If you want to
//             create a new project via. step-by step instructions use the
//             Project Assistant.
//
//===========================================================================

// Included header files----------------------------------------------------
#include"ifx.h"
#include"ShutDownRunningApp.rul"
// Note: In order tohave your InstallScript function executed as a custom
// action by the WindowsInstaller, it must be prototyped as an
// entry-point function.

// The keyword exportidentifies MyFunction() as an entry-point function.
// The argument itaccepts must be a handle to the Installer database.

/* export prototypeMyFunction(HWND); */

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

    if ProcessRunning("SOMME") then
        MessageBox("Application isrunning.", INFORMATION);

        ProcessEnd("SOMME");

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

        if ProcessRunning("SOMME")then
            MessageBox("Application isrunning.", INFORMATION);
        else
            MessageBox("Application is notrunning.", INFORMATION);
        endif;
    else
        MessageBox("Application is notrunning.", INFORMATION);
    endif;

    abort;

    // TO DO: if you want to enable background,window title, and caption bar title
    // SetTitle( @TITLE_MAIN, 24, WHITE );
    // SetTitle( @TITLE_CAPTIONBAR, 0,BACKGROUNDCAPTION );
    // Enable( FULLWINDOWMODE );
    // Enable( BACKGROUND );
    // SetColor(BACKGROUND,RGB (0, 128,128));                       

    TARGETDIR = PROGRAMFILES ^@COMPANY_NAME^@PRODUCT_NAME;    

Dlg_Start:
    // beginning of dialogs label

Dlg_ObjDialogs:
    nResult = ShowObjWizardPages(nResult);
    if (nResult = BACK) goto Dlg_Start;

    // setup default status
    SetStatusWindow(0, "");
    Enable(STATUSEX);
    StatusUpdate(ON, 100);

    return 0;
end;

//////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:  OnFirstUIAfter
//
//  EVENT:     FirstUIAfter event is sent after file transfer, when installation
//              is run for the first time ongiven machine. In this event handler
//              installation usually displays UIthat will inform end user that
//              installation has been completedsuccessfully.
//
///////////////////////////////////////////////////////////////////////////////
functionOnFirstUIAfter()
begin
    Disable(STATUSEX);

    ShowObjWizardPages(NEXT);
end;

///////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:  OnMaintUIAfter
//
//  EVENT:     MaintUIAfter event is sent after file transfer, when end user runs
//              installation that has alreadybeen installed on the machine. Usually
//              this happens through Add/RemovePrograms applet.
//              In the handler installationusually displays UI that will inform
//              end user thatmaintenance/uninstallation has been completed successfully.
//
///////////////////////////////////////////////////////////////////////////////
functionOnMaintUIAfter()
begin
    Disable(STATUSEX);                                               

    ShowObjWizardPages(NEXT);
end;

///////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:  OnMoving
//
//  EVENT:     Moving event is sent when file transfer is started as a result of
//              ComponentTransferData call,before any file transfer operations
//              are performed.
//
///////////////////////////////////////////////////////////////////////////////
function OnMoving()
    STRING szAppPath;
begin
    // Set LOGO Compliance Application Path
    // TO DO : if your application .exe is in asubfolder of TARGETDIR then add subfolder
    szAppPath = TARGETDIR;
    RegDBSetItem(REGDB_APPPATH, szAppPath);
    RegDBSetItem(REGDB_APPPATH_DEFAULT,szAppPath ^ @PRODUCT_KEY);
end;      

//---------------------------------------------------------------------------
// OnBegin
//
// The OnBegin event iscalled directly by the framework after the setup
// initializes.
//---------------------------------------------------------------------------
function OnBegin()
begin

        Disable (BACKBUTTON);
        if(!MAINTENANCE)then
        SdLicense2 ("License ", "Yes","False",SUPPORTDIR^"2.txt", FALSE);
        endif;  

end;