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

Получение длинного имя файла по короткому.   Найти похожие ветки 

← →
Валет   (2002-06-07 14:12) [0]

Посмотрел FAQ там приведён пример получения длинного имя файла по короткому.
Ничерта не разобратся, помогите пожалуйста.
А то у меня пол винта поросло из-за копирования в досе =(

Есть такая функция:

function ShortToLongPath(const ShortName: string): string;
var LastSlash: PChar;
TempPathPtr: PChar;
strTmp: string;

begin
Result := "";
TempPathPtr := PChar(ShortName);
LastSlash := StrRScan(TempPathPtr, "\");
while LastSlash <> nil do
begin
strTmp := ShortToLongFileName(TempPathPtr); //Тут компилятор ругается
if strTmp <> "" then
begin
Result := "\" + strTmp + Result;
if LastSlash <> nil then
begin
LastSlash^ := char(0);
LastSlash := StrRScan(TempPathPtr, "\");
end;
end
else
LastSlash := nil;
end;
Result := TempPathPtr + Result;
end;

Как быть-то ?

Как всегда, с большим уважением, Дмитрий.

---

← →
Lord Warlock ©   (2002-06-07 14:20) [1]

> ShortToLongFileName

функция явно самодельная, ищи дальше...

---

← →
Song ©   (2002-06-07 14:27) [2]

procedure TForm1.Button1Click(Sender: TObject);
Var SearchRec:TSearchRec;
Begin
IF FindFirst("C:\DownLoad\dial-u~1.htm", faAnyFile,SearchRec)=0 then ShowNesssage(SearchRec.FindData.CFileName);
FindClose(SearchRec);
End;

---

← →
Black Cat ©   (2002-06-07 14:34) [3]

Функция не самоделишняя, в д6 в модуле FileUtil

---

← →
Black Cat ©   (2002-06-07 14:36) [4]

Поправка :) RxLib

---

← →
Игорь Шевченко ©   (2002-06-07 14:37) [5]

Если не секрет, в каком каталоге D6 есть модуль FileUtil.pas ?

---

← →
MBo ©   (2002-06-07 14:40) [6]

function ShortToLong(sfname:string):string;
var info:TSHFileInfo;
begin
if SHGetFileInfo(PChar(sfname),0,info,SizeOf(info),SHGFI_DISPLAYNAME)<>0
then Result:=string(info.szDisplayName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=ShortToLong("C:\PROGRA~1");
end;

---

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

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



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