Foros Club Delphi - Devolver el foco a aplicacion

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Devolver el foco a aplicacion (https://www.clubdelphi.com/foros/showthread.php?t=26114)

Devolver el foco a aplicacion

Hola amigos.

Tengo una aplicacion que al ejecutarla me aseguro que no se pueda crear una segunda instancia, truco que tome de trucomania, bueno funciona bien, pero como puedo, una vez detectada la existencia de la primera instancia pasarle el foco.

Aqui esta el codigo utilizado.

Código:

 

const NombreMutex='CDRecover';

var Mutex:Thandle;

 begin

  mutex:= CreateMutex(nil,true,NombreMutex);

   if GetLastError=ERROR_ALREADY_EXISTS then

        begin

          Application.messagebox('MicroxScan CDRecover ya esta en        

          funcionamiento. ','Mensaje de Inicio', mb_iconinformation); 

          halt;

        end;

 

  .................. lo que sigue....................

 

 CloseHandle(Mutex);

end.

Gracias anticipadas.

Hola,

Echa un vistazo a este artículo/unidad de roman. Precisamente, soluciona lo que te preocupa. O eso creo, vaya.

Muchas gracias Dec, asu que rapido disparas............ je je

Lo pondrea prueba.