Buscar por:

Como saber se o aplicativo já foi aberto?

Código

{Como saber se o aplicativo já foi aberto

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 nicializado!',mtinformation,[mbok],0); 

end.