WinExec

function ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export;
  var
    StartInfo: TStartupInfo;
    ProcInfo: TProcessInformation;
    CmdLine: ShortString;
begin
  { Coloca o nome do arquivo entre aspas, devido a possibilidade de existir espaços nos nomes longos do Windows 9x }
  CmdLine := ´"´ + FileName + ´" ´ + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
    begin
      //cb := SizeOf(SUInfo); //erro aqui
      cb := SizeOf(StartInfo); //essa linha está correta
      dwFlags := STARTF_USESHOWWINDOW;
      wShowWindow := WinState;
    end;
    Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
    { Aguarda o encerramento do programa executado }
    if Result then
      begin
        WaitForSingleObject(ProcInfo.hProcess, INFINITE);
        { Libera os Handles utilizados }
        CloseHandle(ProcInfo.hProcess);
        CloseHandle(ProcInfo.hThread);
      end;
end;