Si mi ventana esta oculta como la Puedo mostrar

[JULIPO]

:rolleyes: 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.:D

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

[dec]

Hola,

A ver si este procedimiento puede echarte una mano. El mismo está basado en el código fuente de la unidad "UIApp" (http://roman.clubdelphi.com/index.php?pg=uiapp) escrita por Román:


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.:D