Senha Junto com Programa .__.

[SaYaDiN² 1]

No Evento OnCreate do Form Adicione o Código:

 

 

procedure TForm1.FormCreate(Sender: TObject);

var

Senha : String;

OK : Boolean;

Tentativa : integer;

begin

Tentativa := 0;

OK := False;

while (Tentativa < 1) do

begin

InputQuery('Digite a sua senha', 'Você tem ' + IntToStr(1 - Tentativa) + ' tentativas', senha);

if (senha = 'SaYa ToToSo') then //<<<<<

begin

OK := True;

Break;

end;

Inc(Tentativa);

end;

if not OK then

begin

ShowMessage('Tentativas excedidas. Pressione OK para terminar.');

Application.Terminate;

end;

 

Em: SaYa ToToSo troque pela senha que vc queira...

 

Tutorial

 

SaYaDiN²

[Facha 0]

Ola amigo comigo não funcionou...:(

[SaYaDiN² 1]

Retire o

procedure TForm1.FormCreate(Sender: TObject);

begin

 

E ponha o código... -__-