solu��o p/ executar somente uma vez o aplicativo

Question

fala doutores,peguei o seguinte c�digo. em um site e implementei no meu projeto, s� q quando tento executar o aplicativo pelo delphi este entra no [i:5cd952395a][b:5cd952395a]else[/b:5cd952395a][/i:5c...

Gandalf.nho · Answer

Tente executar de fora do Delphi, ele deve estar considerando as janelas abertas na pr�pria IDE do Delphi....

Massuda · Answer

N�o tenho certeza, mas acho que o primeiro par�metro do FindWindow n�o pode ser nil. Ele deveria ser o nome da classe da janela que est� sendo procurada.

No seu caso, acho que

Hist := FindWindow(�TApplication�, PChar(�Fidelizando�));

resolve o problema.

Massuda · Answer

[quote:4c8a2c6c66=�Massuda�][code:1:4c8a2c6c66]Hist := FindWindow(�TApplication�, PChar(�Fidelizando�)); [/code:1:4c8a2c6c66][/quote:4c8a2c6c66]Desculpe, o certo seria[code:1:4c8a2c6c66]Hist := FindWindow(PChar(�TApplication�), PChar(�Fidelizando�)); [/code:1:4c8a2c6c66]...

Aroldo Zanela · Answer

Colega,Veja a solu��o do [url=//delphiforum.icft.com.br/forum/viewtopic.php?t=36544]Cebikyn[/url]...

Massuda · Answer

S� para complementar, se ingl�s n�o for problema:[list:ddceeff6ff][*:ddceeff6ff]uma boa discuss�o sobre o assunto com a apresenta��o de diferentes formas de implementar isso � [url=http://delphi.about.com/od/windowsshellapi/l/aa100703a.htm]Controlling the number of application instances[/url].[*:ddceeff6ff]O uso do mutex tem um pequeno detalhe com rela��o ao nome do mutex que pode ser �til quando voc� est� lidando com [i]terminal services[i] e, no Windows XP, com m�ltiplos usu�rios logados na mesma m�quina ao mesmo tempo (veja detalhes no [url=http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/createmutex.asp]MSDN[/url])[/list:u:ddceeff6ff]

Maikiperin · Answer

agrade�o pela ajuda dos colegas e gostaria de citar q a solu��o do [b:4744c75a15]Cebikyn[/b:4744c75a15] funcionou perfeitamente....segue a solu��o p/ algu�m q necessite deste procedimento.

{$R *.res}

[b:4744c75a15]begin
Application.Initialize;
CreateMutex(nil, True, �CodigoParaExcucaoUnicaDoAplicativo�);
if GetLastError = ERROR_ALREADY_EXISTS then
begin
messagedlg(�O sistema j� foi inicializado!�,mtinformation,[mbok],0);
exit;
end;
Application.Title := �Fidelizando�;
Application.CreateForm(TFLogin, FLogin);
Application.CreateForm(TFPrincipal, FPrincipal);
Application.CreateForm(TDMDados, DMDados);
.
.
.
[/b:4744c75a15]

Att, Maiki Perin.

F�rum solu��o p/ executar somente uma vez o aplicativo #258772