首页 > 代码库 > 主程序与DLL之间的全局变量问题
主程序与DLL之间的全局变量问题
有几个朋友经常向我问题在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;
主程序与DLL之间的全局变量问题
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。