|
Omlouvám se, psal jsem to v rychlosti, takže ještě jednou:
' Deklarace proměnných:
' proměnná pro informace o spouštěném procesu
Private pi As New Diagnostics.ProcessStartInfo
' proměnná pro odvolání na vlastní proces
Private WithEvents p As New Diagnostics.Process
...
...
' vlastní spuštění procesu (v některé metodě, třeba v button1.click)
' nastavíme parametry procesu:
' v tomto případě bude procesem prohlížeč PowerPointru
pi.FileName = "C:\Program Files\Microsoft Office\OFFICE11\pptview.exe"
' procesu přiřadíme nastavené parametry:
p.StartInfo = pi
' zapneme, aby proces generoval události
p.EnableRaisingEvents = True
' proces spustíme
p.Start()
...
...
' v okamžiku, kdy proces "p" skončí je vyvolána událost p.Exited
' zachytíme ji a provedeme požadované operace
Private Sub p_Exited(ByVal sender As Object, ByVal e As System.EventArgs) Handles p.Exited
MsgBox("Proces ukončen")
End Sub
Snad už je to jasné.
|