Array
(
)

Tela de Registro...

Rodrigorpb
   - 13 mar 2006

Olá amigos,
Estou implementando em meu Sistema um componente de segurança para registro do sistema (OnGuard), mas naum estou conseguindo fazer com que ele apareça antes do Sistema. Alguém poderia me ajudar?

Ele funciona assim:
Tenho o em Sistema FormStyle: fsMDIForm. No OnCreate do Sistema tem o verificador com este cógido:

#Código

procedure TfrmMain.FormCreate(Sender: TObject);
var
ReleaseCodeString: string;
var SerialNumber : longint;
begin
GetRegistrationInformation (ReleaseCodeString, SerialNumber);
if not IsReleaseCodeValid (ReleaseCodeString, SerialNumber) then
Begin
Label1.Caption := ´Não registrado!´;
End
else
Begin
Label1.Caption := ´Olá Mundo!!!´;
End;
end;


O outro programa para para colocar o cógido sérial se estiver correto o número ele cria um arquivo .dat, e ele faz o código a cima, que esta no OnCreate do meu Sistema, ´Olá Mundo!!!´, se não for registrado aparece ´Não registrado!´. Estou colocando dentro do Sistema, mas como faço para ele abrir primeiro que o Sistema, sendo que o Sistema esta em MDI. E como ele pode deixar tudo desativo no meu Sistema caso não esteja registrado, para o usuário naum poder usar nada.

Alguém pode me ajudar? Como é a melhor forma de fazer isso?

Obrigado,
Rodrigo Bonini