сохранение значений прямо в exe

[Arigato]

Защита ненадёжна в принципе. Только если её применять в комплексе с другими методами.
Ведь можно заменить ЕХЕшник, когда счетчик до 0 дойдет.

[DeKot]

To Arigato
Попробовал применить функцию LimitCheck. Вставил имена файлов

TempName := ChangeFileExt (Application.ExeName, 'project1.tmp');
  if TempName = Application.ExeName then
  begin
    TempName := ChangeFileExt (Application.ExeName, 'project1.exe');
  Функцию вставил в простой проект (Application). Добавил для видимости информации

	
	
Form1.Canvas.TextOut(100,300,'Лимит запусков = ' + IntToStr(LimitCheck));

При первом запуске проги выдает лимит = 5. И создает случайное число временных файлов 'projtct1.tmp'; 'projtct1.projtct1.tmp'; 'projtct1.projtct1.projtct1.tmp'; Далее при следующих запусках лимит принимает опять же случайные значения - 4; 2; снова 5 и т.п.
При запусках из среды Дельфи в тулбаре имя запущеной программы хаотично состоит из нескольких project1.Если лимит = 5 один project1,если лимит = 3 то три прожекта.Вобщем голова кругом.
Что не так делаю?

[Arigato]

DeKot
Не надо было добавлять project1, здесь происходит смена расширения у имени Application.ExeName (имя ЕХЕшника) на .tmp и обратно, соответственно.

[DeKot]

Т.е. оставляем в функции только расширения файлов.Буду пробовать.
Спасибо.

[Mitriy08]

Для красоты можно хранить не само число, а хеш числа.
+ Кроме того, что запихивать это число в сам exe я бы запихивал еще в какой нить файл на винчестере и запихивал его бы подальше. И при загрузке проги сравнивал эти числа....
Ну серавно так сказать кто захочет ламануть прогу запустит дебагер и всо....

[DeKot]

В принцпе речь не идет о такой глубокой защите.
А вот функцию от Arigato в оконной программе не получилось применить.В консольном приложении работает прекрасно.Идет декремент счетчика, при заканчивании лимита exe-шник больше не запускается.
А в оконном приложении счетчик стоит на месте, единственное,что создается временный файл .tmp и все.

[Arigato]

DeKot
Что-то делаете не так. Можно глянуть на пример кода (хотя бы с пустой формой, где не работает)?

[DeKot]

Вот проект с формой.Консольное приложение не выкладываю, так как все работает.

[Arigato]

Вот, решил проблемку.

[DeKot]

Отлично.Работает.Большое спасибо,Arigato.