Gabriel,
Eu uso desta forma no meu DPR...
var
hMutex: THandle;
bFlag: Boolean;
begin
hMutex := CreateMutex(nil, True, 'Sistema');
bFlag := (hMutex <> 0) and (GetLastError = ERROR_ALREADY_EXISTS);
if (not bFlag) or
(Application.MessageBox('O sistema já está carregado. Abrir uma
nova cópia?', 'Sistema', MB_TOPMOST or MB_ICONWARNING or MB_YESNO) =
IDYES) then
begin
Application.Initialize;
Application.CreateForm...;
...
...
Application.Run;
if hMutex <> 0 then
CloseHandle(hMutex);
end
else
Application.Terminate;
end.
--
[]'s
Malomar Alex Seminotti
Erechim - RS
Gabriel Filho escreveu:
>Boa tarde pessoal,
>
>
>Como faço para descobrir o mutex de uma aplicação,
>
>tipo para que eu possa saber se a mesma esta aberta, com a função FindWindow
>
>
>
>desde já agradeço
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
