Скачать DOS session LONG-FILENAME functions for BP7

procedure LFNGetName(SubFn:word; Src,Dst:PChar);
procedure LFNRename(NameFrom,NameTo:PChar);
procedure LFNGetVolInfo(RootName,Buf:PChar; BufSize:word;
          var Flags,NameSize,PathSize);
{================ Standard pascal STRING versions: ===================}
{!!!WARNING! MAY BE BUGS - "STRING" SIZE=255 BUT LONG NAME UP TO 261! }
 
function sLFNGetName(SubFn:word; Src:string):string;
procedure sLFNRename(NameFrom,NameTo:string);
function sLFNGetVolInfo(RootName:string; var Flags,NameSize,PathSize):
                                                               string;
function LFNFindFirst(Path:PChar; Attr:word; var S:TLFNSearchRec):word;
procedure LFNFindNext(Handle:word; var S:TLFNSearchRec);
procedure LFNFindClose(Handle:word);