Maximizar una aplicacion abierta

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