Devolver el foco a aplicacion

[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.

[dec]

Hola,

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

[Coco_jac]

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

Lo pondrea prueba.