Velhinho, não vou me alongar muito aqui, mas o que estou imaginando é que você
quer cadastrar a empresa que adquiriu seu software, certo?
Então faça o seguinte:
Crie um formulário chamado frmLicenca
Insira nele os campos necessários para cadastramento:
Por exemplo:
Nome
Data de aquisição
CGC/CNPJ
Endereço
Telefone
Contato
No evento OnCreate desse form, introduza um código mais ou menos assim:
cont
SUA_EMPRESA_KEY : 'SOFTWARE\SUA_EMPRESA\SEU_SISTEMA';
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(SUA_EMPRESA_KEY,false) then
begin
if Reg.ReadInteger('Licenciado') = 1 //está licensiado then
exit
else
MessageBox('O produto não está licensiado. Por favor, preencha o
formulário...','Produto não licenciado',MB_OK+MB_ICONWARNING);
end;
finally
Reg.Free;
end;
No evento OnClick do botão btnCadastro do seu form de cadastro da licença,
digite algo como:
procedue TfrmLicenca.btnCadastroClick(Sender: TObject);
var
Reg : TRegistry;
begin
// Procedimento igual ao anterior
Reg := TRegistry.Create;
try
Reg.RootKey = HKEY_LOCAL_MACHINE;
//true indica que a chave deve ser criada caso não exista
if Reg.OpenKey(SUA_EMPRESA_KEY,true) then
begin
//grava informações da empresa
Reg.WriteString('Empresa',edtNomeEmpresa.Text);
Reg.WriteBinary('DataAquisição',StrToDateTime(edtDataAquisicao.Text));
Reg.WriteBinary('CGC-CNPJ',edtCGC-CNPJ.Text);
Reg.WriteString('Endereco',edtEndereco.Text);
Reg.WriteString('Telefone',edtTelefone.Text);
Reg.WriteString('Contato',edtContato.Text);
//indica que está licenciado
Reg.WriteInteger('Licenciado',1);
end;
finally
Reg.Free;
end;
end;
Pronto. Cada vez que seu programa for executado o formulário de verificação de
licença será executado e, caso verifique que há uma licença válida, segue
carregando os demais forms.
Na unidade principal do seu projeto (program) utilize a mesma lógica que é
usada em splash forms no Delphi. Você encontra inúmeros exemplos na internet...
me recuso a colocar código aqui.
Espero ter ajudado.
Um abraço.
--------------------------------------------------------------------------------
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED]
----- Original Message -----
From: Edison DRP
To: delphi-br@yahoogrupos.com.br
Sent: Sunday, February 04, 2007 9:11 PM
Subject: Re: [delphi-br] Abrir form antes do principal
Simplificando ao máximo:
Ao iniciar seu sistema, verifique se já existe empresa cadastrada, e não
havendo, mostre o form de cadastramento. se já houver não mostre.
Edison
----- Original Message -----
From: "nillgolv" <[EMAIL PROTECTED]>
To: "delphi-br" <delphi-br@yahoogrupos.com.br>
Sent: Sunday, February 04, 2007 3:26 PM
Subject: [delphi-br] Abrir form antes do principal
Pessoal,
Venho pedir uma ajuda pois não consigo fazer, algo que ja vi em software.
Quero que após ter isntalado o projeto, que ao executa-lo após a instalação,
ele da show do form cadastro da empresa, sendo assim após já ter cadastrado
ele não apresente mais o form ao abrir o projeto e se precisar de abrir
depois que seja no menu.
Acredito que deu para entender.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
