Текущий архив: 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.051 c
