quinta-feira, 24 de setembro de 2009

Verificar se o aplicativo já foi inicializado

{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.

Nenhum comentário:

Postar um comentário