一、在主程序中定义函数
//------------------------------------Start Code-- //把共享的变量放在主程序里myuid function GetCurUserName:PChar; begin Result:=PChar(myuid); end; {$R *.res} exports GetCurUserName; //-------------------------------End Code---
二、在DLL窗体中调用
//--------------------------Code Start {$R *.dfm} function GetCurUserName: PChar; //从主程序里获取当前登录帐号 var Myfun: function: pchar; begin @Myfun := GetProcAddress(GetModuleHandle(pchar(Application.Exename)), 'GetCurUserName'); if Assigned(Myfun) then //找到 Result := Myfun else Result := '未知用户名'; end; //--------------------------Code End //调用 myname:=GetCurUserName; //-----------------------------