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

Fixed Is32BitProcess hint on Delphi 10.4

Browse Source 
Renamed TChromiumCore.ClearDataForOrigin parameter from "aOriginURL" to "aOrigin"
Added some missing cef.inc files to the new demos
This commit is contained in:
Salvador Díaz Fau
2020-07-28 20:04:25 +02:00
parent 6d735203f7
commit 0f0c827b5d
99 changed files with 5718 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

91
source/uCEFMiscFunctions.pas
View File

@ -1473,86 +1473,29 @@ begin
IntToStr(aVersionInfo.Build);
end;
function Is32BitProcess : boolean;
{$IFDEF MSWINDOWS}
function Is32BitProcessRunningIn64BitOS : boolean;
var
TempResult : BOOL;
{$ENDIF}
begin
{$IFDEF CPUX32}
Result := True;
exit;
{$ENDIF}
Result := ProcessUnderWow64(GetCurrentProcess, TempResult) and TempResult;
end;
{$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;
{$ENDIF}
{$IFDEF DELPHI17_UP}
Result := TOSVersion.Architecture in [arIntelX86, arARM32];
function Is32BitProcess : boolean;
begin
{$IFDEF TARGET_32BITS}
Result := True;
{$ELSE}
Result := False;
{$IFDEF MSWINDOWS}
Result := Is32BitProcessRunningIn64BitOS;
{$ELSE}
{$IFDEF DELPHI17_UP}
Result := TOSVersion.Architecture in [arIntelX86, arARM32];
{$ELSE}
Result := False;
{$ENDIF}
{$ENDIF}
{$ENDIF}
end;