저는 고수는 아닙니다만, 님의 질문에 대해서 제가 예전에 알게된 방법이 좀 도움이 될까해서 답변드립니다.

아래 소스예제는 도스명령을 보낸후 리턴값을 Memo1 에 출력해 줍니다. 그런데, OS 의 종류에 따라서 실행방법이 다른가 봅니다.


Uses Windows,classes;

...

// 도스 명령 실행 함수/프로시져
function MyF_UsingWinNT: Boolean;
var
  OS: TOSVersionInfo;
begin
  OS.dwOSVersionInfoSize := Sizeof(OS);
  GetVersionEx(OS);
  if OS.dwPlatformId = VER_PLATFORM_WIN32_NT then Result:= True
  else Result:= False;
end;


// 도스 명령 실행 프로시져
procedure My_RunDosCommand(Command : string; Output : TStringList ; nShow : Boolean = False);

var
  hReadPipe : THandle;
  hWritePipe : THandle;
  SI : TStartUpInfo;
  PI : TProcessInformation;
  SA : TSecurityAttributes;
  SD : TSecurityDescriptor;
  BytesRead : DWORD;
  Dest : array[0..1023] of char;
  CmdLine : array[0..512] of char;
  TmpList : TStringList;
  S, Param : string;
  Avail, ExitCode, wrResult : DWORD;
begin
  if My_UsingWinNT then begin
    InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION);
    SetSecurityDescriptorDacl(@SD, True, nil, False);
    SA.nLength := SizeOf(SA);
    SA.lpSecurityDescriptor := @SD;
    SA.bInheritHandle := True;
    CreatePipe(hReadPipe, hWritePipe, @SA, 1024);
  end else begin
    CreatePipe(hReadPipe, hWritePipe, nil, 1024);
  end;
try
   Screen.Cursor := crHourglass;
   FillChar(SI, SizeOf(SI), 0);
   SI.cb := SizeOf(TStartUpInfo);
   if nShow then begin
     SI.wShowWindow := SW_SHOWNORMAL
   end else begin
     SI.wShowWindow := SW_HIDE;
   end;
   SI.dwFlags := STARTF_USESHOWWINDOW;
   SI.dwFlags := SI.dwFlags or STARTF_USESTDHANDLES;
   SI.hStdOutput := hWritePipe;
   SI.hStdError := hWritePipe;
   StrPCopy(CmdLine, Command);
   if CreateProcess(nil, CmdLine, nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then begin
     ExitCode := 0;
     while ExitCode = 0 do begin
       wrResult := WaitForSingleObject(PI.hProcess, 500);
       if PeekNamedPipe(hReadPipe, nil, 0, nil, @Avail, nil) then begin
         if Avail > 0 then begin
           TmpList := TStringList.Create;
           try
             FillChar(Dest, SizeOf(Dest), 0);
             ReadFile(hReadPipe, Dest, Avail, BytesRead, nil);
            // Memo1.Lines.Add(Dest);
             Output.Add(Dest);
           finally
             TmpList.Free;
           end;
         end;
       end;
       if wrResult <> WAIT_TIMEOUT then begin
         ExitCode := 1;
       end;
     end;
     GetExitCodeProcess(PI.hProcess, ExitCode);
     CloseHandle(PI.hProcess);
     CloseHandle(PI.hThread);
   end;
finally
   CloseHandle(hReadPipe);
   CloseHandle(hWritePipe);
   Screen.Cursor := crDefault;
end;
end;

// 아래와 같이 버튼이벤트에 넣어서 사용하실수 있습니다.
// 예제는 ipconfig 란 명령을 보내서 ip 정보를 리턴받는 예제입니다.
procedure TMyForm.Button1Click(Sender: TObject);
var
  S1 : TStringList;
begin
  //Current PC의 현재 네트웍 상태가 Memo1에 나타나게 하는 테스트 코드입니다.
  //그리고, ipconfig 명령뿐 아니라
  //Command 에 사용할수 있는 모든 명령어는 다 사용할수 있습니다.
  try
    S1 := TStringList.Create;
    My_RunDosCommand('ping '+'127.0.0.1', S1);
    Memo1.Lines.AddStrings(S1);
  finally
    S1.Free ;
  end;
end;

복받으실 꺼예용