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' ;
{$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.