//创建映射 SERVER做的动作 procedure TForm1.Button1Click(Sender: TObject); begin if HMap = 0 then begin HMap := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, 4 * 1024, 'MemorySharedFile'); if HMap=0 then TS('试图建立成功'); end; {我觉得单个功能的文件映射更能够让