Триал в реестре( Исправление)

[саша40]

Привет. Пишу программу и написал для своей программы модуль под название RegTrial. Он позволяет мне работать над триалом в реестре и вот то место на которое я хотел бы обратить ваше внимание:

Trial:= TRegTrial.Create;//создаем элемент триала
Trial.Init('h_c_u');  //иницилизация(создание ключа)
if Trial.RegistertEx('MusicPlayer')=false then //если регистрация ещё не прошла то...
begin
a:=datetostr(date); //узнаем текущую дату
Trial.CreateTrial('MusicPlayer');
Trial.OpenTrial('MusicPlayer');
Trial.Registrator('ACTIVATE');
a1:=Date + 30; //создаем переменую триала
Trial.WriteDate(a);
a2:=strtodate(Trial.ReadCloseDate('Конечная дата')) - date; //узнаем остаток дней
Trial.WriteCloseDate('Конечная дата',datetostr(a1)); //записываем конечную дату
Form2.Label5.Caption:='Конечная дата:' + Trial.ReadCloseDate('Конечная дата'); //показываем конечную дату
Form2.Label6.Caption:='Осталось дней: ' + datetostr(a2) + ' дней'; //показываем сколько осталось дней
end
else //иначе
begin //прошла регистрация
Trial.OpenTrial('MusicPlayer');
a11:=Trial.ReadCloseDate('Конечная дата');
a1:=strtodate(a11);
a2:=a1 - date; //узнаем сколько осталось
Form2.Label5.Caption:='Конечная дата: ' + Trial.ReadCloseDate('Конечная дата'); //показываем конечную дату
Form2.Label6.Caption:='Осталось дней: ' + datetostr(a2) + ' дней'; //показываем сколько осталось дней
if (date=a1) and (Trial.ActivationExists('ACTIVATE')=false) then //узнаем активирована ли программа и кончился ли срок
begin
ShowMessage('Внимание! Истек срок активации! Активируйте программу!');
Form2.Show; //форма активации
end;

if Trial.ActivationExists('ACTIVATE')=false then  //узнаем активирована ли программа
Form2.Label4.Caption:='Cтатус: Неактивировано' //если нет то пишим это
else
Form2.Label4.Caption:='Статус: Активировано';  //иначе это
end;
Trial.Free;

И при старте программы вылезает такая ошибка:
Access violation at address 004899F1 in module 'MusicPlayer.exe'. Write address 00488CD8' Говорит, что какая-то блямба возникла при записи адреса. Кидается на первую строку:

 Trial:= TRegTrial.Create;

Подскажите как подправить?

[Человек_Борща]

Покажите конструктор вашего класса.

[Stilet]

Нужно знать как TRegTrial описан и реализован.

[саша40]

Вот так:

type
TRegTrial = class(TObject)
private
{ Private declarations }
public
{ Public declarations }
constructor Create;
destructor Destroy; override;
function Init(R: string): Boolean;
function Registrator(Name: string): Boolean;
function ReadDate(): string;
function ActivationExists(Name: string): boolean;
function SetDate(Dat: string): boolean;
function Activater(Name: string; F: boolean): boolean;
function SetTime(F: string): boolean;
function ReadTime(): String;
function RegistertEx(ProgrammName: string): Boolean;
function DeleteTrial(ProgrammName: string): Boolean;
function WriteCloseDate(Name, Dat: string): Boolean;
function ReadCloseDate(Name: string): string;
function WriteCloseTime(Name, Tim: string): Boolean;
function ReadCloseTime(Name: String): String;
function WritePasswordKey(Name, Password: string): boolean;
function ReadPasswordKey(Name: string): String;
function OpenTrial(ProgrammName: string): Boolean;
function CreateTrial(ProgrammName: string): Boolean;
function WriteDate(Dat: string): Boolean;
end;

Ну и как вам?

P.S. Я сам его писал. Честно своими руками.

[Stilet]

Пока никак. Показывай реализацию конструктора.

[саша40]

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

Пока никак. Показывай реализацию конструктора.

Держите:

constructor TRegTrial.Create;
begin
Reg:= TRegistry.Create;
end;

[Stilet]

Хм... криминала вроде нет... Нужно отлаживать по шагам весь код.

[саша40]

А можете хотяюы обьяснить: Что это за ошибка выпадает?

[Человек_Борща]

саша40, Инструкция по адресу XXXXX не имеет права совать свой нос в адрес YYYY, за что была послана на юг гусей ловить.

В конструкторе жуков нету, за исключением этого грызуна:

Reg:= TRegistry.Create;

В классе нет нигде его объявлений. Возможны вы пытаетесь присвоить ново-созданный объект TRegistry.Create ещё физически не существующей переменной Reg.

[саша40]

Сообщение от Человек_Борща

саша40, Инструкция по адресу XXXXX не имеет права совать свой нос в адрес YYYY, за что была послана на юг гусей ловить.

В конструкторе жуков нету, за исключением этого грызуна:

Reg:= TRegistry.Create;

В классе нет нигде его объявлений. Возможны вы пытаетесь присвоить ново-созданный объект TRegistry.Create ещё физически не существующей переменной Reg.

это переменая обьявлена в разделе var того-же unit.