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

← →
Валет (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

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

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;

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