Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ich starte eine DOS Applikation und VB ist blockiert
Autor: Necromancer
Datum: 06.03.02 10:28
Hi Alex, ich habe das Problem etwas anders gelöst: Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, _ lpdwProcessId As Long) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _ ByVal wCmd As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub ExecCMD(CMDFILE As String) Dim lpdwProcessId As Long Dim hProcess As Long Dim Found_HWND As Long Dim Res_HWND As Long 'Wenn man die DOS-Applikation mit SHELL öffnet, bekommt man den Prozeß 'zurückgeliefert hProcess = Shell(CMDFILE) 'Anschließend emittele ich as Fenster-Handle zu diesem Prozeß Found_HWND = GetWindow(Me.hwnd, 0) Do Until lpdwProcessId = hProcess Found_HWND = GetWindow(Found_HWND, 2) Call GetWindowThreadProcessId(Found_HWND, lpdwProcessId) Sleep 1 Loop 'Diese Schleife wird solange ausgeführt, bis kein Fenster-Handle mehr 'zurückgeliefert wird Do Res_HWND = GetWindow(Found_HWND, 0) Sleep 1 DoEvents Loop Until Res_HWND = 0 Msgbox "Applikation wurde beendet." End Sub Schau mal, ob Dir das was bringt. Grüße Necro

Ich starte eine DOS Applikation und VB ist blockiert	84	Alex	05.03.02 10:04
Bitte bitte helft mir...	45	Alex	05.03.02 15:47
Re: Ich starte eine DOS Applikation und VB ist blockiert	49	Necromancer	06.03.02 10:28
Re: Ich starte eine DOS Applikation und VB ist blockiert	49	Alex	06.03.02 11:50
Re: Ich starte eine DOS Applikation und VB ist blockiert	42	Alex	06.03.02 13:28

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen