Fórum Verifica se o aplicativo já está sendo executado #299773

No uses do Source declare ´Windows´...

program CMG;

uses
Forms,
Windows,
fMenu in ´fMenu.pas´ ,
fCadastro in ´fCadastro.pas´ ,
fCorreios in ´fCorreios.pas´ ,
fRotinas in ´fRotinas.pas´ ,

...

fAssociadosParar in ´fAssociadosParar.pas´ ,
fBoletasS in ´fBoletasS.pas´ ;

{$R *.RES}

var SpSenha : TF_Senha;
Handle : THandle;

begin
Handle := CreateMutex(nil,True,´TF_Menu´);
if GetLastError = ERROR_ALREADY_EXISTS then begin
Application.MessageBox(´Este programa já está aberto !´, ´Atenção !´, mb_Ok);
if not IsWindowVisible(Handle) then begin
ShowWindow(Handle, SW_RESTORE);
SetForegroundWindow(Handle);
end;
if Handle <> 0 then CloseHandle(Handle);
exit;
end;
F_Splash := TF_Splash.Create(Application);
F_Splash.Show;
F_Splash.Refresh;

....