CnPack Forum


 
Subject: xe2 编译 0.9.9.612 Preview 出错及我的处理方法
freecat
新警察
Rank: 1



UID 73
Digest Posts 0
Credits 17
Posts 6
点点分 17
Reading Access 10
Registered 2003-5-16
Status Offline
Post at 2011-7-23 15:14  Profile | Blog | P.M. 
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
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2011-7-25 11:51  Profile | Blog | P.M. 
是否是Beta 7.5?这个版本我们还没下过来。

打算等到Beta 8出来后再统一修改。
Top
freecat
新警察
Rank: 1



UID 73
Digest Posts 0
Credits 17
Posts 6
点点分 17
Reading Access 10
Registered 2003-5-16
Status Offline
Post at 2011-7-25 12:36  Profile | Blog | P.M. 
是beta 7.5
Top
 




All times are GMT++8, the time now is 2024-11-23 10:44

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.009161 second(s), 9 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP