Fórum Aplicação em execucao mais de uma vez #418146
07/06/2012
0
Pessoal
Como fazer para quando a aplicação já estiver em execução e minimizada não deixar o cliente chamá-la novamente.
Grato.
Como fazer para quando a aplicação já estiver em execução e minimizada não deixar o cliente chamá-la novamente.
Grato.
Marcos Roberto
Curtir tópico
+ 0
Responder
Posts
07/06/2012
Marco Salles
Bem ha algumas formas . Vc pode utilizar o findWindows
Hwnd := FindWindow (´TPrograma´, ´Programa´);
eu particularmente utilizo para Isto o MUTEX
coloque no seu dpr ( unit do Program ) o seguinte código
uses
Forms,
Windows,
Dialogs,
//Principal in ´Principal.pas´ ,
{ Mais alguns formulários... }
{$R *.RES}
begin
CreateMutex(nil, True, ´XyZzWw´);
if GetLastError = ERROR_ALREADY_EXISTS then // testa se o Mutex ja foi criado
Exit;
Application.Initialize;
.... demais códigos
Hwnd := FindWindow (´TPrograma´, ´Programa´);
eu particularmente utilizo para Isto o MUTEX
coloque no seu dpr ( unit do Program ) o seguinte código
uses
Forms,
Windows,
Dialogs,
//Principal in ´Principal.pas´ ,
{ Mais alguns formulários... }
{$R *.RES}
begin
CreateMutex(nil, True, ´XyZzWw´);
if GetLastError = ERROR_ALREADY_EXISTS then // testa se o Mutex ja foi criado
Exit;
Application.Initialize;
.... demais códigos
Responder
Gostei + 0
13/06/2012
Marcos Roberto
Valeu, deu beleza !
Responder
Gostei + 0
13/06/2012
Marco Salles
O Mutex é uma boa prática né...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)