GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 01:03:07 +01:00
Code Issues Projects Releases Wiki Activity

Resolved 64-bit incompatibility in singe instance checks

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