Pokud chcete navíc i odchytit ukončení procesu, pak kód trošičku upravte:
Public Class Form1
Private WithEvents Proc As Process
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Proc = System.Diagnostics.Process.Start("calc.exe")
Proc.EnableRaisingEvents = True
End Sub
Private Sub Proc_Exited(ByVal sender As Object, ByVal e As System.EventArgs) Handles Proc.Exited
MsgBox("proces skončil")
End Sub
End Class
Jinak pokud proces běží (neboli existuje), pod jeho označením (v příkladu "proc") najdete o něm fůru více či méně užitečných informací (prohlédněte si intellisense).
|