Foros Club Delphi - Permitir la ejecucion de una Sola Aplicacion

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Permitir la ejecucion de una Sola Aplicacion (https://www.clubdelphi.com/foros/showthread.php?t=15261)

Permitir la ejecucion de una Sola Aplicacion

Gente, me gustaria saber si alguien conoce la forma de controlar que no se pueda ejecutar mas de una instancia de mi aplicacion... Y en el caso de que ya exista que la restaure...

Desde ya muchas gracias

Buenas lucianojdg:

Yo hago una cosa media extraña que me pasaron hace algún tiempo. A pesar de eso me sigue funcionando perfectamente. Pruebalo...

Tienes que ponerlo en el OnCreate de tu Form Principal.

Código:

 procedure TMainForm.FormCreate(Sender: TObject);

 var Sem  : THandle;

 begin 

    Sem := CreateSemaphore(nil,0,1,'PROGRAM_NAME');

    if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then 

    begin 

          CloseHandle( Sem );

          ShowMessage('This program is already running.'+

                                  'Este programa ya se está ejecutando...');

          Halt;

    end; 

 end;