Impedir que programa abra 2 vezes

Question

Ol�,  Como fa�o para n�o permitir que o usuario abra um programa que j� est� aberto? Ex: o programa est� minimizado e o usuario tenta abri-lo novamente. Obrigado.Luiz...

Briciosm · Answer

V� no project / view source.Veja exemplo abaixo:beginHprevHist := FindWindow(Nil, PChar(�admissao_hcaa�));Application.Title := �admissao_hcaa�;//se n�o foi criadoif HPrevhist = 0 thenbegin  Application.Initialize;  Application.CreateForm(Tf_adm_entrada, f_adm_entrada);  Application.Run;endelsebegin//n�o ser� criado um novo sistema apenas ser� chamado o que j� existeSetForegroundWindow (HprevHist);end;end....

L_carlos · Answer

Ol� Bricio,  Est� dando erro na primeira linha do codigo - DECLARATION EXPECTED BUT IDENTIFIER HPREVHIST FOUND. Tem que fazer mais algo alem do que vc informou? Obrigado.Luiz...

Marco Salles · Answer

outra saida � [b:a1f88c2176]CreateMutex[/b:a1f88c2176] .

declara na sec��o usse do seu Arquivo Dpr as Units Forms, Windows, Dialogs

Assim � :

program NomeDoProgrma; uses Forms, // Inclua ************* Windows, // Inclua ************* Dialogs // Inclua ************* Principal in �Principal.pas� , { Mais alguns formul�rios... } Login in �..\comum\Login.pas� ; {$R *.RES} begin CreateMutex(nil, True, �XyZzWw�); if GetLastError = ERROR_ALREADY_EXISTS then Exit; // bla bla bal.... Application.Run; end.

L_carlos · Answer

Valeu MARCO, Funcionou.Luiz...

F�rum Impedir que programa abra 2 vezes #340717