Como parar a inicialização do Projeto?

Delphi

17/09/2003

Eu estou colocando algumas proteções em meus sistema e estou testando varios modelos diferentes eu preciso descobrir como parar a inicialização de um programa vejam:

no evento oncreate do form principal eu coloque as seguintes linhas:

If FileExists(´C:\windows\command\fbm.txt´) Then
begin
end
else
showmessage(´Este sistema é pirata, e pode causar problemas para você´);
form_principal.Close;
end;

mas a execução do sistema continua sem problemas nenhum, como fazer para parar este execução?


Machado

Machado

Curtidas 0

Respostas

Nigro

Nigro

17/09/2003

If not FileExists(´C:\windows\command\fbm.txt´) Then
begin
showmessage(´Este sistema é pirata, e pode causar problemas para você´);
Application.Terminate;
end;


GOSTEI 0
POSTAR