Public Function ReplaceBlockedFile(ByVal file_name As String, ByRef err_text As String) As Boolean
    ReplaceBlockedFile = True

    Dim pSessionHandle As Integer
    Dim strSessionKey As String = StrDup(255, Chr(0))
    Dim dwRes As Integer
    dwRes = RmStartSession(pSessionHandle, 0, strSessionKey)
    If dwRes <> ERROR_SUCCESS Then
      ReplaceBlockedFile = False
      err_text = "RmStartSession Error " & RaiseAPIErrorByNumber(dwRes)
      GoTo ToExit
    End If
    If InStr(strSessionKey, Chr(0)) > 0 Then
      strSessionKey = Strings.Left(strSessionKey, InStr(strSessionKey, Chr(0)) - 1)
    End If
    Debug.Print("pSessionHandle=" & CStr(pSessionHandle) & ";strSessionKey=" & strSessionKey)

    Dim rgsFilenames As String() = New String() {file_name}
    dwRes = RmRegisterResources(pSessionHandle, 1, rgsFilenames, 0, Nothing, 0, Nothing)
    If dwRes <> ERROR_SUCCESS Then
      ReplaceBlockedFile = False
      err_text = "RmRegisterResources Error " & RaiseAPIErrorByNumber(dwRes)
      GoTo ToExit
    End If

    Dim pnProcInfoNeeded As Integer = 0
    Dim pnProcInfo As Integer = 0
    Dim lpdwRebootReasons As RM_REBOOT_REASON = RM_REBOOT_REASON.RmRebootReasonNone
    ' the first call to RmGetList() returns the total number of processes
    dwRes = RmGetList(pSessionHandle, pnProcInfoNeeded, pnProcInfo, Nothing, lpdwRebootReasons)
    If dwRes = ERROR_MORE_DATA Then
      ' Create an array to store the processes results
      Dim processInfo As RM_PROCESS_INFO() = New RM_PROCESS_INFO(pnProcInfoNeeded - 1) {}
      pnProcInfo = pnProcInfoNeeded
      ' Get the list
      dwRes = RmGetList(pSessionHandle, pnProcInfoNeeded, pnProcInfo, processInfo, lpdwRebootReasons)
      If dwRes <> ERROR_SUCCESS Then
        ReplaceBlockedFile = False
        err_text = "RmGetList(2) Error " & RaiseAPIErrorByNumber(dwRes)
        GoTo ToExit
      End If

      'Enumerate all of the results
      For i As Integer = 0 To pnProcInfo - 1
        MsgBox(processInfo(i).Process.dwProcessId)
      Next

    ElseIf dwRes <> ERROR_SUCCESS Then
      ReplaceBlockedFile = False
      err_text = "RmGetList(1) Error " & RaiseAPIErrorByNumber(dwRes)
      GoTo ToExit
    End If



ToExit:
    dwRes = RmEndSession(pSessionHandle)
    If dwRes <> ERROR_SUCCESS Then
      Debug.Print("RmStartSession Error " & RaiseAPIErrorByNumber(dwRes))
    End If
  End Function

  Public Function kill_by_pid(ByVal pid As Integer, ByRef err_text As String) As Boolean
    Dim handle As IntPtr
    handle = OpenProcess(SYNCHRONIZE Or PROCESS_TERMINATE, True, pid)
    If handle = IntPtr.Zero Then
      err_text = "OpenProcess Error " & RaiseAPIError()
      Return False
    End If

    If TerminateProcess(handle, 0) = False Then
      err_text = "TerminateProcess Error " & RaiseAPIError()
      Return False
    Else
      Return True
    End If
  End Function

