借助内存映像文件实现DLL共享EXE中的ADOConnection

{*******************************************************}
{                                                       }
{       内存映像文件                                    }
{                                                       }
{       版权所有 (C) 2008 咏南工作室(陈新光)            }
{                                                       }
{*******************************************************}

unit untMapObj;

interface

uses
  Windows, SysUtils, Dialogs;

procedure SetMappedObj(const AObj:Pointer);stdcall;
function GetMappedObj:Pointer;stdcall;

procedure Map(const DesiredAccess: DWORD = FILE_MAP_ALL_ACCESS); stdcall;
procedure Unmap(); stdcall;

implementation

const
  SExceptionInfo = 'Error in calling MappedObj.dll.';
  SMappedObjName = 'RocketGis.MappedObj';

type
  PMappedObj = ^TMappedObj;
  TMappedObj = packed record
    Si