delphi中DLL里怎么共用主exe里一个全局变量

delphi中DLL里怎么共用主exe里一个全局变量

把共享的变量放在主程序里:UserName,....等等,

在主程序里写两个函数

Function CurUserName():PChar;

begin

 Result:=pchar(UserName);

end;


procedure SetCurUserName(LoginUserName: PChar)

begin

 UserName:=LoginUserName; 

end;


然后在主程序的工程文件(*.dpr)里输出这两个函数里写

.....

{$R *.res}


exports

  CurUserName, SetCurUserName;

....


这样在每个DLL里就可以使用这两个函数了


function CurUserName: PChar; //从主程序里获取当前登陆帐号

var

  GetCurUserName: function: pchar;

begin

  @GetCurUserName := GetProcAddress(GetModuleHandle(pchar(application.Exename)), 'CurUserName');

  if Assigned(GetCurUserName) then //找到

    result := GetCurUserName

  else

    result := Pchar('admin');

end;


相关推荐

[!--temp.pl--]