Como saber se o aplicativo já foi aberto
Para saber se o aplicativo já foi aberto no Delphi, Insira o código abaixo dentro do arquivo .DPR de sua aplicação:
{$R *.RES}
begin
Application.Title := '';
Application.HelpFile := '';
if HPrevInst = 0 then
begin
F_Splash := TF_Splash.create(Application);
F_Splash.Show;
Application.CreateForm(TF_Menu, F_Menu);
Application.CreateForm(TF_Error, F_Error);
Application.CreateForm(TF_Form1, F_From1);
Application.CreateForm(TF_Form2, F_Form2j);
Application.Run;
end
else
messagedlg('O sistema já foi inicializado!',mtinformation,[mbok],0);
end.
Obrigado
Espero que esta dica tenha sido útil e tenha lhe ajudado a aumentar seus conhecimentos na linguagem de programação Delphi.
Se você gostou, compartilhe estas dicas com um amigo ou participe de nossas redes sociais.
Conhece outras dicas de Delphi ?
Envie para nos em nossa pagina do Facebook.
Caso queira nos incentivar a criar mais conteúdos como este, prestigie nossos anunciantes.
Um Grande Abraço e até a próxima dica!
Renato Sanches
Gestor de TI – Tecnologia da Informação
Desenvolvedor desde 1988 nas linguagens de Programação: Clipper, Visual Basic, Delphi, HTML, ASP, PHP, T-SQL e PL/SQL.
