Maximizar una aplicacion abierta

[[escafandra]]

Te muestro como resolví ese problema en C (Builder):

//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   char AppName[] = "MI_Aplicacion";
   Application->Title = "XXMI_AplicacionXX";
   HWND W = ::FindWindow("TApplication", AppName);
   HWND H = ::FindWindow("TApplication", Application->Title.c_str());
   Application->Title = AppName;
   if(W){
      ShowWindow(W, SW_RESTORE);
      SetForegroundWindow(W);
      Application->Terminate();
      return 0;
   }

   try
   {
       Application->Initialize();
       Application->CreateForm(__classid(TForm1), &Form1);
       Application->Run();
   }
   catch (Exception &exception)
   {
       Application->ShowException(&exception);
   }
   return 0;
}
//---------------------------------------------------------------------------

Si se intenta volver a ejecutar lo que hace es mostrar la ventana de la aplicación que ya estaba abierta cerrando la nueva que se está creando. Nunca me dio problemas para maximizar desde la barra de tareas.

Saludos.

[duranguenze]

Tal ves sea que el Delphi 7 me odia desde que lo conosco, no he tenido problemas con algun otro lenguaje, pero con D7 hasta errores que ni en la vida sabia que podian existir.

El ejemplo que pones, es el que intente poner en un inicio, pero aun nada, no se que este haciendo mal, pero no me funciona, ni desde la instancia que esta activa ni en la nueva.

[[escafandra]]

Al parecer Club Delphi debe seguir teniendo problemas. Dos mensajes que dejé ayer, en diferentes temas, han desaparecido.

Voy a retomar este hilo donde se amputó publicando un ejemplo en delphi:

Código Delphi [-]
program Project1;

uses
  Windows, Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
 W : Integer;
begin
  Application.Title:= 'XXMi_AplicacionXX';
  W:= Windows.FindWindow(PCHAR('TApplication'), 'Mi_Aplicacion');

  Application.Title:= 'Mi_Aplicacion';

  if(W<>0) then
  begin
    ShowWindow(W, SW_RESTORE);
    SetForegroundWindow(W);
    Application.Terminate;
  end else;
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

Saludos.

[duranguenze]

O te están baneando por alguna razón... hay que indagar un poco para ver si es por casualidad o por otra cosa.

[roman]

Al parecer, algo no había quedado bien en la instalación del servidor y Emilio tuvo que restaurarlo ayer o antier por la noche (no recuerdo bien) y es posible que debido a eso se hayan perdido algunos mensajes. En todo caso, lamento que se haya perdido algo, pero desde luego no es un asunto de amputar hilos no de censurar a nadie.

// Saludos

[[escafandra]]

Tranquilo, roman, nunca pensé en otra cosa que no fueran coletazos del ultimo terremoto .

Es una lástima que se pierda información. Un día es perfectamente recuperable por los propios miembros. Seis meses es mucho mas complejo, pero no se va a morir el club por eso.

Gracias roman por tu intervención y aclaración.

Saludos.