Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ich starte eine DOS Applikation und VB ist blockiert
Autor: Alex
Datum: 05.03.02 10:04
Hallo, lange war ich auf der Suche nach einer Moeglichkeit eine DOS-Applikation von VB aus zu starten und beim Beenden dieser darauf zu reagieren. Ich habe nun bei Microsoft unter Q129796 eine Moeglichkeit gefunden. Das Problem ist aber solange die DOS-Applikation laeuft ist mein VB-Programm nicht mehr ansprechbar. Was kann ich da tun. aufgerufen wird es mit: "retval = ExecCmd("Back.bat")" Thx Alex Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessID As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CreateProcessA Lib "kernel32" (ByVal _ lpApplicationName As String, ByVal lpCommandLine As String, ByVal _ lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As String, _ lpStartupInfo As STARTUPINFO, lpProcessInformation As _ PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Private Const NORMAL_PRIORITY_CLASS = &H20& Private Const INFINITE = -1& Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Function ExecCmd(cmdline$) Dim proc As PROCESS_INFORMATION Dim start As STARTUPINFO ' Initialize the STARTUPINFO structure: start.cb = Len(start) ' Start the shelled application: ret& = CreateProcessA(vbNullString, cmdline$, 0&, 0&, 1&, _ NORMAL_PRIORITY_CLASS, 0&, vbNullString, start, proc) ' Wait for the shelled application to finish: ret& = WaitForSingleObject(proc.hProcess, INFINITE) Call GetExitCodeProcess(proc.hProcess, ret&) Call CloseHandle(proc.hThread) Call CloseHandle(proc.hProcess) ExecCmd = ret& End Function

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	48	Necromancer	06.03.02 10:28
Re: Ich starte eine DOS Applikation und VB ist blockiert	48	Alex	06.03.02 11:50
Re: Ich starte eine DOS Applikation und VB ist blockiert	41	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