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

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

Полный путь директории [D6, XP]

q1485 ©   (2007-12-15 18:09:00) 

Как мне из

C:\DOCUME~1\User\LOCALS~1\Temp\

получить

C:\Documents and Settings\User\Local Settings\Temp\

---

Leonid Troyanovsky   (2007-12-16 13:14:00) [1]

> Leonid Troyanovsky ©   (16.12.07 12:07) [5]

>  SetLength(Result, MAX_PATH);

SetLength(Result, MAX_PATH +1);

Sorry.

--
Regards, LVT.

---

Leonid Troyanovsky   (2007-12-16 12:07:00) [2]

> q1485   (15.12.07 18:40) [4]


function GetLongPathName(lpszShortName: LPCTSTR; lpszLongName: LPTSTR;
cchBuffer: DWORD): DWORD; stdcall;
external kernel32 name 'GetLongPathNameA';

function GetLongPath(const ShortName: string): string;
var
 bytes: Integer;
begin
 SetLength(Result, MAX_PATH);
 bytes := GetLongPathName(Pointer(ShortName), PChar(Result), MAX_PATH);
 Win32Check(bytes <> 0);
 SetLength(Result, bytes);
end;


--
Regards, LVT.

---

q1485   (2007-12-15 18:40:00) [3]

> А откуда ты получил


Отсюда..

function GetTmpPath():string;
var
 TempPath: array [0..MAX_PATH] of Char;
begin
 GetTempPath(MAX_PATH, TempPath);
 Result:=TempPath;
end;


> GetLongFName


Спасибо.
Только не понял идеи, почему первой строчкой Result:=''; а не Result:=FName;
и еще, она доставляет #0 в конце до длины 256 символов..
Result:=TrimRight(Str2) это исправил... так правильно делать?

---

Германн   (2007-12-15 18:27:00) [4]

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;


---

Джо   (2007-12-15 18:18:00) [5]

GetLongPathName

---

Denis__   (2007-12-15 18:15:00) [6]

А откуда ты получил это самое C:\DOCUME~1\User\LOCALS~1\Temp\?

---

Наверх