Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Hilfe bei API CreateProcess
Autor: Norbert
Datum: 25.04.02 16:46
Hallo, hier hast Du eine AUswahl von Konstanten: Private Const SW_HIDE = 0 Private Const SW_INVALIDATE = &H2 Private Const SW_MAX = 10 Private Const SW_MAXIMIZE = 3 Private Const SW_MINIMIZE = 6 Private Const SW_NORMAL = 1 Private Const SW_OTHERUNZOOM = 4 Private Const SW_OTHERZOOM = 2 Private Const SW_PARENTCLOSING = 1 Private Const SW_PARENTOPENING = 3 Private Const SW_RESTORE = 9 Private Const SW_SCROLLCHILDREN = &H1 Private Const SW_SHOW = 5 Private Const SW_SHOWDEFAULT = 10 Private Const SW_SHOWMAXIMIZED = 3 Private Const SW_SHOWMINIMIZED = 2 hier ist "meine" Funktion, wo ich CreateProcess aufrufe. Du siehst, man muß ein Flag setzen bei der Variablen Start (vorletztes Argument).. Public Function Command(CmdLine As String, WindowState As Long, Wait As Boolean) As Long Dim Proc As PROCESS_INFORMATION Dim Start As STARTUPINFO Dim Ret As Long On Error GoTo mrkError With Start .cb = Len(Start) .wShowWindow = 1 .dwFlags = STARTF_USESHOWWINDOW .wShowWindow = WindowState 'SW_MINIMIZE End With Ret = CreateProcessA(0&, CmdLine, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, Start, Proc) ExecCmd = Proc.hProcess If Wait = True Then If Not (Ret = 0) Then Ret = WaitForSingleObject(Proc.hProcess, INFINITE) If Ret = 0 Then Ret = CloseHandle(Proc.hProcess) End If End If GoTo mrkEnde mrkError: Glob.Log.ErrMessageF "Command" mrkEnde: End Function

Hilfe bei API CreateProcess	60	Meinolf	25.04.02 15:14
Re: Hilfe bei API CreateProcess	57	Norbert	25.04.02 16:46
Re: Hilfe bei API CreateProcess	47	Meinolf	25.04.02 17: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