Saber quien llama una dll

[sferron1]

Empezado por capo979

Hola

Hay alguna forma de saber dentro de mi dll en Delphi un punto de quien la llamo o algo de saber quien la llamo o nombre de la aplicacion o algo.

Muchas gracias

saludos

Seguramente hay mil maneras. Yo te propongo una muy simple. Usar la variable global Application. Su propiedad exename te da el path y el nombre del exe que ejecuta la función. Es obvio que este sistema requiere que en cada una de las funciones en las que necesites este control implementes un código semejante a este (aunque también habrá mil maneras más sofisticadas de conservar la información). Tendrás que incluir el módulo Forms en el uses.

Código Delphi [-]
//procedure de una dll
procedure AbrirBaseDeDatos; export;
var lista:TStringList;
begin
     // CODIGO PARA CONSERVAR EL EJECUTABLE QUE LLAMA LA PROCEDURE 
     lista:=TStringList.Create;
     lista.LoadFromFile('c:\exename.txt');
     lista.Add(Application.ExeName);
     lista.SaveToFile('c:\exename.txt');
     lista.Free;
     ///////////////////////////////////////////////////////
 
     if not assigned(main) then
          main:=TDM_Main.Create(nil);
end;

No sé si es bien bien lo que necesitas.
Saludos