一、在主程序中定义函数

//------------------------------------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;
//-----------------------------