Delphi 中DLL的信息共享与参数传递

2016-08-22 10:23:15来源:http://im9527.blog.51cto.com/1159492/1268519作者:hack9527人点击


一、在主程序中定义函数

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

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台