pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Improved Is32BitProcess function.

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-09-02 15:40:56 +02:00
parent 7342cccbb5
commit e5bb0cd561
2 changed files with 56 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
source/uCEFMiscFunctions.pas
View File

@ -1204,7 +1204,7 @@ begin
end;
except
on e : exception do
if CustomExceptionHandler('GetDLLBitness', e) then raise;
if CustomExceptionHandler('GetDLLHeaderMachine', e) then raise;
end;
finally
if (TempStream <> nil) then FreeAndNil(TempStream);
@ -1222,11 +1222,66 @@ begin
exit;
{$ENDIF}
{$IFDEF CPU386}
Result := True;
exit;
{$ENDIF}
{$IFDEF CPUi386}
Result := True;
exit;
{$ENDIF}
{$IFDEF CPUPOWERPC32}
Result := True;
exit;
{$ENDIF}
{$IFDEF CPUSPARC32}
Result := True;
exit;
{$ENDIF}
{$IFDEF CPU32BITS}
Result := True;
exit;
{$ENDIF}
{$IFDEF CPUARM32}
Result := True;
exit;
{$ENDIF}
{$IFDEF WIN32}
Result := True;
exit;
{$ENDIF}
{$IFDEF IOS32}
Result := True;
exit;
{$ENDIF}
{$IFDEF MACOS32}
Result := True;
exit;
{$ENDIF}
{$IFDEF LINUX32}
Result := True;
exit;
{$ENDIF}
{$IFDEF POSIX32}
Result := True;
exit;
{$ENDIF}
{$IFDEF ANDROID32}
Result := True;
exit;
{$ENDIF}
{$IFDEF MSWINDOWS}
Result := ProcessUnderWow64(GetCurrentProcess, TempResult) and TempResult;
exit;