Como traigo al frente una aplicacion que no sea la mia

[cso2000]

Saludos:


mi problema es que ocupo hacer una aplicacion que me muestre las aplicaciones abiertas,

es decir tengo abierto excell y word y quiero que mi aplicacion ponga al frente 3 sec una aplicacion y 3 Sec la otra


con una funcion puedo obtener la lista de los exes que se estan ejecutando incluso obtengo los Thred de cada exe


utilizo el siguiente codigo y no me funciona

Por fa. alguien Ayudeme

    FgThreadId  := GetWindowThreadProcessId(GetForegroundWindow, nil);
    ActIdApp;
    AppThreadId := arreglo_Th[ id_app ];

//    AppThreadId := GetWindowThreadProcessId(Handle, nil);

    Self.Caption := Inttostr( AppThreadId ) + ' ' + Inttostr( FgThreadId );
    

    { Anexar el hilo de nuestra app. al de la  que tenga el foco }
    AttachThreadInput( AppThreadId , FgThreadId , true);

    { Ahora sí, activar la applicación }
    SetForegroundWindow(Handle);

    { Separar el hilo de nuestra app de la otra }
    AttachThreadInput( AppThreadId , FgThreadId , false);

la funcion ActIdApp; obtiene cada uno de los THred que tengo en un Arreglo.


Gracias a Yodos