Ограничение запусков программы??

[John_chek]

Подскажите, как сделать ограничение запусков программы??

[Квэнди]

Что вы имеете ввиду ? что именно надо ограничить ?

[mrandrey]

Прячешь в реестре, или еще где нибудь, например в файлик, запись при первом запуске, а потом:
1. если записал время: при запуске проверяешь сколько прошло дней с того времени если Х - то не запускаемся.
2. при каждом запуске записывать счетчик запусков, и если запуск больше Х , опять же не запускаемся

[John_chek]

Сообщение от Квэнди

Что вы имеете ввиду ? что именно надо ограничить ?

Нужно, чтобы прога запускалась, например 10 раз, а потом каюк.(что-то типа триал ключа)

Прячешь в реестре, или еще где нибудь, например в файлик, запись при первом запуске,

Можно поподробнее?! Не работал с реестром, поэтому и спрашиваю.

[merax]

Сообщение от mrandrey

Прячешь в реестре, или еще где нибудь, например в файлик, запись при первом запуске, а потом:
1. если записал время: при запуске проверяешь сколько прошло дней с того времени если Х - то не запускаемся.
2. при каждом запуске записывать счетчик запусков, и если запуск больше Х , опять же не запускаемся

Простой и не эффективный метод защиты. Поставит в тупик кракера только с двухдневным стажем. Есть программы отслеживающие изменение состояния операционной системы при определенных условиях (в нашем случае создание файла или ключа реестра при установке приложения).

[mrandrey]

подробнее так:

uses
.... registry;
.......

implementation

procedure TForm1.FormCreate(Sender: TObject);
var reg:TRegistry;
t:integer;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;//HK щставляешь, а там можешь выбрать доугую ветвь
// но осторожно в LocalMashine не советую там куча закрытых ключей
if reg.KeyExists('\Software\My praga')then //если путь есть
begin
reg.OpenKey('\Software\My praga',false);
t:=reg.ReadInteger('Count');
if t>=30then //если запустились 31 раз
halt //зарубуем
else
reg.WriteInteger('Count',t+1);
end
else
begin //запускаемься первый раз
reg.CreateKey('\Software\My praga');
reg.OpenKey('\Software\My praga',false);
reg.WriteInteger('Count',1);
end;
reg.Destroy;
end;

[mrandrey]

Сообщение от merax

Простой и не эффективный метод защиты. Поставит в тупик кракера только с двухдневным стажем. Есть программы отслеживающие изменение состояния операционной системы при определенных условиях (в нашем случае создание файла или ключа реестра при установке приложения).

Все равно нужно гдето, что-то записать иначе не получится, чтобы усложнить, можешь придумать инсталяшку для програмки, которая будет генерировать при установке какой-то ключ из Х символов, в котором будет зашифрована дата установки, а программа пускай считывает ключ, извлекает дату и сравнивает, а если ключа нет, то незапускается.

[Сильванович Михаил]

Можно записывать в конец файла самой программы (и при каждом запуске прога должна чекить 1-2 байт (зависит от того берешь ты или byte, или word в качестве размера счетчика, но более 2 байт, думаю, нет необходимости)), и записывать на то же место число на 1 больше. Это не привдеет к изменению размера exe, если сразу после компиляции вогнать туда #0 или #0#0, что опять же зависит от того каким типом целых ты будешь пользоваться.

[mrandrey]

Можно записывать в конец файла самой программы ....



Идея плохая... если на папку в которой находиться файл, обрубить права.. "лишь для чтения", она либо вообще не запуститься, либо не сможет обновить щетчик.

[John_chek]

Спасибо всем, написал так, как советовал mrandrey, все работает! Думаю на первое время пойдет, а там думаю сделать ограничение на запись в базу данных!