Número de instâncias em execução

Delphi

15/08/2005

Bom dia a todos...

Tenho uma aplicação rodando em 3 camadas e em determinados casos é necessário rodar duas instâncias do executável servidor, sendo que cada um utiliza portas TCP e HTTP diferentes para acessar bases diferentes. No entanto eu preciso saber quantas instâncias estão em execução, para que a partir da terceira o programa informe ao usuário que já existem outras duas em execução, evitando o famoso erro ´Could not bind socket. Address and port are already in use´.

Para verififcar se já existe alguma instância em execução eu uso atualmente a função ´CreateMutex´, a qual gera um erro que não interfere na execução, mas que pode ser capturado assim:


..
CreateMutex(nil, true, ´servidor.exe´);
if (GetLastError = ERROR_ALREADY_EXISTS) then
...

Porém com ela não consigo saber quantas instâncias estão em execução naquele momento.

Existe alguma outra função que eu possa usar?

Desde já agradeço.

[]´s Fabrício


Fabricio Lb

Fabricio Lb

Curtidas 0
POSTAR