GitHub-Mirror
/
x2utils
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Resolved 64-bit incompatibility in singe instance checks

This commit is contained in:
Roald van Doorn 2023-12-04 11:01:23 +01:00
parent df699f4088
commit a78d55b527
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
X2UtSingleInstance.pas
View File

@ -300,7 +300,7 @@ begin
{ Attempt to create shared memory }
SetLastError(0);
FFileMapping := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0,
FFileMapping := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0,
SizeOf(TX2InstanceMapData),
PChar(ScopePrefix[Global] +
'SingleInstance.' + ApplicationID));
@ -330,8 +330,7 @@ begin
if FileMapData^.Window = 0 then
RaiseLastOSError();
SetWindowLong(FileMapData^.Window, GWL_WNDPROC,
Integer(MakeObjectInstance(WindowProc)));
SetWindowLongPtr(FileMapData^.Window, GWL_WNDPROC, NativeInt(MakeObjectInstance(WindowProc)));
end;
Inc(FFileMapData^.RefCount);