Ver Mensaje Individual
  #3  
Antiguo 11-11-2009
duranguenze duranguenze is offline
Miembro
 
Registrado: nov 2009
Posts: 17
Reputación: 0
duranguenze Va por buen camino
Agradezco la respuesta, pero al parecer no se puede de esa manera, complementando, he hecho que se muestre desde la aplicación anterior, por lo que podria ser fácil si tan solo existiera algo como "application.windowRestore" ya probé con application.restore y no me funciona.
el siguiente código es el que encontré pero solo me funciona el primer procedimiento que es el que uso para pasarlo hasta adelante.
Código Delphi [-]
procedure PonerDelante(Handle: THandle);
var
  FgThreadId  : DWORD;
  AppThreadId : DWORD;
begin
  FgThreadId  := GetWindowThreadProcessId(GetForegroundWindow, nil);
  AppThreadId := GetWindowThreadProcessId(Handle, nil);
  AttachThreadInput(AppThreadId, FgThreadId, true);
  SetForegroundWindow(Handle);
  AttachThreadInput(AppThreadId, FgThreadId, false);
end;

procedure MostrarVentana(WindowName:PChar);
var H: THandle;
begin
  H:= FindWindow(nil,WindowName);//Buscamos el nombre completo que tiene en la barra
  if(H>0) then begin
    if IsIconic(h)then
      ShowWindow(H,SW_RESTORE);
    SetForegroundWindow(H);
    PonerDelante(h);//ShowWindow(h,SW_NORMAL);//La mostramos
  end;
end;

Última edición por duranguenze fecha: 11-11-2009 a las 03:18:45.
Responder Con Cita