Club Builder

[|ToMaS]

Como puedo hacer que si alguien ejecuta dos veces mi aplicacion ene l mismo ordenador no lo haga? o se vaya a la que ya está ejecutándose o algo parecido?

GRACIAS

[Manolo]

Mira en la páquina de truco manía, hay truco para esto que quieres hacer. http://www.q3.nu/trucomania/ftes
Están en delphi, pero suelen ser faciles de pasar a builder.
Suerte Manolo

[zipcore]

Hola Tomas esta es una opcion espero te sirva, Escoge Project/View Source y cambia la funcion WinMain por esta :

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE mutex ;
try
{
const char mutexname [] = "SingleInstanceProgram" ;
// See if the mutex already exists.
mutex = OpenMutex (0, false, mutexname) ;
if (mutex == NULL)
{
// The mutex is not there. This means another instance of the program is
// not already running. Create the mutex so any other instance of the
// program will know that this one is already running.
mutex = CreateMutex (NULL, true, mutexname) ;
}
else
{
// The mutex exists so another instance of the program is running
// OR some other program created a mutex called "SingleInstanceProgram".
ShowMessage ("Application Already Running") ;
// Returning from WinMain terminates the program.
return 0 ;
}

Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
ReleaseMutex (Mutex) ;
return 0;
}

corre el programa y es todo

[zipcore]

Hola Tomas esta es una opcion espero te sirva, Escoge Project/View Source y cambia la funcion WinMain por esta :

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE mutex ;
try
{
const char mutexname [] = "SingleInstanceProgram" ;
// See if the mutex already exists.
mutex = OpenMutex (0, false, mutexname) ;
if (mutex == NULL)
{
// The mutex is not there. This means another instance of the program is
// not already running. Create the mutex so any other instance of the
// program will know that this one is already running.
mutex = CreateMutex (NULL, true, mutexname) ;
}
else
{
// The mutex exists so another instance of the program is running
// OR some other program created a mutex called "SingleInstanceProgram".
ShowMessage ("Application Already Running") ;
// Returning from WinMain terminates the program.
return 0 ;
}

Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
ReleaseMutex (mutex) ;
return 0;
}

corre el programa y es todo