Ejecutar una instancia de un programa solo una vez

[noobdelphi5]

Buen día,

Uso delphi 7, lo que quiero hacer es que al ejecutar el archivo .exe solo se pueda abrir la primera vez, al volver abrirlo no lo haga si ya esta abierto. ¿Alguien tiene la solución?

Saludos!!

[[AgustinOrtu]]

Hay dos soluciones a tu problema en la sección de trucos del foro, una de roman y otra de Nelson

[Neftali [Germán.Estévez]]

Aquí tienes el link de la unit de Román, de la que se ha hablado muchas veces en los foros.

[[nlsgarcia]]

noobdelphi5,

Empezado por noobdelphi5

...Ejecutar una instancia de un programa solo una vez...

Revisa esta información:

1- Garantizar de 1..N Instancias Activas en Memoria por Aplicación para Delphi y Lazarus

2- Unidad de Roman para FMX: Evitar mas de una instancia de tu aplicacion

3- Evitar multiples instancias de nuestra aplicacion

Espero sea útil

Nelson.

[ecfisa]

Hola noobdelphi5.

Otro enlace que te podría interesar:

• Detección de instancias, números de versión...

Saludos

[noobdelphi5]

Si ya resolví el problema, todas las respuestas me funcionaron, yo use el código de nlsgarcia, el único código que no pude correr fue el de Roman, después lo checo con mas calma, me salía:

[Fatal Error] UIApp_fmx.pas(24): File not found: 'FMX.Forms.dcu'
[Fatal Error] UIApp_fmx.pas(24): File not found: 'FMX.Platform.Win.dcu'

Codigo de eficsa

Código Delphi [-]
program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

  resourcestring
   SAlreadyRunning =
      'Existe otra instancia activa de esta aplicación.'#13 +
      'La presente instancia se detendrá ahora mismo.';

  function AlreadyRunning(const AIdentifier: string): Boolean;
begin
  CreateMutex(nil, False, PChar(AIdentifier));
  AlreadyRunning := GetLastError = ERROR_ALREADY_EXISTS;
end;

  begin
   if AlreadyRunning('Empresa.Aplicación.Versión') then
   begin
      MessageBox(0, PChar(SAlreadyRunning), 'Error', MB_ICONSTOP or MB_OK);
      Halt(1);
   end;
   Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

end.

Otra forma:

Código Delphi [-]
program Project1;

uses
  Forms, Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, True, 'My_Unique_Application_Mutex_Name'); 
  if (Mutex = 0) OR (GetLastError = ERROR_ALREADY_EXISTS) then
  begin

    // code to searh for, and activate 
    // the previous (first) instance

  end
  else
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    if Mutex  0 then
      CloseHandle(Mutex); 
    end;
  end;
end.

Gracias!!

[[AgustinOrtu]]

El que te paso Neftali es la version para FireMonkey.

Buscando por el foro no encontre un enlace valido a la pagina de roman (parece estar caida), tampoco en el FTP del club

Lo mas cercano que encontre es esto, aunque no estoy seguro de si es "la ultima version"

De todos modos en el hilo de la version para FireMonkey esta explicado que es lo que cambie para que funcione para FMX; al deshacerse de eso volveria a servir para VCL

[noobdelphi5]

Gracias ya lo probé y si funciona.