Помогите, пожалуйста разобраться:


Что не так? записывать записывает, но не сравнивает даты и период, а прордолжает дальше работать.
//------------------------------------
В общем делаю ограничение пользования программой в днях
Вообще, хотелось бы сделать, как в "Касперском", есть ключ на определенное время.Ты его устанавливаешь, пользуешься программой, истекает время, все - сообщение, выход из программы, берешь другой ключ. Мож подскажите, как можно такое реализовать.


Это сообщение отредактировал(а) bems - 24.5.2010, 22:43

Выяснить поможет отладчик.

Код рабочий. Сабж реализует.
Не под администратором по умолчанию нет разрешений на запись в HKEY_LOCAL_MACHINE.

Код рабочий. Сабж реализует. - Что такое сабж???
А вообще я в правильную ветку записываю или нужно,мож в другую???




Это сообщение отредактировал(а) curumb - 24.5.2010, 22:51

  

Кому нужно? Откуда же мы тут знаем, в какую ветку тебе нужно записывать?  А код действительно нормальный.

Добавлено через 1 минуту и 42 секунды
А вообще после date и now разве скобки не нужны? date(), now() ?

Вопрос первый

Какая ветвь для чего. В твоём случае я бы использовал ту же. 

Скобки не нужны. Это Delphi. 

Спасибо за советы. 
а за статью отдельное!

И все равно почему-то не проверяет условие проверки даты - 

if now-data<2 then begin // если прошло меньше 2 дней с момента записи в реестр, то освобождаю объект
reg.free;
end else
if now-data>2 then begin//если прошло больше 2 дней с момента записи в реестр, то вывожу сообщение
reg.free;
ShowMessage('Действие лицензии истекло');
Form44.Close;// и закрываю все
Form1.Close;

просто работает как и работала... Не подскажите, в чем может быть дело?

curumb, посмотри, какое значение у тебя в переменной data.

Вместе с датой и время в реестр пишется, считывается и сравнивается с now. С какой точностью будут отмеряться двое суток?   

Не хочешь проверить data отладчиком - воткни ShowMessage
   … но лучше бы  отладчиком. 

   Здесь забыл ведущий бэкслэш, в другом месте можешь очепятаться серьёзней. Закинь путь в константу/переменную.

ОК, попробую такие варианты...спс  

С какой точностью будут отмеряться двое суток?   
Точность особого значения не имеет...период приблизительный.

Я в Delphi не особо силен, поэтому не знаю как отладчиком проверить дату, воспользовался представленным кодом - 

ShowMessage('Дата в реестре: '+DateTimeToStr(data)+ '.   Разность: ' + FloatToStr(now-data)); //уберу, когда разберусь

Дату в реестре почему то перезаписывает каждый раз при запуске, не скажите с чем может быть связано?

По умолчанию RootKey установлено в HKEY_CURRENT_USER.

procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
data:TDateTime;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if not Reg.KeyExists('Software\RiseV1.0.0.0') then begin
Reg.OpenKey('Software\RiseV1.0.0.0', true);
Reg.WriteDate('1Rise', Date);
Reg.CloseKey;
end else
if Reg.KeyExists('Software\RiseV1.0.0.0') then begin
Reg.OpenKey('Software\RiseV1.0.0.0', false);
data:=Reg.ReadDate('1Rise');
if now-data<1 then begin
Reg.CloseKey;
end else
if now-data>1 then begin
Reg.CloseKey;
//здесь пишу: Form1.Close; - выдает ошибку и не закрывает приложение (Acces in violetion at address 0000000 - что-то такое)
end;
end;
finally
Reg.Free;
inherited;
end;
end;
-------------------------------------------------------------------------
Все работает. Единственное, что не получается, закрыть все приложение. Кто-нибудь может подсказать, как это сделать?


Это сообщение отредактировал(а) curumb - 29.5.2010, 23:12

Разобрался, нашел: Application.Terminate все закрывает.
Всем спасибо кто откликнулся  

Это сообщение отредактировал(а) curumb - 29.5.2010, 23:34