我们看testsrvr.pas单元中的几段代码
procedure TFormTstSrvr2.OpenMappedFile();
begin
in_out_file := OpenFileMapping(FILE_MAP_WRITE,FALSE,'DLPH2WR_IO_PARAM') ;
if (in_out_file = 0 ) then exit ;
pInOut := MapViewOfFile(in_out_file, FILE_MAP_WRITE, 0, 0, 0);
if (pInOut = nil) then
CloseHandle(in_out_file);
end;
procedure TFormTstSrvr2.CloseMappedFile();
begin
if (pInOut <> nil) then UnmapViewOfFile(pInOut);
if (in_out_file <> 0 ) then
CloseHandle(in_out_file);
in_out_file:=0;
end;