xe2 编译 0.9.9.612 Preview 出错及我的处理方法

[DCC Error] CnWizOptions.pas(530): E2033 Types of actual and formal var parameters must be identical

procedure TCnWizOptions.SetUseOneCPUCore(const Value: Boolean);
var
  AMask, SysMask: Cardinal;
begin
  FUseOneCPUCore := Value;
//  if GetProcessAffinityMask(GetCurrentProcess, AMask, SysMask) then 这里报错了
    if _GetProcessAffinityMask (GetCurrentProcess, AMask, SysMask) then 改用自己定义的
  begin
    if FUseOneCPUCore then
      SetProcessAffinityMask(GetCurrentProcess, $0001)
    else
      SetProcessAffinityMask(GetCurrentProcess, SysMask);
  end;
end;

直接在CnWizOptions开头定义
function _GetProcessAffinityMask(hProcess: THandle;  out lpProcessAffinityMask, lpSystemAffinityMask: DWORD_PTR): BOOL; stdcall; 'kernel32.dll' name 'GetProcessAffinityMask';

改用自己定义的就没有问题了

D16 16.0.4217.41600

是否是Beta 7.5？这个版本我们还没下过来。:L

打算等到Beta 8出来后再统一修改。

是beta 7.5