procedure GetDllData(var AGlobalData: PGlobalDllData);stdcall; begin AGlobalData := GlobalData; end;
procedure OpenThisData; var size: integer; begin size := sizeof(TGlobalDllData); //创建一个内存文件映射对象，MfileName保存的值就是该对象的名字。 mapHandle := CreateFileMapping(Dword(-1), nil, page_readWrite, 0, size, MFileName);
if mapHandle = 0 then RaiseLastWin32Error; //把文件的视图映射到调用进程的地址空间，该函数的返回值就是该对象的首地址。注//意，这是调用进程的地址，两个应用程序调用该DLL，返回值是不一样的。 GlobalData := MapViewOfFile(mapHandle, File_map_all_Access, 0, 0, size);
Globaldata^.s := ’TEST’; GlobalData^.i := 5; if GlobalData = nil then begin CloseHandle(MapHandle); RaiseLastWin32Error; end; end; //DLL从进程中分离出来时，应该释放相应的空间 procedure CloseThisData; begin unmapViewOfFile(GlobalData); closeHandle(MapHandle); end;
procedure DllEntryPoint(dwReason: DWord); begin case dwReason of Dll_Process_Attach: OpenThisData; //调用DLL时传入的参数，由系统自动传入 Dll_Process_Detach: CloseThisData; //释放DLL时传入的参数，系统自动传入。 end; end;
{$R *.res}
exports GetDllData; //外部应用程序调用的就是这个过程。
begin DllProc := @DllEntryPoint; //该变量是一个全局变量，由它来指定DLL的入口及出 //口函数。 DllEntryPoint(Dll_Process_Attach); end. //以上代码在DELPHI6中编译通过。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
