Delphi: Evitar que programa abra duas vezes
Delphi: Evitar que programa abra duas vezes
Pessoal para evitar que um programa Delphi seja executado duas vezes simultaneamente, a melhor forma é utilizar Mutex, conforme abaixo.
Var
hMutex : integer;
begin
hMutex := CreateMutex(0, TRUE, ‘DantasSintegra’);
if GetLastError = ERROR_ALREADY_EXISTS then
begin
beep;
ShowMessage(‘Esse programa já está em execução !’);
Application.Terminate;
end;