BAT-файл

← →
R@nger © (2003-02-27 09:20) [0]

Проблема: пытаюсь создать BAT-файл из Delphi. Делаю так:
AssignFile(F,"Test.bat");
Rewrite(F);
WriteLn(F,"@echo off");
WriteLn(F,"echo Тест...");
WriteLn(F,"Pause");
CloseFile(F);

Так вот: КАК преобразовать "Тест..." в ДОСовскую кодировку?
Заранее спасибо.

← →
Palladin © (2003-02-27 09:24) [1]

ищи в FAQ

← →
R@nger © (2003-02-27 09:31) [2]

Я нашел CharToOEM. Делал так:

AssignFile(F,"Test.bat");
Rewrite(F);
WriteLn(F,"@echo off");
s:=DosStr("echo Тест...");
WriteLn(F,s);
WriteLn(F,"Pause");
CloseFile(F);

Function DosStr(Str:string):String;
var
Res:PChar;
Begin
OemToChar(PChar(Str),Res);
Result:=StrPas(Res);
End;

При записи в файл Delphi ругается: I/O Error 103(файл не открыт).

Я только недавно кинул ответ кому-то целый юнит по перекодировке. Посмотрите ниже.

BAT-файл Найти похожие ветки