Delphi ошибка программы

[Максим_83]

Приветсвую всех. Написал в программе защиту со сверкой в реестре.
Чтение и запись реестра происходит без проблем. Если в реестре нет записи или она пуста то программа просит код, но если есть запись вылетает ошибка. Код защиты находится на другой форме.
Где мой недочёт? Помогите.

function ReadKey: string;
 var
 h: Tregistry;
 begin
 h :=TRegistry.Create;
 with h do
 begin
 try
 RootKey:=HKEY_LOCAL_MACHINE;
 OpenKey('SOFTWARE\Licenses\',false);
 Result:= ReadString('123');
 if Length(Result)=0 then
 Result:='Ключ не найден';
 Finally
 CloseKey;
 Free;
 end;
 end;
 end;

procedure TForm4.FormCreate(Sender: TObject);
begin
Edit1.Text := gH;
if Encode64(Edit1.Text) = ReadKey then
Form1.Show
 else
 ShowMessage('Активируйте программу!');
end;

[Utkin]

Что за ошибка?
На первый взгляд - возможно значение реестра не String
Можно попробовать использовать except вместо finally...

[evg_m]

	
	

			
				Form1.Show
			
		

немного телепатии
объект form1 не создан<=> Acseess Violation 000000...

в момент создания Form4

TForm4.FormCreate(Sender: TObject);

первая форма (Tform1) еще не была создана.

[Максим_83]

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

немного телепатии
объект form1 не создан<=> Acseess Violation 000000...

в момент создания Form4
первая форма (Tform1) еще не была создана.

Прошу прощения за столь долгое отлучение.
Подскажите как это можно обойти? т.е. как сделать чтобы создались формы, но при этом к ним был закрыт доступ без кода?

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

[Максим_83]

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

Что за ошибка?
На первый взгляд - возможно значение реестра не String
Можно попробовать использовать except вместо finally...

Значение именно что String. Для проверки записи и выдёргивания кода из реестра выводил на форму в Edit эти значения.

[Максим_83]

Неужели нет людей которые могут подсказать?

[grom333]

Ну пусть создаться форма, но будет невидимой!

[Максим_83]

В итоге решил сам свою проблему, вот таким способом.

Form 1
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainform:=false;
end;

Form 4

procedure showmf;
begin
Form1.Show;
showwindow(Form4.handle, SW_HIDE);
end;

procedure TForm4.FormActivate(Sender: TObject);
begin
  Application.ShowMainform:=false;
Edit1.Text := gH;
if ReadKey = Encode64(Edit1.Text) then
showmf
 else
 ShowMessage('Активируйте программу!');
end;

И вся загвоздка была в этом маленьком кусочке кода.
код ввиде Form1.Hide не подходит, выбивает ошибку, чем и пришлось немного по другому сделать заменив его на Application.ShowMainform:=false;