Execandwait

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;