Delphi 中DLL的信息共享與參數傳遞

一、在主程序中定義函數

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