Хотел сделать защиту.

← →
Galiaf (2005-06-11 20:45) [0]

Доброго вам времени суток. Я хотел защитить прогу от распростронения и натолкнулся на ошибку. Опишу что должен был делать этот кусок кода

showmessage("Начинаем"); if fileexists("KeyFile.key") then begin showmessage("Нашли файл"); KeyFile:=tfilestream.Create("KeyFile.key",fmopenread); KeyFile.Read(Key,19); showmessage("прочитали ключ"); if (key=4135148798765463123) or (key=4135148598765463123) then begin showmessage("узнали ключ, он либо начальный либо изменённый"); if key=4135148798765463123 then {begin showmessage("он начальный, переписываем"); key:=4135148598765463123; KeyFile.Write(key,19); showmessage("переписали") end} else showmessage("он изменённый") end else showmessage("ключ явно не тот"); end else showmessage("не нашол файл"); keyfile.free;

В начале он проверяет есть ли файл вообще. Если есть то проверяет инфу в файле если номер начальный т.е. прогу ещё не запускали, то переписывает файл и он становится изменённым, если номер изменённый то всё в шоколаде. Вот в этом коде возникает странная ошибка, я не могу понять в чём дело, Showmessage в коде для того что бы видеть что делает прога, но это мне не сильно помогло :(. Я планировал что бы прога делала запись в реестре когда читает начальный код, но пока это бесполезно делать из-за ошибки.

← →
Anatoly Podgoretsky © (2005-06-11 20:59) [1]

Все хорошо, много, очень много слов и не оюного про ошибку.

← →
Galiaf (2005-06-11 21:06) [2]

Я сам не понял что за ошибка

← →
Kolan © (2005-06-11 21:37) [3]

> Galiaf (11.06.05 21:06) [2]

Текст ошибки... И точное её место...

← →
Anatoly Podgoretsky © (2005-06-11 21:39) [4]

Так он не знает, он только предполагает, что у него ошибка, но молчит.

← →
_Lucky_ (2005-06-11 21:42) [5]

А как тогда ты понял в чем ошибка?
И какого типа если не секрет key?

> Вот в этом коде возникает странная ошибка

Как проявляется "странная" ошибка сказать можешь?

Слов не хватает.

Судя по обилию ShowMessage, автор не знает, что такое трассировка. Ждать от такого точного места возникновения ошибки бесполезно.

Хотел сделать защиту. Найти похожие ветки