C++ Builder 参考手册 ➙ System::Sysutils ➙ GDAL
检查 Delphi 访问授权 (Get Delphi Access Licence)
头文件：#include <System.SysUtils.hpp>
命名空间：System::Sysutils
函数原型：
unsigned __fastcall GDAL(void);
参数：
- 无；
返回值：
- 返回第一个访问授权 AL1 (1st Access License)
- 如果没有 Delphi 访问授权，这个函数会抛出信息为 "Application is not licensed to use this feature." 的 Exception 异常；
帮助里面没有其他说明了，以下内容为根据源码猜测的：
- 这个函数用于控件判断是否安装在期望的 Delphi 版本；
- 根据源码使用情况判断返回值为 0 是 Delphi 企业版授权，其他值没有体现在源码里面，帮助里面也没有具体的说明；
- 只在 2 处源码发现使用了这个函数：
• source\Property Editors\MidReg.pas 里面的代码判断 GDAL 返回值为 0 可以继续执行并且注释为 MIDAS components are only available in the Enterprise SKU
• source\data\dbx\Data.SqlExpr.pas 里面的代码把 GDAL 返回值加入了属性表，没发现根据这个值判断什么，也许是使用了没有授权会抛出异常的功能。
相关：
- System::Sysutils::GDAL
- System::Sysutils::RCS
- System::Sysutils::RPR
- System::Sysutils::EAbort
- System::Sysutils::OutOfMemoryError
- System::Sysutils::RaiseLastOSError
- System::Sysutils::CheckOSError
- System::Sysutils::Win32Check
- System::Sysutils::ShowException
- Vcl::Forms::TApplication::ShowException
- System::Sysutils::ExceptionErrorMessage
- System::Sysutils
- std::abort
- std::exit
- <cstdlib>
C++ Builder 参考手册 ➙ System::Sysutils ➙ GDAL
