Главная страница
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.025 c
14-1100875107
Рамиль
2004-11-19 17:38
2004.12.12
Копирование жесткого диска


14-1101237565
Piter
2004-11-23 22:19
2004.12.12
Интересный пример кода в Тейксера и Пачеко


8-1095077561
TiMER
2004-09-13 16:12
2004.12.12
скриншот изменившейся части экрана


1-1100789422
TankMan
2004-11-18 17:50
2004.12.12
Написание обработчика исключительных ситуаций...


1-1101663123
serko
2004-11-28 20:32
2004.12.12
GetDir