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

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

Преобразование пути

Максим ©   (2005-06-22 17:52:00) 

Как преобразовать путь к папке "C:\Program files\Program" в "C:\PROGRA~1\PROGRAM"?

---

Максим   (2005-06-22 18:58:00) [1]

Спасибо...

---

stakan   (2005-06-22 18:42:00) [2]

Число 2 это ERROR_FILE_NOT_FOUND = 2;
Значит нет у тебя такого пути

---

Максим   (2005-06-22 18:36:00) [3]

Возвращается число 2 ?...

---

stakan   (2005-06-22 18:19:00) [4]

procedure TForm1.Button1Click(Sender: TObject);
var
 S: String;
begin
 SetLength(S, MAX_PATH);
 if GetShortPathName(PChar(Edit1.Text), PChar(S), Length(S)) <> 0 then  //Edit1.Text - C:\Program files\Program
    Edit1.Text := S
 else ShowMessage(IntToStr(GetLastError))
end;

---

Максим   (2005-06-22 18:00:00) [5]

Что-то не до конца работает это дело - после первой-же палочки ('\').

---

Fay   (2005-06-22 17:53:00) [6]

Примерно так
var
 p : PChar;
 n : DWORD;
 s : string;
begin
 s := Trim(Edit1.Text);
 p := nil;
 n := GetShortPathName(PChar(s), nil, 0);
 GetMem(p, n);
 GetShortPathName(PChar(s), p, n);
 ShowMessage(p);
 FreeMem(p);

---

Наверх