[Coco_jac]

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.

 
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.