建目录是不可能的,
但写文件是可以的,procedure MapName;//创建文件映射对象,建立映射关系
begin
  hObjName := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,$FF,PChar('_ShareName)'));
  if hObjName=0 then
    Raise Exception.Create('创建文件映射对象没有成功!');
  PName := MapViewOfFile(hObjName,FILE_MAP_WRITE,0,0,1);
  if not Assigned(PName) then
  begin
    UnmapName;
    Raise Exception.Create('建立映射关系没有成功!');
  end;
end;