Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

GetDir   Найти похожие ветки 

 
serko   (2004-11-28 20:32) [0]

Помогите! У меня прога находится на рабочем столе, и когда я использую GetDir(0, sPath); , то в sPath вместо русских букв иероглифы! Как избежать этого?


 
begin...end ©   (2004-11-28 21:48) [1]

> serko   (28.11.04 20:32)

Не знаю, а с GetCurrentDirectory тоже иероглифы получаются?


 
OneFragLeft ©   (2004-11-28 22:29) [2]

Странно... У меня вот это:
procedure TForm1.Button1Click(Sender: TObject);
var sPath:String;
begin
GetDir(0, sPath);
ShowMessage(sPath);
end;

Нормально работает с рабочего стола.
Система и Дельфи - такие же.


 
serko   (2004-11-30 00:12) [3]

Я это в консоли делаю!


 
Yanis ©   (2004-11-30 00:42) [4]

Вот это орех!


 
Yanis ©   (2004-11-30 00:52) [5]

В консоли кодировка DOS. Воспользуйся CharToOEM (см. Пример)


var
 DStr:array[0..255] of char;
 s:String;
begin
 GetDir(0,S);
 CharToOEM(PChar(S),DStr);
end;


 
serko   (2004-11-30 01:04) [6]

Нет БАТЕНЬКА это ты орех, всерано не идет!


 
Defunct ©   (2004-11-30 07:34) [7]

serko   (30.11.04 01:04) [6]

keyrus запусти. или настрой страницу кодировки 866.



Страницы: 1 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
6-1091808188
2тэ10м
2004-08-06 20:03
2004.12.12
Трафик


1-1101310115
debuger
2004-11-24 18:28
2004.12.12
2D FFT


3-1100089389
Term
2004-11-10 15:23
2004.12.12
QReport как сделать в отчёте промежуточные итоги


3-1100264349
Wolffgang
2004-11-12 15:59
2004.12.12
Запятые и float


6-1096821871
Agent-Smith
2004-10-03 20:44
2004.12.12
Реализация работы между сегментами сети