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