evitar doble ejecucion en el programa...

[roman]

http://www.clubdelphi.com/users/roman

// Saludos

[uper]

saludos

tengo un error que me marca en la funcion declarada en la parte de private:
private
function ProgramaAbiertoDosVeces:Boolean; ---->>error.
{ Private declarations }

--->>[Warning] uSistema.pas(99): Variable 'Handle1' might not have been initialized

en donde debe declararse esta variable, ya la coloque afuera despues de la declaraciones privadas y publicas y aun asi da el error
en este caso esta dentro de la funcion:

var
Handle1 :Hwnd; {thandle}

gracias

[raco]

Yo tambien he utilizado este metodo y me funciona muy bien, lo unico que tienes q hacer es seguir las instrucciones de la pagina. Agrega el archivo .pas a tu proyecto igual como viene en la pagina y agregalo al modulo del programa principal (dpr) en la clausula uses, como dice en la pagina para que se ejecute primero. Es todo lo que tienes que hacer.

[cyberpablis]

Directamente en el DPR:

Código Delphi [-]
  // Verifico que no exista una instancia previa del programa en ejecución.-
  Application.Title := 'Mi aplicacion';
  if CreateFileMapping($FFFFFFFF, nil, PAGE_READONLY, 0, 32, 'PABLOR_TAGGED') <> 0 then
      if GetLastError() = ERROR_ALREADY_EXISTS then
          begin
          Application.MessageBox('Ya existe una instancia de la aplicación ejecutándose', 'Atención', MB_ICONWARNING);
          ExitProcess(1);
          end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

[Angel.Matilla]

Estaba buscando información sobre otra cosa y he ido a dar con este hilo. Aunque es ya de hace unos meses os pongo aquí como lo resuelvo yo en BCB.

En el fichero que lanza la aplicación (el .cpp asociado a su homónimo .bpr):

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
     HWND OtraVentana;
     AnsiString cVersion = "Mi aplicación";

     OtraVentana = FindWindow(NULL, cVersion.c_str());
     if (OtraVentana != NULL)
     {
          Application->MessageBox("¡¡¡LA APLICACIÓN YA ESTÁ ACTIVA!!!", cVersion.c_str(), 48);
        ShowWindow(OtraVentana, SW_RESTORE);
        SetForegroundWindow(OtraVentana);
          return 0;
     }
     try
     {
          Application->Initialize();
          Application->Title = cVersion;
          Application->CreateForm(__classid(TfPersona), &fPersona);
          Application->Run();
     }
     catch(Exception &exception)
     {
          Application->ShowException(&exception);
     }
     catch(...)
     {
          try
          {
               throw Exception("");
          }
          catch(Exception &exception)
          {
               Application->ShowException(&exception);
          }
     }
     return 0;
}
//---------------------------------------------------------------------------

Me parece un método sencillo y elegante.

[MAXIUM]

Mutex, no olviden el Mutex.

Google: delphi + mutex + example