O componente UniqueInstance pode fazer esse trabalho para você, para usa-lo basta soltar um componente no formulário principal, manipular a propriedade Identifier
(utilizado para identificar sua aplicação) e ativa-lo.
Você também pode fazer isso utilizando a função CreateMutex()
para identificar a aplicação, se a função tiver êxito o valor de retorno será a identidade da aplicação, caso contrário, um valor nulo.
Caso já exista tal identificador antes de chamar a função, o retorno será o identificador para o objeto existente, nesse caso, ao chamar a função GetLastError()
, o valor de retorno será ERROR_ALREADY_EXISTS
. Isso na prática seria algo como isso:
var
mutex: THandle;
ID: string;
begin
ID:= 'MyAppUniqueID';
mutex := CreateMutex(nil, False, PChar(ID));
if GetLastError = ERROR_ALREADY_EXISTS then begin
Application.Terminate;
end;
end;
O trecho de código acima pode ser usado no evento OnCreate()
do formulário principal. Para liberar o identificador você pode usar a função CloseHandle()
no evento OnClose()
ou OnDestroy()
, para isso a variável mutex
teria que ser uma variável global.