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

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

GetDir [D7, WinXP]

serko ©   (2004-11-28 20:32:00) 

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

---

Defunct   (2004-11-30 07:34:00) [1]

serko   (30.11.04 01:04) [6]

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

---

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

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

---

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

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


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


---

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

Вот это орех!

---

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

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

---

OneFragLeft   (2004-11-28 22:29:00) [6]

Странно... У меня вот это:
procedure TForm1.Button1Click(Sender: TObject);
var sPath:String;
begin
GetDir(0, sPath);
ShowMessage(sPath);
end;
Нормально работает с рабочего стола.
Система и Дельфи - такие же.

---

begin...end   (2004-11-28 21:48:00) [7]

> serko   (28.11.04 20:32)

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

---

Наверх