Pascal: Delphi & Free Pascal

Introdução

Em muitos cenários de desenvolvimento, é necessário garantir que apenas uma instância de um aplicativo esteja em execução por vez. Isso é especialmente importante para aplicações que acessam recursos exclusivos, como arquivos de configuração, portas de rede ou conexões de banco de dados. Neste artigo, exploraremos técnicas para impedir que múltiplas instâncias do mesmo programa sejam executadas simultaneamente.

Impedindo duplicatas do mesmo programa

Entendendo o Problema

Muitas abordagens simples falham em ambientes modernos. Observar apenas se o processo programa.exe está carregado impede que outros usuários em sistemas multi-terminal (como RDS ou TS Plus) utilizem o software. O objetivo correto é bloquear a duplicata para o mesmo usuário na mesma sessão.

Outra técnica comum, o FindWindow da WinAPI, pode ser lenta e imprecisa caso existam outras janelas com nomes similares no sistema. A solução ideal reside no uso de MUTEX.

Lidando com o Problema usando MUTEX

MUTEX (Mutual Exclusion) funciona como uma constante de texto visível para o desktop do usuário enquanto o programa estiver ativo. Diferente de procurar por janelas, o teste de existência de um MUTEX é instantâneo e seguro para sessões isoladas.

Exemplo Prático: Implementação no Projeto

O código abaixo deve ser inserido no arquivo principal do projeto (.dpr no Delphi ou .lpr no Lazarus). Ele verifica o MUTEX e, caso já exista, tenta restaurar a janela anterior antes de encerrar a nova tentativa.

program Programa;

uses
  Forms,
  Windows,
  UnitPrincipal in 'UnitPrincipal.pas' {fmPrincipal};

var
  MutexHnd: Cardinal;
  Handle: HWND;
  sTitle: String;
begin
  sTitle := 'Meu Titulo Unico';

  // Cria o MUTEX vinculado ao título
  MutexHnd := CreateMutex(nil, False, pChar(sTitle));

  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    // Tenta encontrar a janela da instância anterior
    Handle := FindWindow(nil, pChar(sTitle));
    if Handle <> 0 then
    begin
      if not IsWindowVisible(Handle) then
        ShowWindow(Handle, SW_RESTORE);
      SetForegroundWindow(Handle);
    end;
    Application.Terminate;
  end
  else
  begin
    Application.Initialize;
    Application.Title := sTitle;
    Application.CreateForm(TfmPrincipal, fmPrincipal);
    fmPrincipal.Caption := sTitle;
    Application.Run;
  end;
end.

Particularidades de Ambiente

Se estiver utilizando o Lazarus no Linux, o comportamento de janelas e processos difere do Windows. Para scripts de automação que verificam a execução, certifique-se de dar permissão ao binário:

chmod +x meu_programa
./meu_programa