nikedeforest, да ничего сложного, но человек как я понял начинающий, и дать ему просто схему, боюсь не поможет, а код выкладывать зачем, когда полно подобных примеров в разночисленных FAQ. Cхема же такова:
Код для главной формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
If {Проверяем реестр, если ключ уже прописан в реестр и правильный} then
exit
else
If {Ключ прописан, но неправильный} then
ShowMessage('Ключ неверен!');
Form2:=TForm2.Create(Application);//форма регистрации
Form2.ShowModal;
end;
Код для окна регистрации:
procedure TForm2.Button1Click(Sender: TObject);
var
reg:TRegistry;
b:boolean;
begin
b:=False;
If {ключ правильный} then
begin
reg:=TRegistryCreate;
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
If not reg.OpenKey('SOFTWARE\MyProgram', True) then
begin
ShowMessage('Ошибка записи в реестр, нужны права администратора!');
Apllication.Terminate;
end;
reg.WriteString('Key', '12345678');
reg.CloseKey;
Close;
finally
reg.Free;
end;
end
else
begin
ShowMessage('Ключ неверен!');
exit;
end;
end;
