Есть небольшая загвоздка по правильности работы Restart Manager API в Windows 7 (64 bit)

' Подключен ли процесс к диспетчеру перезапуска
Public Function IsProcessRestartable(pid As Long) As Boolean
    Dim SessionHandle As Long
    Dim key As String
    Dim rm As RM_UNIQUE_PROCESS
    Dim ProcInfoNeeded As Long
    Dim ProcInfoNeeded2 As Long
    Dim RebootReasons As Long
    Dim ProcessInfo() As RM_PROCESS_INFO
    Dim ret As Long
    Dim i As Long
    
    rm.dwProcessId = pid ' Установить pid
    key = Space$(256)
    
    If RmStartSession(SessionHandle, 0, StrPtr(key)) = ERROR_SUCCESS Then
        key = Trim$(key)
        
        If RmRegisterResources(SessionHandle, ByVal 0&, ByVal 0&, 1, rm, ByVal 0&, ByVal 0&) = ERROR_SUCCESS Then
            ReDim ProcessInfo(0)
            ret = RmGetList(SessionHandle, ProcInfoNeeded, 1, ProcessInfo(0), RebootReasons)
            
            If ret = ERROR_MORE_DATA Then ' Буфер слишком мал
                ReDim Preserve ProcessInfo(ProcInfoNeeded - 1) ' Увеличиваем буфер
                ret = RmGetList(SessionHandle, ProcInfoNeeded2, ProcInfoNeeded, ProcessInfo(0), RebootReasons) ' Повторяем попытку
            End If
            If ret = ERROR_SUCCESS Then ' Если нету ошибок
                For i = 0 To UBound(ProcessInfo)
                    If ProcessInfo(i).Process.dwProcessId = pid Then
                        IsProcessRestartable = ProcessInfo(i).bRestartable
                        Exit For
                    End If
                Next
            End If
        End If
        
        RmEndSession SessionHandle
    End If
End Function

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetApplicationRestartSettings Lib "kernel32" (ByVal hProcess As Long, pwzCommandline As Any, ByRef pcchSize As Long, ByRef pdwFlags As Long) As Long
 
Public Function IsProcessRestartableCommandLine(pid As Long) As String
    Dim hProc As Long
    Dim BuferSize As Long
    Dim dwFlags As Long
    Dim bufer() As Byte
    
    hProc = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, False, pid)
    
    If hProc > 0 Then
        GetApplicationRestartSettings hProc, ByVal 0&, BuferSize, dwFlags
        
        If BuferSize > 0 Then
            ReDim Preserve bufer(BuferSize)
            
            GetApplicationRestartSettings hProc, bufer(0), BuferSize, dwFlags
            
            IsProcessRestartableCommandLine = bufer
        End If
        
        CloseHandle hProc
    End If
End Function

Option Explicit
 
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const PROCESS_VM_READ As Long = &H10
 
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetApplicationRestartSettings Lib "kernel32" (ByVal hProcess As Long, ByVal pwzCommandline As Long, ByRef pcchSize As Long, ByRef pdwFlags As Long) As Long
 
Public Function IsProcessRestartableCommandLine(ByVal pid As Long) As String
    Dim hProc As Long
    Dim BuferSize As Long
    Dim dwFlags As Long
 
    hProc = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, False, pid)
    
    If hProc > 0 Then
        
        If GetApplicationRestartSettings(hProc, ByVal 0&, BuferSize, dwFlags) >= 0 Then
            
            If BuferSize > 0 Then
                
                IsProcessRestartableCommandLine = Space$(BuferSize - 1)
                
                If GetApplicationRestartSettings(hProc, StrPtr(IsProcessRestartableCommandLine), BuferSize, dwFlags) < 0 Then
                    IsProcessRestartableCommandLine = vbNullString
                End If
    
            End If
            
        End If
        
        CloseHandle hProc
        
    End If
    
End Function

Public Function IsProcessRestartableCommandLine(pid As Long) As String
    Dim hProc As Long
    Dim BuferSize As Long
    Dim dwFlags As Long
    Dim CmdLine As String
    'Dim bufer() As Byte (это уже не надо)
    
    hProc = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, False, pid)
    
    If hProc > 0 Then
        Form1.Caption = GetApplicationRestartSettings(hProc, ByVal 0&, BuferSize, dwFlags)
        
        If BuferSize > 0 Then
            CmdLine = String$(BuferSize, vbNullChar)
            
            GetApplicationRestartSettings hProc, ByVal StrPtr(CmdLine), BuferSize, dwFlags
            CmdLine = Replace(CmdLine, vbNullChar, vbNullString)
            IsProcessRestartableCommandLine = CmdLine
        End If
        
        CloseHandle hProc
    End If
End Function

Public Function IsProcessRestartableCommandLine(pid As Long) As String
    Dim hProc As Long
    Dim BuferSize As Long
    Dim dwFlags As Long
    Dim CmdLine As String
    
    hProc = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, False, pid)
    
    If hProc > 0 Then
        GetApplicationRestartSettings hProc, ByVal 0&, BuferSize, dwFlags
        
        If BuferSize > 0 Then
            CmdLine = String$(BuferSize - 1, vbNullChar)
            
            GetApplicationRestartSettings hProc, StrPtr(CmdLine), BuferSize, dwFlags
            IsProcessRestartableCommandLine = CmdLine
        End If
        
        CloseHandle hProc
    End If
End Function