Tutorial Protegendo aplicação com sistema de login

[PHPInjection]

Estarei ensinando aqui a proteger uma aplicação em Delphi através de um Login e Senha pré-programados, ou seja, uma Form1 com Login e Senha que irá proteger uma Form2 com o programa que você quer proteger de outras pessoas.


O que você vai precisar:

2 Labels
2 Edits
1 Button

Tutorial parte 1:

Clique duas vezes no Button da qual você colocou no Form e coloque a seguinte source:

// Caso os campos estejam em branco e o Button seja ativado, ele mostrará o seguinte erro:
if (Edit1.text = '')and(Edit2.text ='') then
begin
Application.MessageBox('Campos em Branco, favor preenche-los.','Erro!',MB_ICONError);
Edit1.Clear;
Edit2.Clear;
Edit1.Setfocus;
end;
// Caso os campos estiverem sendo preenchidos, a verificação ira continuar:
if (Edit1.text <> '')and(Edit2.text <> '') then
begin
// Crie um login e uma senha e preencha eles na source no lugar de SEU LOGIN e SUA SENHA.
// Se tudo estiver correto, ele abrirá o segundo form.
if (Edit1.text = 'SEU LOGIN')and(Edit2.text = 'SUA SENHA') then
begin
Form2 := Tform2.create(application);
Hide;
Form2.showmodal;
end;
// Se der erro no preenchimento, irá aparecer uma tela em branco.
if (Edit1.Text <> 'gabriel')or(Edit2.text = '123') then
begin
Application.MessageBox('Sua senha ou seu login estão incorretos.','Erro!',MB_ICONError);
Edit1.Clear;
Edit2.Clear;
Edit1.Setfocus;
end;
end;

Tutorial parte 2:

Agora o trabalho ficou pronto, mas logicamente não da para testar, o que você terá que fazer então:
File > New > Form
Após adicionar uma nova form, vá na aba EVENTS e clique duas vezes na OnClose, entre Begin e End. escreva: Halt;

Pronto, agora pode testar sua aplicação tranquilamente, ao colocar o login e senhas corretos, o programa ira abrir o Form2, e é nesse form que você ira fazer o que bem desejar.