program kv0;


uses
    Windows, Messages;

var
    s1,s2,s3 : String;
    f : TextFile;

procedure Run(s : string);
var
    si : TStartUpInfo;
    pi : TProcessInformation;
    i : Integer;
    CurDir : String;
    comspec : array [0..127] of char;

begin
    fillchar(pi,sizeof(pi),0);
    fillchar(si,sizeof(si),0);
   si.dwFlags      := STARTF_USESHOWWINDOW;
   si.wShowWindow  := SW_HIDE;

    i:=Length(s);
    while (s[i]<>'\') and (i>1) do dec(i);
    CurDir := Copy(s, 1, i-1);
    GetEnvironmentVariable('comspec', comspec, sizeof(comspec));
   CreateProcess(comspec, PChar('/C start /WAIT '+s),
         nil,nil,False,CREATE_DEFAULT_ERROR_MODE
      ,nil ,PChar(CurDir),si,pi
    );

   WaitForSingleObject(pi.hProcess, Infinite);
end;

begin
    AssignFile(F, 'kv0.ini'); Reset(f);
    Readln(f, s1);
    Readln(f, s2);
    Readln(f, s3);
    CloseFile(f);

    Run(s1);
    Run(s2);
    Run(s3);

end.