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 (http://roman.clubdelphi.com/antigua/uiapp.php) 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.