Скачать: CL | DM;

D: Sabre~1.html -> D: Sabretui345.html   Найти похожие ветки 

← →
DDA ©   (2004-02-08 16:33) [0]

Подскажите как преобразовать досовский путь в полный
Видел где-то здесь ответ раньше но сейчас несмог найти

---

← →
Palladin ©   (2004-02-08 16:40) [1]

GetFullPathName

---

← →
DDA ©   (2004-02-08 17:13) [2]

Попробывал так,не получилось

procedure TForm1.Button1Click(Sender: TObject);
var p:PChar;
   Buffer: array [0..MAX_PATH - 1] of Char;
begin
 GetFullPathName(pchar("D:\SABRE_~1.DDC"),sizeof(buffer),buffer,p);
 ShowMessage(p);
end;

в переменной p возвращается SABRE_~1.DDC"

Дак как же преобразовать-то?

---

← →
MBo ©   (2004-02-08 17:56) [3]

FindFirst + WIN32_FIND_DATA

---

← →
DDA ©   (2004-02-08 18:34) [4]

> MBo ©   (08.02.04 17:56) [3]
> FindFirst + WIN32_FIND_DATA

Дак там же только имя файла а мне нужен ещё и путь

---

← →
VMcL ©   (2004-02-09 15:33) [5]

>>DDA ©  (08.02.04 18:34) [4]

Рекурсию никто не отменял.

---

← →
Anatoly Podgoretsky ©   (2004-02-09 15:39) [6]

SetCurrentDir/GetCurrentDir

---

← →
Anatoly Podgoretsky ©   (2004-02-09 15:40) [7]

DDA ©   (08.02.04 18:34) [4]
Кроме того путь у тебя D:\

---

← →
Германн ©   (2004-02-09 17:56) [8]

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;



---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c