,, at gennemføre en kommando - og vente, til den er færdig.,, procedure execandwait (commandline: string. commandshow: longint), var, tprocessinformation pi:;,, si: tstartupinfo;,, begynder, fillchar (si, 7 (si),�);,, si.cb: = 7 (si);,, si.dwflags: = startf_useshowwindow;,, si.wshowwindow: = commandshow;,, createprocess (- 0, pchar (commandline), nul, nul, nul, nul, falske, normal_priority_class, si, pi), waitforsingleobject (pi.hprocess, uendelige);,, closehandle (pi. hprocess);,, closehandle (pi. hthread);,,,,,,,,,