C++ Builder 參考手冊 ? System::Sysutils ? GDAL
檢查 Delphi 訪問授權(quán) (Get Delphi Access Licence)
頭文件：#include <System.SysUtils.hpp>
命名空間：System::Sysutils
函數(shù)原型：
unsigned __fastcall GDAL(void);
參數(shù)：
- 無耙厚；
返回值：
- 返回第一個訪問授權(quán) AL1 (1st Access License)
- 如果沒有 Delphi 訪問授權(quán)，這個函數(shù)會拋出信息為 "Application is not licensed to use this feature." 的 Exception 異常；
幫助里面沒有其他說明了，以下內(nèi)容為根據(jù)源碼猜測的：
- 這個函數(shù)用于控件判斷是否安裝在期望的 Delphi 版本；
- 根據(jù)源碼使用情況判斷返回值為 0 是 Delphi 企業(yè)版授權(quán)孩擂，其他值沒有體現(xiàn)在源碼里面，幫助里面也沒有具體的說明；
- 只在 2 處源碼發(fā)現(xiàn)使用了這個函數(shù)：
? source\Property Editors\MidReg.pas 里面的代碼判斷 GDAL 返回值為 0 可以繼續(xù)執(zhí)行并且注釋為 MIDAS components are only available in the Enterprise SKU
? source\data\dbx\Data.SqlExpr.pas 里面的代碼把 GDAL 返回值加入了屬性表抡四，沒發(fā)現(xiàn)根據(jù)這個值判斷什么，也許是使用了沒有授權(quán)會拋出異常的功能仗谆。
相關(guān)：
- 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
