Как прочитать русский текст MS-DOS

Для перекодировки из Win(1251) кодовой страницы в Dos(866) кодовую страницу и обратно используются функции:

• CharToOEM
• OEMToChar
• CharToOEMBuff
• OEMToCharBuff
• OemToAnsi
• AnsiToOem:

Пример чтения текста dos из файла в memo

procedure TForm1.FormCreate(Sender: TObject);
var
  N: PChar;
begin
  memo1.Lines.LoadFromFile('c:file.txt');
  N := Memo1.Lines.GetText;
  OemToAnsi(N, N);
  Memo1.Lines.Text := StrPas(N);
end;

Другое по теме:

• Как консольное приложение может узнать, что Винды завершаются
• Как использовать консоль в не-консольном приложении
• Как захватить весь вывод в консоли