Si mi ventana esta oculta como la Puedo mostrar

[JULIPO]

reciban un cordial saludo en esto de los hilos no tengo mucha idea espero puedan ayudarme, Tengo una aplicacion que permanece oculta, minimizada o sencillamente no esta al frente cuando estoy ejecutando varios programas a la vez , si llega un dato por el puerto serial quiero que la aplicacion se muestre como hago esto.

[Casimiro Notevi]

pues cuando lleguen datos haces un .show y listo

[JULIPO]

agradezco la respuesta que ya me enviaron pero como funciona el .show dentro de la misma aplicacion (perdona que no entienda y por eso escribo quiero que me quede muy claro), como lanzo la ventana ya ejecutada he tratado haciendo main.show pero no hace nada sigue minimizado y no pasa al frente .....

[dec]

Hola,

A ver si este procedimiento puede echarte una mano. El mismo está basado en el código fuente de la unidad "UIApp" escrita por Román:

Código Delphi [-]
procedure ActivarAplicacion;
var
  FgThreadId  : DWORD; { Hilo de la app. que tenga el foco }
  AppThreadId : DWORD; { Hilo de nuestra aplicación        }
begin
  { Si está minimizada basta restaurarla }
  if IsIconic(Application.Handle) then
    ShowWindow(Application.Handle, SW_RESTORE)
  else
  begin
    { Obtener los hilos }
    FgThreadId  := GetWindowThreadProcessId(GetForegroundWindow, nil);
    AppThreadId := GetWindowThreadProcessId(Application.Handle, nil);

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

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

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

[JULIPO]

Quiero agradecerles las oportunas respuestas a mi inquietud, el programa que me enviaste funciona muy bien es justo lo que necesitaba.

gracias y mil gracias.