title image


Smiley Re: Wie kann man ein mit Befehl SHELL gestartetes Programm beenden


Option Explicit



Private Const PROCESS_TERMINATE = &H1



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

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



Private lngProcID As Long







Private Sub Command1_Click()

   '// Starten

   lngProcID = Shell("C:\winnt\notepad.exe", vbNormalFocus)

End Sub









Private Sub Command2_Click()

Dim lngProcHdl As Long



   '// Beenden

   lngProcHdl = OpenProcess(PROCESS_TERMINATE, 0, lngProcID)

   TerminateProcess lngProcHdl, 0&

End Sub



 Code eingefügt mit Syntaxhighlighter 1.16



Gruß

Gaga
Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: