\n function  GetDosOutput( const  CommandLine,Parametrs: string ):  string ;\n var \n  SA: TSecurityAttributes;\n  SI: TStartupInfo;\n  PI: TProcessInformation;\n  StdOutPipeRead, StdOutPipeWrite: THandle;\n  WasOK: Boolean;\n  Buffer:  array [ 0 .. 255 ]  of  Char;\n  BytesRead: Cardinal;\n  WorkDir, Line:  String ;\n begin \n  Application.ProcessMessages;\n   with  SA  do \n     begin \n      nLength := SizeOf(SA);\n      bInheritHandle := True;\n      lpSecurityDescriptor :=  nil ;\n     end ;\n   // создаём пайп для перенаправления стандартного вывода \n  CreatePipe(StdOutPipeRead,   // дескриптор чтения \n             StdOutPipeWrite,  // дескриптор записи \n             @SA,               // аттрибуты безопасности \n              0                  // количество байт принятых для пайпа - 0 по умолчанию \n             );\n   try \n     // Создаём дочерний процесс, используя StdOutPipeWrite в качестве стандартного вывода, \n     // а так же проверяем, чтобы он не показывался на экране. \n     with  SI  do \n       begin \n        FillChar(SI, SizeOf(SI),  0 );\n        cb := SizeOf(SI);\n        dwFlags := STARTF_USESHOWWINDOW  or  STARTF_USESTDHANDLES;\n        wShowWindow := SW_HIDE;\n        hStdInput := GetStdHandle(STD_INPUT_HANDLE);  // стандартный ввод не перенаправляем \n        hStdOutput := StdOutPipeWrite;\n        hStdError := StdOutPipeWrite;\n       end ;\n     // Запускаем компилятор из командной строки \n    WorkDir := ExtractFilePath(CommandLine);\n    WasOK := CreateProcess( nil ,\n                           PChar(CommandLine+\' \'+Parametrs),\n                            nil ,\n                            nil ,\n                           True,\n                            0 ,\n                            nil ,\n                           PChar(WorkDir),\n                           SI,\n                           PI);\n     // Теперь, когда дескриптор получен, для безопасности закрываем запись. \n     // Нам не нужно, чтобы произошло случайное чтение или запись. \n    CloseHandle(StdOutPipeWrite);\n     // если процесс может быть создан, то дескриптор, это его вывод \n     if   not  WasOK  then   raise  Exception.Create(\'Could not execute command line!\')\n     else \n       try \n         // получаем весь вывод до тех пор, пока DOS-приложение не будет завершено \n        Line := \'\';\n         repeat \n           // читаем блок символов (могут содержать возвраты каретки и переводы строки) \n          WasOK := ReadFile(StdOutPipeRead, Buffer,  255 , BytesRead,  nil );\n           // есть ли что-нибудь ещё для чтения? \n           if  BytesRead >  0   then \n             begin \n               // завершаем буфер PChar-ом \n              Buffer[BytesRead] := # 0 ;\n               // добавляем буфер в общий вывод \n              Line := Line + Buffer;\n             end ;\n         until   not  WasOK  or  (BytesRead =  0 );\n         // ждём, пока завершится консольное приложение \n        WaitForSingleObject(PI.hProcess, INFINITE);\n       finally \n         // Закрываем все оставшиеся дескрипторы \n        CloseHandle(PI.hThread);\n        CloseHandle(PI.hProcess);\n       end ;\n   finally \n    result:=Line;\n    CloseHandle(StdOutPipeRead);\n   end ;\n end ;