Восстанавление длинных имен файлов -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.236.100.210]

Модераторы: Rouse_, jack128, Krid

Восстанавление длинных имен файлов

Chess

Сообщ. #1 , 09.01.05, 09:47

Full Member

Профиль · PM

Рейтинг (т): 6

Функция восстанавливает длинные имена существующих файлов (с удалёнными не прокатит).
На входе: short(string) filename,
на выходе: long filename(string) или пустая строка(string), в случае некоректного имени файла.

uses Windows, SysUtils;

function GetLongFileName(InputName: string): string;

var

Root, Net: Boolean;

InPath, CurP, BegP: PChar;

CurItem, CurPath, OutPath: string;

RootGuard: SmallInt;

FindHandle: Cardinal;

FindData: WIN32_FIND_DATA;

begin

if not FileExists(InputName) then

begin

Result:= '';

Exit;

end;

OutPath:= InputName;

InPath:= PChar(InputName);

Root:= True;

Net:= False;

RootGuard:= 0;

CurP:= InPath;

while CurP^<>#0 do

begin

BegP:= CurP;

while (CurP^<>'\') and (CurP^<>#0) do CurP := CharNext(CurP);

SetString(CurItem, BegP, CurP - BegP);

if CurItem='' then CurPath:= CurPath+'\' else

begin

CurPath:= CurPath+CurItem;

if Root then

begin

OutPath:= CurPath;

CurPath:= CurPath+'\';

end;

if (CurPath='\\') or (CurPath='\') then Net:= True;

if Root then

begin

if Net then

begin

RootGuard:= -1;

Net:= False;

end;

Inc(RootGuard);

if RootGuard>0 then Root:= False;

end

else

begin

FindHandle:= FindFirstFile(PChar(CurPath), FindData);

OutPath:= OutPath+'\'+FindData.cFileName;

Windows.FindClose(FindHandle);

CurPath:= CurPath+'\';

end;

CurP := CharNext(CurP);

end;

Result:= OutPath;

end;

Эта тема была разделена из темы "Восстанавление длинных имен файлов"

Сообщение отредактировано: Chess - 09.01.05, 09:50

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0174 ] [ 16 queries used ] [ Generated: 20.09.24, 08:24 GMT ]