Преобразовать путь в полную форму

← →
Well (2004-02-13 00:09) [0]

Как преобразовать такой путь в нормальную (полную) форму - "c:\progra~1\myprog~1\testpr~1.exe"?

← →
Rouse_ © (2004-02-13 00:13) [1]

DWORD GetFullPathName(

LPCTSTR lpFileName, // address of name of file to find path for
DWORD nBufferLength, // size, in characters, of path buffer
LPTSTR lpBuffer, // address of path buffer
LPTSTR *lpFilePart // address of filename in path
);

← →
Well (2004-02-13 00:46) [2]

Что-то это не совсем то, мне кажется.

← →
DDA © (2004-02-13 01:19) [3]

Я недавно такой же вопрос задавал.
function GetLongFName(FName: String): String; var Str2: String; GetLongPathName: Function (ShortPathName: PChar; LongPathName: PChar; cchBuffer : Integer): Integer Stdcall; Handle : THandle; begin Result:=""; GetLongPathName:=nil; SetLength(Str2,256); Handle:=GetModuleHandle("kernel32.dll"); if Handle = 0 then exit; @GetLongPathName := GetProcAddress(Handle, "GetLongPathNameA"); if Assigned(GetLongPathName) and (GetLongPathName(PChar(FName),PChar(Str2),256) <> 0) then Result:=Str2; end;

Работает,только возвращает строку с нолями на конце строки
Приходиться еще и удалять их

← →
Defunct (2004-02-13 01:43) [4]

Модуль SysUtils

ExpandFileName( FileName );

Преобразовать путь в полную форму Найти похожие ветки