Abrir aplicacion 1 vez

[radenf]

Estimado kdemia :

Puedes utilizar el truco 582 que lo encuentras en la página de inicio del Club Delphi, en la sección Trucos o bien el componente TmxOneInstance de MaxComponents, que lo encuentras en la FTP del Club.

Saludos y ojalá haya podido ayudarte

[kdemia]

genial radenf.. me sirvio muchisimo.. gracias.

[radenf]

Encantado de haberte podido ayudar.

Saludos

[kdemia]

no puedo instalar el TmxOneInstance en delphi 2010 :S

[Spynosa]

poniendo esta unit en el uses ya lo tienes

Código Delphi [-]
unit UIApp;

interface

implementation

uses
  Windows, SysUtils, Forms;

const
  { Cadenas para registrar el mutex y el mensaje }
  sMutex   = '0C861247-3FA9-4C82-9E0E-15696E0857BC';
  sActivar = '83F47A0F-7B00-49FB-9F67-A9E1D4AD2B93';

var
  mActivar    : Cardinal; { Mensaje para activar la instancia anterior }
  Mutex       : Cardinal; { Mutex                                      }
  PrevWndProc : TFarProc; { Procedimiento de ventana original          }


function AppWndProc(Handle: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LongInt; stdcall;
var
  FgThreadId  : DWORD; { Hilo de la app. que tenga el foco }
  AppThreadId : DWORD; { Hilo de nuestra aplicación        }

begin
  if Msg = mActivar then
  begin
    { Si está minimizada basta restaurarla }
    if IsIconic(Handle) then
      ShowWindow(Handle, SW_RESTORE)
    else
    begin
      { Obtener los hilos }
      FgThreadId  := GetWindowThreadProcessId(GetForegroundWindow, nil);
      AppThreadId := GetWindowThreadProcessId(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(Handle);

      { Separar el hilo de nuestra app de la otra }
      AttachThreadInput(AppThreadId, FgThreadId, false);
    end;

    Result := 0;
  end
  else
    { Dejar que el procedimiento original se encargue de los otros mensajes }
    Result := CallWindowProc(PrevWndProc, Handle, Msg, wParam, lParam);
end;

procedure Activar;
begin
  { Mandamos el mensaje a todas las ventanas }
  SendMessage(HWND_BROADCAST, mActivar, 0, 0);
end;

procedure Registrar;
begin
  mActivar := RegisterWindowMessage(sActivar);
  Mutex    := CreateMutex(nil, true, sMutex);

  { Si ya existe el mutex lanzamos una excepción silenciosa }
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
   Mutex := 0;
   abort;
  end
  else
  begin
    { Sustituimos el procedimiento de ventana }
    PrevWndProc := TFarProc(GetWindowLong(Application.Handle, GWL_WNDPROC));
    SetWindowLong(Application.Handle, GWL_WNDPROC, LongWord(@AppWndProc));
  end;
end;

initialization
  try
    Registrar;
  except
    Activar;
    Halt;
  end;

finalization
  if Mutex <> 0 then ReleaseMutex(Mutex);
end.

siento no acordarme de donde la saque, mia no es

un saludo

[Neftali [Germán.Estévez]]

Empezado por Spynosa

siento no acordarme de donde la saque, mia no es

Pues es de la Web de Román, el problema es que a día de hoy está "caída" o el dominio ha caducado.

[Spynosa]

gracias Neftali, ya no me acordaba, pero funciona perfectamente

[roman]

Empezado por Neftali

Pues es de la Web de Román, el problema es que a día de hoy está "caída" o el dominio ha caducado.

¿No les avisé de la restauración?

http://roman.clubdelphi.com/

Aunque bueno, casi es lo mismo que estar caída pues hace años que no pongo nada je, je.

// Saludos

[[rretamar]]

Si no te querés complicar la vida, dentro del paquete de componentes libres JEDI hay uno que hace exactamente lo que pides, con algunas interesantes propiedades para personalizarlo.

Muy recomendado.

http://jvcl.delphi-jedi.org

[Neftali [Germán.Estévez]]

Empezado por roman

¿No les avisé de la restauración?

nop.

¿La dirección sigue siendo la misma que hay aquí?