PShareMem = ^TShareMem;TShareMem = Recordid:string[10];name:string[20];age:Integer;end;

    shareMemName:string; //共享内存名fileHandle : THandle;//内存映射文件句柄pUserInfoShareMem : PShareMem;//指向共享内存的指针

begin//创建“内存映射文件”fileHandle:=CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TShareMem), PChar(shareMemName));   if fileHandle <> 0 thenbeginSelf.Memo1.Lines.Add('已成功创建内存映射文件！');end;
end;

  //将“内存映射文件”与“应用程序地址空间”建立映射关系pUserInfoShareMem:=MapViewOfFile(fileHandle,FILE_MAP_ALL_ACCESS,0,0,sizeof(TShareMem));if pUserInfoShareMem <> nil thenbeginSelf.Memo1.Lines.Add('已成功建立映射关系！');end;

   pUserInfoShareMem.id:='8888';pUserInfoShareMem.name:='Terry';pUserInfoShareMem.age:=25;Self.Memo1.Lines.Add('已向共享内存中写入用户信息！');

  //解除“内存映射文件”与“应用程序地址空间”的映射关系if pUserInfoShareMem<> nil thenUnmapViewOfFile(pUserInfoShareMem);Self.Memo1.Lines.Add('已成功解除映射关系！');

  //关闭内存映射文件if fileHandle<> 0 thenCloseHandle(fileHandle);Self.Memo1.Lines.Add('已成功关闭内存映射文件！');

 fileHandle:=OpenFileMapping(FILE_MAP_ALL_ACCESS,false,pchar(shareMemName));if self.FileHandle <> 0 thenbeginSelf.Memo1.Lines.Add('已成功打开内存映射文件！')end;

   pUserInfoShareMem:= MapViewOfFile(self.FileHandle,windows.FILE_MAP_ALL_ACCESS,0,0,sizeof(TShareMem));if pUserInfoShareMem <> nil thenbeginSelf.Memo1.Lines.Add('已成功建立映射关系！');end;

   if pUserInfoShareMem <> nil thenbeginuserInfoStr:='共享内存中获取的用户信息如下:'+#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; 

  if pUserInfoShareMem<> nil thenUnmapViewOfFile(pUserInfoShareMem);Self.Memo1.Lines.Add('已成功解除映射关系！');

  if fileHandle<> 0 thenCloseHandle(fileHandle);Self.Memo1.Lines.Add('已成功关闭内存映射文件！');