Есть небольшая загвоздка по правильности работы 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 Sub Form_Load()
    Dim RestartCmd As String
    
    RestartCmd = "-r"
    
    Print RegisterApplicationRestart(StrPtr(RestartCmd), 0)
End Sub

Option Explicit
Private Declare Function PrivilegeCheck Lib "advapi32.dll" (ByVal ClientToken As Long, RequiredPrivileges As Any, ByVal pfResult As Long) As Long
Private Declare Function RegisterApplicationRestart Lib "kernel32" (ByVal pszCommandline As Long, ByVal dwFlags As Long) As Long
 
Dim Seconds As Long ' Секундочки
 
Private Sub Command1_Click()
    If CLng(Timer - Seconds) > 60 Then ' Если прошло больше 60 секунд
        ' Специально вызываю самую глючную функцию PrivilegeCheck (позор Microsoft'у) для вызова необратимого исключения в приложении
        PrivilegeCheck 0, 0, 0
    Else
        MsgBox "Подождите ещё чуток :-)" & vbCrLf & "Прошло только " & CLng(Timer - Seconds) & " сек.", vbInformation
    End If
End Sub
 
Private Sub Form_Load()
    Dim RestartCmd As String
    
    Seconds = CLng(Timer) ' Засекаем время
    RestartCmd = "-r" ' Придумываем команду перезапуска
    
    Me.AutoRedraw = True
    Print RegisterApplicationRestart(StrPtr(RestartCmd), 0) ' Регистрируем программу к перезапуску
    Print Chr(34) & Command$ & Chr(34)
End Sub

Private Declare Function GetApplicationRestartSettings Lib "kernel32" (ByVal hProcess As Long, pwzCommandline As Any, pcchSize As Long, pdwFlags As Long) As Long