Buscar por:

Como saber se o aplicativo já foi aberto

Código

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.