用内存映射文件在两个程序中共享数据

其它地方看到的，我试验过了，OK。

  private
    hMapFile: THandle;
    MapFilePointer: Pointer;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
  hMapFile := CreateFileMapping (
    $FFFFFFFF, // 特殊内存映射句柄
    nil, page_ReadWrite, 0,10000,
    'DdhDemoMappedFile'); // 文件名
  if hMapFile <> 0 then
    MapFilePointer := MapViewOfFile (
      hMapFile, // 上面映象文件的句柄
      File_Map_All_Access,
      0, 0, 0) // 访问整个映象文件
  else
    ShowMessage ('hMapFile = 0');
  if MapFilePointer = nil then
    ShowMessage ('MapFilePointer = nil');
end;

procedure TForm1.BtnWriteClick(Sender: TObject);
begin
  StrCopy (PChar (MapFilePointer),
    PChar (EditWrite.Text));//把内容写入共享内存
end;

procedure TForm1.BtnReadClick(Sender: TObject);
var
  S: string;
begin
  S := PChar (MapFilePointer);//从共享内存读出内容
  EditRead.Text := S;
end;
用这种方法，不但可以在不同的程序之间共享数据，还可以
在同一程序的不同实例间共享数据。为了及时通知其它进程
共享数据的变化，可以自定义一条用户消息，通过发消息来
实现。

__stdcall 解释：【上一篇】
[转帖]DELPHI操作EXCEL参考：【下一篇】