inno 判断进程是否记录（win7 64位操作系统等可用）

64位操作系统

//判断程序是否运行

function IsAppRunning(const FileName : string): Boolean;

var

    FSWbemLocator: Variant;

    FWMIService   : Variant;

    FWbemObjectSet: Variant;

begin

    Result := false;

    FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');

    FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');

    FWbemObjectSet := FWMIService.ExecQuery(Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName]));

    Result := (FWbemObjectSet.Count > 0);

    FWbemObjectSet := Unassigned;

    FWMIService := Unassigned;

    FSWbemLocator := Unassigned;

end;