processInfo(i).ApplicationType

  Public Enum RM_APP_TYPE
    RmUnknownApp = 0
    RmMainWindow = 1
    RmOtherWindow = 2
    RmService = 3
    RmExplorer = 4
    RmConsole = 5
    RmCritical = 1000
  End Enum

    ...
    Dim pnProcInfoNeeded As Integer = 0
    Dim pnProcInfo As Integer = 0
    Dim lpdwRebootReasons As RM_REBOOT_REASON = RM_REBOOT_REASON.RmRebootReasonNone
    ' the first call to RmGetList() returns the total number of processes
    dwRes = RmGetList(pSessionHandle, pnProcInfoNeeded, pnProcInfo, Nothing, lpdwRebootReasons)
    If dwRes = ERROR_MORE_DATA Then
      ' Create an array to store the processes results
      Dim processInfo As RM_PROCESS_INFO() = New RM_PROCESS_INFO(pnProcInfoNeeded - 1) {}
      pnProcInfo = pnProcInfoNeeded
      ' Get the list
      dwRes = RmGetList(pSessionHandle, pnProcInfoNeeded, pnProcInfo, processInfo, lpdwRebootReasons)
      If dwRes <> ERROR_SUCCESS Then
        ReplaceBlockedFile = False
        err_text = "RmGetList(2) Error " & RaiseAPIErrorByNumber(dwRes)
        GoTo ToExit
      End If

      'Enumerate all of the results
      For i As Integer = 0 To pnProcInfo - 1
        MsgBox(processInfo(i).strAppName)
        'If kill_by_pid(processInfo(i).Process.dwProcessId, err_text) = False Then
        '  ReplaceBlockedFile = False
        '  GoTo ToExit
        'End If
      Next

      'https://msdn.microsoft.com/en-us/library/windows/desktop/aa373682(v=vs.85).aspx
      'http://community.bartdesmet.net/blogs/bart/archive/2006/11/12/Exploring-Windows-Vista_2700_s-Restart-Manager-in-C_2300_.aspx

      If lpdwRebootReasons <> RM_REBOOT_REASON.RmRebootReasonNone Then
        ' Restart Manager cannot mitigate a reboot. 
        ' We goes to the clean up. The caller may want   
        ' to add additional code to handle this scenario.
        ReplaceBlockedFile = False
        err_text = "Error. Applications can not be stopped."
        GoTo ToExit
      End If

      ' Shut down all running instances of affected applications and services.
      dwRes = RmShutdown(pSessionHandle, RmForceShutdown, Nothing)
      If dwRes <> ERROR_SUCCESS Then
        ReplaceBlockedFile = False
        err_text = "RmShutdown Error " & RaiseAPIErrorByNumber(dwRes)
        GoTo ToExit
      End If

      MsgBox("Applications stopped successfully.")

      ' An installer can now replace or update the calc executable file.
      ' CALLER CODE GOES HERE...

      ' Restart applications and services, after the files have been replaced or updated.
      dwRes = RmRestart(pSessionHandle, 0, Nothing)
      If dwRes <> ERROR_SUCCESS Then
        Debug.Print("RmRestart Error " & RaiseAPIErrorByNumber(dwRes))
        GoTo ToExit
      End If

      MsgBox("Applications restarted successfully.")
