4: NoCopy := True end;

end; (GetParamsf begin {CheckFile}

Name := ParamStr(O); {Name содержит полное имя файла) GetParams; {Получаем параметры вызова} if NoAnti then

CheckVirusResult :=—3 else begin

Assign(f,Name);

Reset(f,l); _ {Длина блока равна 1 байт} BlockRead(f,Head,SizeOf(H)); {Читаем заголовок файла} if H.HF then

Check {Проверяем заголовок файла} else

Save; {Запоминаем заголовок} Close(f) end end; {CheckFile} { Все действия осуществляются установочной частью модуля:

} begin

CheckFile end. (F_Antl)

П8. КОМПЛЕКС ПРОГРАММ SETFAG.PAS/FAG.ASM П8.1. Установщик фага SetFag.pas

Описание программы см. п. 6.4.1.

/

Эта программа устанавливает автономный антивирус-фаг на любой ЕХЕ-файл или

группу файлов. Код антивируса берется из файла FAG.PRG (или загрузочной част

любого другого ЕХЕ-файла). Формат обращения:

SetFag <EXE> [/F:<FAG>] [/NOBAK]

<ЕХЕ> - имя защищаемого ЕХЕ-файла (допускается групповое имя с использованием "*" и "?"; можно указать маршрут поиска; по умолчанию назначается расширение ЕХЕ) ;

<FAG> - имя ЕХЕ-файла с кодом фага; если ключ не задан, код берется из файла FAG.PRG

Ключ /NOBAK блокирует создание резервных копий защищаемых файлов (с расширением ВАК) .

}

Uses F_Anti,DOS;

const

LT » 63; {Длина строк сообщения}

NT - 20; (Количество строк сообщения}

Text: array [I..NT] of String [LT] °(

'Эта программа устанавливает автономный антивирус-фаг на любой',

'ЕХЕ-файл или группу файлов. Код антивируса берется из файла',

'FAG.PRG (или загрузочной части любого другого ЕХЕ-файла). ',

'Формат обращения:",

' SetFag <EXE> [/F:<FAG>] [/NOBAK]',

'<ЕХЕ> - имя защищаемого ЕХЕ-файла (допускается групповое имя',

' с использованием "*" и "?"; можно указать маршрут по-',

' иска; по умолчанию назначается расширение ЕХЕ);',