Compartir Variable entre dos aplicaciones

[[seoane]]

Si he entendido bien tu explicación, en un momento determinado la aplicación despertador necesita saber que usuario, si hay alguno, esta autentificado en la aplicación principal. No se de que tipo es el "identificador de usuario" pero si es de tipo integer se me ocurre una solución bastante sencilla.

La función SendMessage, como cualquier función, devuelve un valor. Este valor es de tipo integer, así que si el identificador del usuario es de tipo integer solo tendríamos que enviar como resultado del mensaje el valor del identificador.

Algo así (en la aplicación principal):

Código Delphi [-]
const
  WM_GETUSERID = WM_USER + 101;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure GetUserId(var Msg: TMessage); message WM_GETUSERID;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GetUserId(var Msg: TMessage);
begin
  // UserId es el identificador del usuario
  Msg.Result:= UserId; 
end;

Y en el despertador:

Código Delphi [-]
  // Handle es el manejador de la ventana principal
  UserID:= SendMessage(Handle,WM_GETUSERID,0,0);

[[gluglu]]

Domingo !! Gracias !!

No era consciente de que un mensaje devolvía un valor. En efectivo el número de usuario es un integer. Lo he implementado ya y funciona perfectamente.

De nuevo, mil gracias !