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

← →
Максим (2005-06-22 17:52) [0]

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

← →
Fay © (2005-06-22 17:53) [1]

Примерно так
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);

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

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

← →
stakan © (2005-06-22 18:19) [3]

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:36) [4]

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

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

← →
Максим (2005-06-22 18:58) [6]

Спасибо...

Преобразование пути Найти похожие ветки