Kan man stoppe et andet program via VB

www.eksperten.dk/spm/251084 ..?

Er der mulighed for du/i kan forklare mig hvad det er jeg skal skrive til disse punkter herunder.

- aLngShellProcessID "Er dette en HEX kode for det enkelte program. Hvor kan evt. finde denne."

- aVarExePath  "Her mener jeg at det er stien til den fil der skal køres"


Private Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
  ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _
  (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" _
  (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
 

Public Function Start_Application(ByVal aVarExePath As Variant) As Long
 
    Start_Application = Shell(aVarExePath, vbNormalFocus)

End Function


Public Function End_Application(ByVal aLngShellProcessID As Long) As Long

    hProcess = OpenProcess(&H1F0FFF, 0&, aLngShellProcessID)
   
    If hProcess <> 0 Then

        GetExitCodeProcess hProcess, lExitCode
       
        If lExitCode <> 0 Then
 
            End_Application = TerminateProcess(hProcess, lExitCode)
           
        End If
       
    End If

End Function