Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];
Вниз
Хотел сделать защиту. Найти похожие ветки
← →
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?
← →
Defunct © (2005-06-11 21:57) [6]> Вот в этом коде возникает странная ошибка
Как проявляется "странная" ошибка сказать можешь?
← →
Anatoly Podgoretsky © (2005-06-11 22:05) [7]Слов не хватает.
← →
-=XP=- © (2005-06-11 23:57) [8]Судя по обилию ShowMessage, автор не знает, что такое трассировка. Ждать от такого точного места возникновения ошибки бесполезно.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c
