delphi – DVCLAL的所有可能值的列表是什么？

发布时间：2020-12-15 09:36:51 所属栏目：大数据来源：网络整理

导读：当我遇到这个功能时,我正在阅读SysUtils： function ALR: Pointer;var LibModule: PLibModule;begin if MainInstance 0 then Result := Pointer(LoadResource(MainInstance,FindResource(MainInstance,'DVCLAL',RT_RCDATA))) else begin 之后,我搜索了什么是

当我遇到这个功能时,我正在阅读SysUtils：

function ALR: Pointer;
var
  LibModule: PLibModule;
begin
  if MainInstance <> 0 then
    Result := Pointer(LoadResource(MainInstance,FindResource(MainInstance,'DVCLAL',RT_RCDATA)))
  else
  begin

之后,我搜索了什么是DVCLAL,我发现了这个question.

Delphi编译器发送给DVCLAL资源的所有可能签名是什么？

解决方法

这里没有官方文档,所以这里有15年前的笔记：

DVCLAL用于检查您正在使用的Delphi SKU,并且每个SKU都有所不同.

只检查专业(RPR)和客户端/服务器(RCS)SKU：

procedure RCS;

procedure RPR;

如果失败,他们会调用此方法：

procedure ALV;
begin
  raise Exception.CreateRes(@SNL);
end;

哪里

resourcestring
  SNL = 'Application is not licensed to use this feature';

根据特征矩阵和Delphi版本,各种组件在其Create构造函数中调用RPR和RCS以保证最小SKU.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!