Voy a explicar una forma sencilla de conseguir lo que pretende
yelian.
Supongamos que tenemos un proyecto que se llama Project1 que es nuestra aplicación. Pues abrimos el archivo para editarlo en el IDE del Builder. Tenemos algo momo esto:
Código:
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
Pues vamos a realizar algunos cambios:
Código:
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
// Nombro desde código mi aplicación
char AppName[] = "Mi Aplicacion";
// Cambio temporalmente el nombre de mi aplicación
Application->Title = "XXMi AplicacionXX";
// Para buscar una ventana con el verdadero nombre
HWND hOldAppW = ::FindWindow("TApplication", AppName);
// Y restauro el nombre ca había cambiado.
Application->Title = AppName;
// Si encontré mi aplicación corriendo la termino
if(hOldAppW)
PostMessage(hOldAppW, WM_QUIT, 0, 0);
// ...Y sigo normalmente....
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
Saludos.