Форум на Исходниках.RU

Var

lngDosError: Word;

{ Результат последней операции с длинными именами }

{ Эту переменную следует проверять после использовании процедур или }

{ функций данного модуля. После использовании процедур/функций других }

{ модулей (например, System или Dos) следует проверять код ошибки через }

{ переменные соответствующих модулей! }

Const

lngSubstedPaths: Boolean = True;

{ Данная переменная используется функциями lngTrueName, lngShortName и }

{ lngLongName. Если значение переменной = FALSE, то функции возращают }

{ физический путь к файлу, если он находится на Subst-диске, если TRUE, }

{ то возвращается виртуальный путь к файлу. }

{$S-}

Procedure LString2ASCIIZ; assembler;

Asm { DS:SI = LString; ES:DI = Buffer for ASCIIZ }

cld

push si

push di

lodsb

xor ah,ah

mov cx,ax

rep movsb

xchg ax,cx

stosb

xchg ax,cx

pop di

pop si

End; { DS:SI = LString; ES:DI = ASCIIZ; AX = Length; CX is destroyed }

{$S-}

Procedure ASCIIZ2LString; assembler;

Asm { DS:SI = ASCIIZ; ES:DI = Buffer for LString }

cld

mov cx,255

xor ax,ax

repne scasb

std

jnz @

inc cx

cmpsb

@:not cx

xor ch,ch

mov ax,cx

add si,ax

rep movsb

stosb

cld

cmpsb

End; { DS:SI = ASCIIZ; ES:DI = LString; AX = Length; CX is destroyed }

{$S+}

Function TrueNameFunction(const Name: String): String; assembler;

Var ASCIIZ: array [0..260] of Char;

Asm

push ds

mov ch,lngSubstedPaths

or ch,ch

jz @NotSubsted

mov ch,80h

@NotSubsted:

push cx

lds si,Name

push ss

pop es

lea di,ASCIIZ

call LString2ASCIIZ

mov ax,7160h

pop cx

push ss

pop ds

mov si,di

les di,@Result

stc

int 21h

jnc @Ok

mov byte ptr es:[di],0

jmp @Error

@Ok:

mov si,di

call ASCIIZ2LString

xor ax,ax

@Error:

pop ds

mov lngDosError,ax

End;

{$S-}

Function lngTrueName(const Name: String): String; assembler;

{ Получить полное имя файла Name (аналогично функции FExpand модуля DOS) }

{ Значение переменной lngSubstedPaths учитывается (см. комментарии) }

Asm

xor cl,cl

jmp TrueNameFunction+3

End;

{$S-}

Function lngShortName(const LongName: String): String; assembler;

{ Получить полное короткое имя _существующего_ файла }

{ Значение переменной lngSubstedPaths учитывается... }

Asm

mov cl,1

jmp TrueNameFunction+3

End;

{$S-}

Function lngLongName(const ShortName: String): String; assembler;

{ Получить полное длинное имя _существующего_ файла }

{ Значение переменной lngSubstedPaths учитывается... }

Asm

mov cl,2

jmp TrueNameFunction+3

End;

Var

F: File;

S: String;

Begin

S := ParamStr(1);

If S = '' then

Begin

WriteLn('Необходимо задать имя файла!');

Halt

End;

S := lngShortName(S);

If S <> '' then

Begin

FileMode := 0; { Чтоб открывались ReadOnly-файлы }

{$I-}

Assign(F, S);

Reset(F);

{$I+}

If IOResult = 0 then

Begin

Close(F);

WriteLn('Файл найден!')

End

else WriteLn('Файл не открывается или это каталог!')

End

else WriteLn('Файл НЕ найден!')

End.