Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нужны нормальные букуы в командной строке. [D7, WinXP]


elfebet ©   (2006-04-13 17:15:00) 

показываю путь к программе в командной строке, а он русские делает иероглифами. Есть ли функция, чтоб кодировку поменяла с win-1251 на DOS?


palva   (2006-04-13 23:16:00) [1]

var BatchFileName : PChar;
 s: String;
. . .
 s:= ExtractFilePath(ParamStr(0))+ '$$336699.bat';
 CharToOem(PChar(s), PChar(s));
 WriteLn(s);


elfebet   (2006-04-13 17:48:00) [2]

разьясни пожалуйста, а то выдает ошибку.
я деляют так:
var BatchFileName : PChar;
...
 BatchFileName := Pchar(ExtractFilePath(ParamStr(0))+ '$$336699.bat');
 CharToOem(BatchFileName);


Johnmen   (2006-04-13 17:20:00) [3]

CharToOEM
OEMToChar


Наверх

Титульная страница Поиск, карта сайта Написать письмо