Delphi의 DLL 정보 공유 및 매개 변수 전달

1. 주 프로그램에서 함수 정의
//------------------------------------Start Code--
//            myuid
function GetCurUserName:PChar;
begin
Result:=PChar(myuid);
end;
{$R *.res}
exports
GetCurUserName;
//-------------------------------End Code---

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

좋은 웹페이지 즐겨찾기