Программа-trial-программа, которая позволяет работать с ней на протежении некоторого времени, или ограничена по количеству запусков. После чего или удаляется из ПК, или требует регистрации, покупки лицензии. Trial программы создаются как пробние версии комерческих продуктов.
Ограничение по количеству запусков.
Для надежности в качестве места для хранения количества запусков программы будем
использовать реестр Windows. В примере приведенном ниже программа запустится только
5 раз. Для етого создайте обработчик собития формы (Form1) OnCreate и будет достаточно
поместить код:
var
R:TRegistry;
I:Integer;
begin
R:= TRegistry.Create; //Создаем TRegistry
with R do
begin
OpenKey('software', True); //открываем раздел software
OpenKey('Trial', True); //открываем раздел trial, или создаем, если такого не существует
if ValueExists('MaxRun') then
begin
I := ReadInteger('MaxRun')-1;
if I>=0 then
WriteInteger('MaxRun', I)
end else begin
I := 5;
WriteInteger('MaxRun', I)
end;
Free
end;
if I>0 then
ShowMessage('Welcome')
else begin
ShowMessage('Sorry!');
Application.Terminate;
end;
end;
Также не забудьте uses Registry;