{Para verificar se o aplicativo já foi inicializado, insira o código abaixo no .DPR(projeto).}
{$R *.RES}
begin
Application.Title := '';
Application.HelpFile := '';
if HPrevInst = 0 then
begin
F_Splash := TF_Splash.create(Application);
F_Splash.Show;
Application.CreateForm(TMenuPrincipal, MenuPrincipal);
Application.CreateForm(TCadastroDeSenhas, CadastroDeSenhas);
Application.CreateForm(TSenhaDeAcesso, SenhaDeAcesso);
Application.Run;
end
else
messagedlg('O sistema já foi inicializado!',mtinformation,[mbok],0);
end.
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário