|
|
 | |  |
|
примера триала
uses Registry;
procedure TForm2.RzBmpButton1Click(Sender: TObject);
var n:integer; //количество запусков будем считывать сюда
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
with Reg do
begin
OpenKey('software', True);
OpenKey('TrialProg', True); //HKEY_CURRENT_USER\Software\TrialProg
If ValueExists('MaxRun') then //если возвращает значение true, значит есть параметр с
//именем MaxRun и для него определено значение
begin
n:=ReadInteger('MaxRun')-1; //отнимаем ещё один запуск
if n>=0 then WriteInteger('MaxRun', N); //записываем в реестр
end else //возвращает false значит это первый раз, либо пользователь удалил))))
begin
N:=10; //задаём кол-во запусков
WriteInteger('MaxRun', N); //записываем в реестр
end;
Free;
end;
If n>0 then //больше 0 значит запускаем программу
begin
Application.Create(TForm1, Form1);
end else //если не больше 0, значит
begin
//говарим пользователю что срок лицензии закончился
MessageBeep(MB_ICONASTERISK);
MessageDlg('Срок лицензии закончился.', mtInformation, [mbOk], 0);
end;
end;
|
| Категория: DELPHI | Добавил: SeM (06.05.2011)
|
| Просмотров: 678
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
