7.4.2. Тестовая программа
Следующая программа иллюстрирует некоторые приемы работы с модулем F_Prot. Программа анализирует ключи запуска: если используется ключ /SET, осуществляется установка программы на жесткий диск, если ключ /REMOVE, уничтожается стационарная копия программы, если этих ключей нет в команде запуска, программа осуществляет контроль легальности копии. Ключевая дискета должна быть предварительно подготовлена с помощью программы Diskette (см. прил.ПЮ.1).
1 Эта программа проверяет легальность своей \ \ копии за счет контроля ключевой дискеты. \ +-_———————_-__-_————————__——————+^
Uses F_Prot;
Procedure Alarm; Far;
{Получает управление, если копия нелегальна} begin
WriteLn('Нелегальная копия') end;
;•————————————_
Procedure Norma; Far;
{Получает управление в случае легальной копии} begin
WriteLn('Легальная копия') end;
^—————————.——;
Function ParStr: String;
{Возвращает параметр вызова (заглавными буквами)} var
S: String;
k: Byte;
begin
S := ParamStr(1);
for k := 1 to Length(S) do S[k] := UpCase(S[K]);
ParStr := S end;
^————————————;
var
pl,p2: Pointer;
d: Integer;
dsk: Byte;
begin {Главная программа} pi := @Norma;
p2 := @Alarm;
if ParStr='/SET' then
WriteLn('Установка на ЖД: ",SetOnHD) else
if ParStr='/REMOVE' then
•WriteLn('Удаление с ЖД: ',RemoveFromHd) else begin
ProtCheck(pl,p2,d) ;
WriteLn('Результат проверки: ',d) end end.
