25.12.2007, 20:08
|
|
Активный
|
|
Регистрация: 29.11.2007
Адрес: Оренбургская обл., Россия
Сообщения: 261
Репутация: 15
|
|
Вот разберись, думаю поможет
Вот разберись с этим, думаю поможет:
Код:
program trial;
uses
forms,
unit1 in 'unit1.pas' {form1},
registry, dialogs; // Для tregistry и showmessage
{$r *.res}
var
reg: tregistry;
n: integer;
begin
reg := tregistry.create;
with reg do
begin
openkey('software', true);
openkey('trialprog', true);
if valueexists('maxrun') then // Первый запуск?
begin // - Нет
n := readinteger('maxrun')-1;
if n>=0 then
writeinteger('maxrun', n)
end else begin // -Да, первый запуск
n := 5;
writeinteger('maxrun', n)
end;
free
end;
if n>0 then
begin
application.createform(tform1, form1);
application.run;
end else
showmessage('Исчерпано максимальное количество запусков'+
' пробной версии программы')
end.
|