Autor Tema: Re: Evitar dos instancias de la aplicacion y controlar ficha (Leído 1676 veces)

ksellas · « **en:** Miércoles 19 de Junio de 2002, 19:38 »

Hola, ¿que tal?
¿Pueden ayudarme con esto?:
Necesito evitar que mi aplicación se ejecute dos veces.
Y que en una apliación MDI las fichas hijas solo se creen una vez, osea que cuando llame a FichaHija3 por ejemplo, si ya la llamé,pues que tome el foco, pero que no se cree otra vez.
¿Pueden echarme una mano?
Gracias y saludos:)

_Viktor

Holas....
Esto te sirve, tomo Single como tu app.-

Código: Text

 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    Application->Title = "";
    HWND hPrevApp = ::FindWindow(NULL, "single");
 
    if(hPrevApp)
    {
        PostMessage(hPrevApp, WM_SYSCOMMAND, SC_RESTORE, 0);
        return 0;
    }
        Application->Title = "single";
 
    try
    {
         Application->Initialize();
         Application->Title = "single";
         Application->CreateForm(__classid(TForm1), &Form1);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    return 0;
}
 
 

Suerte.-

SoloCodigo

Autor Tema: Re: Evitar dos instancias de la aplicacion y controlar ficha (Leído 1676 veces)

ksellas

Re: Evitar dos instancias de la aplicacion y controlar ficha

_Viktor

Evitar dos instancias de la aplicacion y controlar fichas hi