主程序与DLL之间的全局变量问题

最新推荐文章于 2020-12-10 13:05:17 发布

转载最新推荐文章于 2020-12-10 13:05:17 发布 · 5k 阅读

文章标签：

#dll #function #email

有朋友询问在DLL中如何共用全局变量，作者分享做法。将共享变量放主程序，编写获取和设置变量的函数并在主程序工程文件输出，每个DLL可使用这些函数获取主程序中的变量，若未找到则返回默认值。

者：杨茂峰
Email:DinkySoft@163.com

有几个朋友经常向我问题在DLL中怎么共用一个全局变量。比如像用户登陆后的用户名(UserName)...
其实这个问题很简单。下面我把我的做法写出来大家一起分享。

把共享的变量放在主程序里: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 := 'admin';
end;