cmd окно через Exec и WinExec

[ДралсяСошибками]

который в пятом посте.

Вот рабочий пример:

function PingConsole(CmdLine: String): String;
var
  SA: TSecurityAttributes;
  SI: TStartupInfo;
  PI: TProcessInformation;
  Buffer: Array[0..255] of Char;
  PipeRead, PipeWrite: THandle;
  ByteRead: Cardinal;
  Handle, Ret: Boolean;
begin
  with SA do
    begin
      nLength := SizeOf(SA);
      bInheritHandle := True;
      lpSecurityDescriptor := nil;
    end;
  CreatePipe(PipeRead, PipeWrite, @SA, 0);
    try
      with SI do
        begin
          FillChar(SI, SizeOf(SI), 0);
          cb := SizeOf(SI);
          dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
          wShowWindow := SW_HIDE;
          hStdInput := GetStdHandle(STD_INPUT_HANDLE);
          hStdOutput := PipeWrite;
          hStdError := PipeWrite;
        end;
      Handle := CreateProcess(nil, PChar(CmdLine), nil, nil, True, 0, nil, nil, SI, PI);
      CloseHandle(PipeWrite);
        if Handle then
          try
            repeat
              Ret := ReadFile(PipeRead, Buffer, 255, ByteRead, nil);
                if ByteRead > 0 then
                  begin
                    Buffer[ByteRead] := #0;
                    OemToAnsi(Buffer, Buffer);
                    Result := Result + Buffer;
                  end;
            until not Ret or (ByteRead = 0);
            WaitForSingleObject(PI.hProcess, INFINITE);
          finally
            CloseHandle(PI.hThread);
            CloseHandle(PI.hProcess);
          end
      else raise Exception.Create(SysErrorMessage(GetLastError));
    finally
      CloseHandle(PipeRead);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := PingConsole('ping 192.168.1.1');
end;

[xxbesoxx]

Я думаю для ping вот так лучше http://www.programmersforum.ru/showthread.php?t=281833 на #6