Permitir la ejecucion de una Sola Aplicacion

[lucianojdg]

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

[taita]

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.

 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;