Hvordan utføre en kommando, og deretter vente på det å finish.procedure ExecAndWait (Command: string; CommandShow: Longint); Var pi: TProcessInformation; Si: TStartupInfo; begynne FillChar (si, sizeof (si), # 0); si.cb: = sizeof (SI); si.dwFlags: = STARTF_USESHOWWINDOW; si.wShowWindow: = CommandShow; CreateProcess (nil, PChar (Command), null, null, False, NORMAL_PRIORITY_CLASS, null, null, si, PI); WaitForSingleObject (pi.hProcess, uendelig); CloseHandle (pi.hProcess); CloseHandle (pi.hThread); end;