[Freeman]

Сообщение от OSIRIS

запускается - но результат тот же, ( команда проходит неправильно)

Это очень странно.

Хорошо, попробуем вариант с метатипом, который уже предлагал:

Код:

type
  OEMString = type AnsiString(CP_OEMCP);

procedure TForm1.btnWriteClick(Sender: TObject);
var
  s: RawByteString;
begin
  if zRedirect <> nil then
  begin
    zRedirect.WriteData(edInput.Text + sLineBreak);
    edInput.Text := '';
  end;
end;

procedure TRedirectThread.WriteData(const Data: OEMString); // <-- вот тут
var
  Written: Cardinal;
begin
  if hWriteIn <> 0 then
    WriteFile(hWriteIn, Data[1], Length(Data) * StringElementSize(Data), Written, nil);
end;