我给你个示例
type
PTLocalBlackList=^TLocalBlackList;
TLocalBlackList=record
dwUserNodeNum:DWORD;
a_chKeyID:array[0..8] of char;
a_chDisableDate:array[0..19] of char;
end;
var
pgLocalBlackList:PTLocalBlackList;
//打开共享数据
procedure OpenSharedData;
var
i,iSize:Integer;//共享区间大小
begin
iSize:=SizeOf(TLocalBlackList);
//创建映射区
hgLocalBlackList:=CreateFileMapping(DWORD(-1),nil,PAGE_READWRITE,0,iSize,chgLocalBlackList);
if hgLocalBlackList=0 then begin
RaiseLastWin32Error;
exit;
end;
//关联映射区
pgLocalBlackList:=MapViewOfFile(hgLocalBlackList,FILE_MAP_ALL_ACCESS,0,0,iSize);
if pgLocalBlackList=nil then begin
CloseHandle(hgLocalBlackList);
RaiseLastWin32Error;
exit;
end;
pgLocalBlackList^.dwUserNodeNum:=0;
pgLocalBlackList^.a_chKeyID:='00000000'+#0;
pgLocalBlackList^.a_chDisableDate:='2002-12-02 10:00:00';
end;