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
|