Executar aplic��o somente uma vez

Question

Fiz esse c�digo no meu .DPR, e sempre que rodo d�, d� a mensagem de que j� existe uma aplica��o rodando, quando na verdade � a primeira vez. Algu�m sabe o devo fazer para a aplica��o rodar somente uma...

Catunda · Answer

Vc testou com o projeto aberto no delphi?Isso acontece comigo se eu tentar rodar o sistema e o projeto estiver aberto tb. � preciso ao menos fechar o form que vc est� testando....

Paulo · Answer

Continua n�o funcionar. Minha aplicaca se chama SAC_PDV, e os form criados no Auto Create s�o:
DM_Principal,
DM_PDV,
FRM_Menu,
FrmAvisoEcf
O que devo fazer ent�o? J� coloquei pelo nome da aplica��o, pelo nome dos forms, dou um Close All no delphi, para fechar tudo, mas ainda diz ou que j� est� rodando, ou ent�o permite abrir v�rias vezes.

Comodelphi · Answer

Fa�a uma pesquisa no f�rum sobre MUTEX....

Rodc · Answer

MUTEX � a melhor op��o, pois ele avisa at� se o programa estiver aberto em outra sess�o do Windows....

Catunda · Answer

Experimente assim: Obseve o uso da variavel Hwnd e a forma do FindWindow

Var Hwnd : Thandle;

begin
Hwnd := FindWindow(�TDM_Principal�,nil);
if Hwnd>0 then
begin
ShowMessage(�O sistema j� se encontra em execu��o !!�);
SetForeGroundWindow(Hwnd);
Application.Terminate;
end
else
begin
Application.Initialize;
Application.CreateForm(TDM_Principal, DM_Principal);
Application.CreateForm(TDM_PDV, DM_PDV);
Application.CreateForm(TFRM_Menu, FRM_Menu);
Application.CreateForm(TFrmAvisoEcf, FrmAvisoEcf);
Application.Run;
end;
end.

Paulo · Answer

Segui as sugest�es acima e utilizei o MUTEX e gostei. Eu n�o o conhecia. Ele � pr�tico, pois n�o depende de nome de janelas....

F�rum Executar aplic��o somente uma vez #356605