Как юзать эту функцию ?
Валет © (2002-06-06 20:03:00)
Как юзать эту функцию ?
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение длинного имени файла по его короткому
имени
Функция преобразует короткое имя файла в длинное.
Зависимости: Windows, SysUtils, Classes
Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121,
Санкт-Петербург
Copyright: Dimka Maslov
Дата: 29 апреля 2002 г.
***************************************************** }
function GetLongName(const FileName: string): string;
var
GetLongPathName: function (pszShortName, pszLongName: PChar;
cchBuffer: Integer): Integer stdcall;
Handle: HINST;
Buffer: array[0..MAX_PATH-1] of AnsiChar;
function InternalGetLongName(FileName: string): string;
var
SearchRec: TSearchRec;
FindResult: Integer;
Path, S1, S2, SN: string;
begin
if (FileName = "") or
(GetFileAttributes(PChar(FileName)) = $FFFFFFFF) then begin
Result:="";
Exit;
end;
Path:=ExtractFilePath(FileName);
S1:=FileName;
Delete(S1, 1, 1);
if (Path<>"") and (S1<>":") and (S1<>"\")
then begin
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
Result:=FileName;
SN:=ExtractFileName(FileName);
while FindResult = 0 do begin
S2:=SearchRec.Name;
if (SN = S2) or (SN = SearchRec.FindData.cAlternateFileName)
then begin
Result:=InternalGetLongName(ExcludeTrailingBackslash(Path))+"\"+S2;
Break;
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
end else Result:=FileName;
end;
begin
Handle:=GetModuleHandle("kernel32.dll");
@GetLongPathName:=GetProcAddress(handle, "GetLongPathNameA");
if Assigned(GetLongPathName) then begin
if GetLongPathName(PChar(FileName), @Buffer[0],
SizeOf(Buffer))<>0
then Result:=PChar(@Buffer[0]) else Result:=FileName;
end else Result:=InternalGetLongName(FileName);
end;
Пытался так:
Label1.caption:=
GetLongName("C:\Downloads\dial-u~1.htm");
Но ничего не происходит =(
т.е в лэйбле остаётся короткое имя.
Song (2002-06-06 20:34:00) [1]
Ужас какой... В FAQ есть в два разе меньше и работающая!
Наверх 
ЧАТ |
Орешник |
|
