var
  OutPipeRead, OutPipeWrite: THandle;
  InPipeRead, InPipeWrite: THandle;

  PI: TProcessInformation;

implementation

{$R *.dfm}

function CreateCmd: Boolean;
var SA: TSecurityAttributes;
    SI: TStartupInfo;
begin
  SA.nLength := SizeOf(SA);
  SA.bInheritHandle := True;
  SA.lpSecurityDescriptor := nil;

  CreatePipe(OutPipeRead, OutPipeWrite, @SA, 0);
  CreatePipe(InPipeRead, InPipeWrite, @SA, 0);

  FillChar(SI, SizeOf(SI), 0);
  SI.cb := SizeOf(SI);
  SI.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  SI.wShowWindow := SW_HIDE;
  SI.hStdInput := InPipeRead;
  SI.hStdOutput := OutPipeWrite;

  Result := CreateProcess(nil, PChar(GetEnvironmentVariable('ComSpec')), nil, nil, True, 0, nil, nil, SI, PI);
end;

procedure WriteToPipe(Str: string; Ent: Boolean = True);
var dwWritten, BufSize: DWORD;
    chBuf: PChar;
begin
  if Ent then Str := Str + #13#10;
  chBuf := PChar(Str);
  BufSize := Length(chBuf);
  WriteFile(InPipeWrite, chBuf^, BufSize, dwWritten, nil);
end;

function ReadFromPipe: string;
var DataSize, dwRead: DWORD;
    Buffer: PAnsiChar;
begin
  if PeekNamedPipe(OutPipeRead, nil, 0, nil, @DataSize, nil) and (DataSize > 0) then
  begin
    Buffer := AllocMem(DataSize +1);
    if ReadFile(OutPipeRead, Buffer^, DataSize, dwRead, Nil) then
    begin
      OemToAnsi(Buffer, Buffer);
      Result := string(Buffer);
    end;
  end;
end;

procedure WriteToPipe;
var dwWritten, BufSize: DWORD;
    chBuf: PChar;
begin
  chBuf := PChar('dir'+#13#10);
  BufSize := Length(chBuf);
  WriteFile(InPipeWrite, chBuf^, BufSize, dwWritten, nil);
end;

procedure WriteToPipe(Str: AnsiString; Ent: Boolean = True);
var dwWritten, BufSize: DWORD;
    chBuf: PansiChar;
begin
  if Ent then Str := Str + #13#10;
  chBuf := PAnsiChar(Str);
  BufSize := (Length(Str) * SizeOf(chBuf[0])) +1;
  WriteFile(InPipeWrite, chBuf^, BufSize, dwWritten, nil);
end;