...

  Public Function ReplaceBlockedFile(ByVal file_name As String, ByVal file_new As String, ByRef err_text As String) As Boolean
    ' file_name -путь к заменяемому файлу
    ' file_new -файл на который заменяем

    Dim pSessionHandle As Integer
    Dim strSessionKey As String = StrDup(255, Chr(0))
    Dim dwRes As Integer
    dwRes = RmStartSession(pSessionHandle, 0, strSessionKey)
    If dwRes <> ERROR_SUCCESS Then
      ReplaceBlockedFile = False
      err_text = "RmStartSession Error " & RaiseAPIErrorByNumber(dwRes)
      AddLogRestore("  Calling RmStartSession... Failed. Error code: " & RaiseAPIErrorByNumber(dwRes))
      GoTo ToExit
    End If
    If InStr(strSessionKey, Chr(0)) > 0 Then
      strSessionKey = Strings.Left(strSessionKey, InStr(strSessionKey, Chr(0)) - 1)
    End If
    Debug.Print("pSessionHandle=" & CStr(pSessionHandle) & ";strSessionKey=" & strSessionKey)
    AddLogRestore("  Calling RmStartSession... Done. pSessionHandle=" & CStr(pSessionHandle) & ";strSessionKey=" & strSessionKey)

    Dim rgsFilenames As String() = New String() {file_name}
    dwRes = RmRegisterResources(pSessionHandle, 1, rgsFilenames, 0, Nothing, 0, Nothing)
    If dwRes <> ERROR_SUCCESS Then
      ReplaceBlockedFile = False
      err_text = "RmRegisterResources Error " & RaiseAPIErrorByNumber(dwRes)
      AddLogRestore("  Calling RmRegisterResources... Failed. Error code: " & RaiseAPIErrorByNumber(dwRes))
      GoTo ToExit
    End If
    AddLogRestore("  Calling RmRegisterResources... Done.")

    Dim pnProcInfoNeeded As Integer = 0
    Dim pnProcInfo As Integer = 0
    Dim lpdwRebootReasons As RM_REBOOT_REASON = RM_REBOOT_REASON.RmRebootReasonNone
    ' the first call to RmGetList() returns the total number of processes
    dwRes = RmGetList(pSessionHandle, pnProcInfoNeeded, pnProcInfo, Nothing, lpdwRebootReasons)
    If dwRes = ERROR_MORE_DATA Then
      AddLogRestore("  Calling RmGetList(1)... Error code: " & RaiseAPIErrorByNumber(dwRes))
      AddLogRestore("  The number of affected applications = " & CStr(pnProcInfoNeeded))
      ' Create an array to store the processes results
      Dim processInfo As RM_PROCESS_INFO() = New RM_PROCESS_INFO(pnProcInfoNeeded - 1) {}
      pnProcInfo = pnProcInfoNeeded
      ' Get the list
      dwRes = RmGetList(pSessionHandle, pnProcInfoNeeded, pnProcInfo, processInfo, lpdwRebootReasons)
      If dwRes <> ERROR_SUCCESS Then
        ReplaceBlockedFile = False
        err_text = "RmGetList(2) Error " & RaiseAPIErrorByNumber(dwRes)
        AddLogRestore("  Calling RmGetList(2)... Failed. Error code: " & RaiseAPIErrorByNumber(dwRes))
        GoTo ToExit
      End If
      AddLogRestore("  Calling RmGetList(2)... Done.")

      'Enumerate all of the results
      AddLogRestore("  Affected applications:")
      For i As Integer = 0 To pnProcInfo - 1
        With processInfo(i)
          AddLogRestore("    " & .strAppName & ";PID=" & CStr(.Process.dwProcessId) & ";ApplicationType=" & .ApplicationType.ToString & ";Restartable=" & .bRestartable.ToString)
        End With
      Next

      'https://msdn.microsoft.com/en-us/library/windows/desktop/aa373682(v=vs.85).aspx
      'http://community.bartdesmet.net/blogs/bart/archive/2006/11/12/Exploring-Windows-Vista_2700_s-Restart-Manager-in-C_2300_.aspx

      If lpdwRebootReasons <> RM_REBOOT_REASON.RmRebootReasonNone Then
        ' Restart Manager cannot mitigate a reboot. 
        ' We goes to the clean up. The caller may want   
        ' to add additional code to handle this scenario.
        ReplaceBlockedFile = False
        err_text = "Error. Affected applications can not be stopped."
        AddLogRestore("  Error. Affected applications can not be stopped.")
        GoTo ToExit
      End If

      ' Shut down all running instances of affected applications and services.
      dwRes = RmShutdown(pSessionHandle, RmForceShutdown, Nothing)
      If dwRes <> ERROR_SUCCESS Then
        ReplaceBlockedFile = False
        err_text = "RmShutdown Error " & RaiseAPIErrorByNumber(dwRes)
        AddLogRestore("  Calling RmShutdown... Failed. Error code: " & RaiseAPIErrorByNumber(dwRes))
        'Installers should always restart application and services using the RmRestart function even when the
        'RmShutdown function returns an error indicating that not all applications and services could be shut down.
        GoTo ToRestart
      End If
      AddLogRestore("  Calling RmShutdown... Done.")

      ' An installer can now replace or update the calc executable file.
      ' CALLER CODE GOES HERE...
      'замена файла
      AddLogRestore("  Replacing '" & file_name & "'.")
      AddLogRestore("  Copying file '" & file_new & "' to '" & file_name & "'")
      Try
        IO.File.Copy(file_new, file_name, True)
        AddLogRestore("  Copying... Done.") ' "  Copying... Done."
        ReplaceBlockedFile = True
      Catch
        ReplaceBlockedFile = False
        AddLogRestore("  Copying... Failed. Error " & Err.Number.ToString & " (" & Err.Description & ")")
      End Try

ToRestart:
      ' Restart applications and services, after the files have been replaced or updated.
      dwRes = RmRestart(pSessionHandle, 0, Nothing)
      If dwRes <> ERROR_SUCCESS Then
        Debug.Print("RmRestart Error " & RaiseAPIErrorByNumber(dwRes))
        AddLogRestore("  Calling RmRestart... Failed. Error code: " & RaiseAPIErrorByNumber(dwRes))
        GoTo ToExit
      End If
      AddLogRestore("  Calling RmRestart... Done.")

    ElseIf dwRes <> ERROR_SUCCESS Then
      ReplaceBlockedFile = False
      err_text = "RmGetList(1) Error " & RaiseAPIErrorByNumber(dwRes)
      AddLogRestore("  Calling RmGetList(1)... Failed. Error code: " & RaiseAPIErrorByNumber(dwRes))
      GoTo ToExit

    Else 'отсутствует affected applications, этой ситуации быть не должно, раз уж вызывали в помощь эту кухню
      AddLogRestore("  Replacing '" & file_name & "'.")
      AddLogRestore("  Copying file '" & file_new & "' to '" & file_name & "'")
      Try
        IO.File.Copy(file_new, file_name, True)
        AddLogRestore("  Copying... Done.") ' "  Copying... Done."
        ReplaceBlockedFile = True
      Catch
        ReplaceBlockedFile = False
        AddLogRestore("  Copying... Failed. Error " & Err.Number.ToString & " (" & Err.Description & ")")
      End Try
    End If

ToExit:
    dwRes = RmEndSession(pSessionHandle)
    If dwRes <> ERROR_SUCCESS Then
      AddLogRestore("  Calling RmEndSession... Failed. Error code: " & RaiseAPIErrorByNumber(dwRes))
    Else
      AddLogRestore("  Calling RmEndSession... Done.")
    End If
  End Function