Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 );

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.032 c