Открытие файла в уже открытой копии программы

function NamedMemorySize(hMapFile:THandle):DWORD; overload;
var pBuf:Pointer; MBI:MEMORY_BASIC_INFORMATION;
begin
Result:=0;
if hMapFile=0 then Exit;
pBuf:=MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS,0,0,0);
if not Assigned(pBuf) then Exit;
VirtualQuery(pBuf,MBI,SizeOf(MBI));
Result:=MBI.RegionSize;
UnmapViewOfFile(pBuf);
end;
 
function NamedMemorySize(const FileName:AnsiString):DWORD; overload;
var hMapFile:THandle; pBuf:Pointer; MBI:MEMORY_BASIC_INFORMATION;
begin
Result:=0;
hMapFile:=OpenFileMapping(FILE_MAP_ALL_ACCESS,False,PAnsiChar(FileName));
Result:=NamedMemorySize(hMapFile);
CloseHandle(hMapFile);
end;
 
function CreateNamedMemory(FileName:PAnsiChar; Data:Pointer; DataSize:Integer; pError:PCardinal=nil):THandle;
var hMapFile:THandle; pBuf:Pointer; ErrorBuf:DWORD;
begin
Result:=0;
 
hMapFile:=CreateFileMapping(INVALID_HANDLE_VALUE,nil,PAGE_READWRITE,0,DataSize,FileName);
 
ErrorBuf:=GetLastError;
if ErrorBuf=ERROR_ALREADY_EXISTS then begin CloseHandle(hMapFile); hMapFile:=0; end;
if pError<>nil then pError^:=ErrorBuf;
 
if hMapFile=0 then Exit;
 
pBuf:=MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS,0,0,DataSize);
 
if pBuf=nil then begin CloseHandle(hMapFile); Exit; end;
 
CopyMemory(pBuf,Data,DataSize);
 
UnmapViewOfFile(pBuf);
pBuf:=nil;
Result:=hMapFile;
end;
 
function ReplaceNamedMemory(hMapFile:THandle; Data:Pointer; DataSize:Integer):Boolean;
var pBuf:Pointer;
begin
Result:=False;
if (Data=nil) or (DataSize<=0) then Exit;
if DataSize>NamedMemorySize(hMapFile) then Exit;
pBuf:=MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS,0,0,DataSize);
if pBuf=nil then Exit;
CopyMemory(pBuf,Data,DataSize);
UnmapViewOfFile(pBuf); pBuf:=nil;
Result:=True;
end;
 
function ReadNamedMemory(FileName:PAnsiChar; DataSize:Cardinal):Pointer;
var hMapFile:THandle; pBuf:Pointer;
begin
Result:=nil;
 
hMapFile:=OpenFileMapping(FILE_MAP_ALL_ACCESS,FALSE,FileName);
 
if hMapFile=0 then Exit;
 
pBuf:=MapViewOfFile(hMapFile,FILE_MAP_ALL_ACCESS,0,0,DataSize);
 
if (pBuf=nil) then begin CloseHandle(hMapFile); Exit; end;
 
GetMem(Result,DataSize);
CopyMemory(Result,pBuf,DataSize);
 
UnmapViewOfFile(pBuf); pBuf:=nil;
CloseHandle(hMapFile);
end;