Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c