Execandwait


Wie Sie einen Befehl ausführen und warten Sie, es zu beenden.
Prozedur ExecAndWait (CommandLine: string; CommandShow: Longint);
var
PI: TProcessInformation;
SI: TStartupInfo;
beginnen
FillChar (Si, sizeof(si), #0);
Si.CB: = sizeof(si);
si.dwFlags: = STARTF_USESHOWWINDOW;
si.wShowWindow: = CommandShow;
CreateProcess (null, PChar(CommandLine), Nil, Nil, False, NORMAL_PRIORITY_CLASS, nil, nil, Si, Pi);
WaitForSingleObject (pi.hProcess, INFINITE);
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
Ende;









Execandwait


Execandwait : Mehreren tausend Tipps, um Ihr Leben einfacher machen.


Wie Sie einen Befehl ausführen und warten Sie, es zu beenden.
Prozedur ExecAndWait (CommandLine: string; CommandShow: Longint);
var
PI: TProcessInformation;
SI: TStartupInfo;
beginnen
FillChar (Si, sizeof(si), #0);
Si.CB: = sizeof(si);
si.dwFlags: = STARTF_USESHOWWINDOW;
si.wShowWindow: = CommandShow;
CreateProcess (null, PChar(CommandLine), Nil, Nil, False, NORMAL_PRIORITY_CLASS, nil, nil, Si, Pi);
WaitForSingleObject (pi.hProcess, INFINITE);
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
Ende;


Execandwait

Execandwait : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Freunden empfehlen
  • gplus
  • pinterest

Kürzliche Posts

Kommentar

Einen Kommentar hinterlassen

Wertung