Board logo

Subject: xe2 编译 0.9.9.612 Preview 出错及我的处理方法 [Print This Page]

Author: freecat    Time: 2011-7-23 15:14     Subject: 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
Author: Passion    Time: 2011-7-25 11:51

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

打算等到Beta 8出来后再统一修改。
Author: freecat    Time: 2011-7-25 12:36

是beta 7.5




Welcome to CnPack Forum (http://bbs.cnpack.org/) Powered by Discuz! 5.0.0