[TUTORIAL] Sistema de serial no Delphi

[Adriana D.]

Vou ensinar a todos voces a como fazer um simples sistema de serial no DELPHI 7.

Coloque no Form1:

1 Label / Caption : Digite seu Serial aqui:

1 Edit / Text '' '' (sem aspas)

1 Button / Caption : ''Proseguir'' (sem aspas)

No OnClick do Button1,coloque:

begin
if (Edit1.text = '')then
begin
Application.MessageBox('Preencha o campo de maneira adequada,pora favor!','Erro!',MB_ICONError);
Edit1.Clear;
end;
if (Edit1.text <> '') then
begin
if (Edit1.text = 'Seu Serial') then
begin
Form2 := Tform2.create(application);
Hide;
Form2.showmodal;
end;
if (Edit1.Text <> 'Seu Serial') then
begin
Application.MessageBox('Número de série incorreto!','Erro!',MB_ICONError);
Edit1.Clear;
end;
end;
end;

(Em ''Seu Serial'' que está em negrito , coloque o serial para abrir o programa. )

Simples não é ?

[Jhonas]

Adriana ... se voce quer realmente ajudar, tente responder as dúvidas de nossos colegas

para dúvidas básicas, recomendo ler as apostilas disponibilizadas no forum

OBS: apesar de sua boa vontade, os membros querem solucionar dúvidas mais especificas

de qualquer forma seja bem vinda

abraço

[Adriana D.]

Irei fazer isso.

Obrigado.