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

遇到此功能时，我正在阅读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有所不同。

仅检查Professional(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版本，各种组件在其RPR构造函数中调用RCS和Create以保证最低的SKU。

关于delphi - DVCLAL的所有可能值的列表是什么？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/18720045/