本文整理自网络，侵删。
一.原理
通过使用“内存映射文件”，实现内存共享
二.主要操作
共享内存结构：
PShareMem = ^TShareMem;
TShareMem = Record
id:string[10];
name:string[20];
age:Integer;
end;
基本变量：
shareMemName:string; //共享内存名
fileHandle : THandle;//内存映射文件句柄
pUserInfoShareMem : PShareMem;//指向共享内存的指针
a)写入程序
1）创建“内存映射文件”
begin
//创建“内存映射文件”
fileHandle:=CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TShareMem), PChar(shareMemName));
if fileHandle <> 0 then
begin
Self.Memo1.Lines.Add('已成功创建内存映射文件！');
end;
end;
2）建立映射关系
//将“内存映射文件”与“应用程序地址空间”建立映射关系
pUserInfoShareMem:=MapViewOfFile(fileHandle,FILE_MAP_ALL_ACCESS,0,0,sizeof(TShareMem));
if pUserInfoShareMem <> nil then
begin
Self.Memo1.Lines.Add('已成功建立映射关系！');
end;
3）写入信息
pUserInfoShareMem.id:='8888';
pUserInfoShareMem.name:='Terry';
pUserInfoShareMem.age:=25;
Self.Memo1.Lines.Add('已向共享内存中写入用户信息！');
4）解除映射关系
//解除“内存映射文件”与“应用程序地址空间”的映射关系
if pUserInfoShareMem<> nil then UnmapViewOfFile(pUserInfoShareMem);
Self.Memo1.Lines.Add('已成功解除映射关系！');
5）关闭“内存映射文件”
//关闭内存映射文件
if fileHandle<> 0 then CloseHandle(fileHandle);
Self.Memo1.Lines.Add('已成功关闭内存映射文件！');
b)读取程序
1）打开“内存映射文件”
fileHandle:=OpenFileMapping(FILE_MAP_ALL_ACCESS,false,pchar(shareMemName));
if self.FileHandle <> 0 then begin Self.Memo1.Lines.Add('已成功打开内存映射文件！')
end;
2）建立映射关系
pUserInfoShareMem:= MapViewOfFile(self.FileHandle,windows.FILE_MAP_ALL_ACCESS,0,0,sizeof(TShareMem));
if pUserInfoShareMem <> nil then
begin
Self.Memo1.Lines.Add('已成功建立映射关系！');
end;
3）读取信息
if pUserInfoShareMem <> nil then
begin
userInfoStr:='共享内存中获取的用户信息如下:'+#13#10;
userInfoStr:=userInfoStr+'用户Id号：'+pUserInfoShareMem.id+#13#10;
userInfoStr:=userInfoStr+'用户姓名：'+pUserInfoShareMem.name+#13#10;
userInfoStr:=userInfoStr+'用户年龄：'+IntToStr(pUserInfoShareMem.age);
Self.Memo1.Lines.Add(userInfoStr);
end;
4）解除映射关系
if pUserInfoShareMem<> nil then UnmapViewOfFile(pUserInfoShareMem);
Self.Memo1.Lines.Add('已成功解除映射关系！');
5）关闭“内存映射文件”
if fileHandle<> 0 then CloseHandle(fileHandle);
Self.Memo1.Lines.Add('已成功关闭内存映射文件！');
c)交互顺序
1）“写入程序”创建共享内存，并写入信息
2）“读取程序”从共享内存读取信息，并解除映射,关闭文件
3) “写入程序”解除映射，关闭文件
PS：“写入程序”解除映射关系，关闭内存映射文件对“读取程序”的影响。
1) 写入程序解除映射关系，不影响读取程序的读取操作关闭内存映射文件，会
影响读取程序的读取操作
2) 解除映射关系与关闭内存映射文件无顺序要求，及时不解除映射关系也可直
接关闭内存映射文件
3) 两个程序通讯时，要使用sendmessage,同步操作，而不是postmessage,
防止前者已关闭内存映射文件，而后者还没读取。
三.其他
1)常驻内存参考：建立磁盘物理文件，而不是内存映射文件
http://topic.csdn.net/u/20070616/08/ec12fda5-63c7-4c60-9c30-04795d70a922.html
2) 原理详细分析：http://blog.csdn.net/khuang2008/article/details/3949720
相关阅读 >>
Delphi firedac在后台线程中从mssql server检索记录的方法
更多相关阅读请进入《Delphi》频道 >>
