LockingCode(Var LockSelector: Integer): String;
LockSelector. Значение набора критериев (UiLicenseLockSelector). По умолчанию для формирования кода привязки должны использоваться критерии: Disk ID и HostName.
Метод LockingCode возвращает код привязки лицензии к компьютеру.
Для использования нескольких критериев следует их суммировать. Код формируется на основе выбранных критериев.
Для выполнения примера разместите на форме компонент Button с наименованием «Button1».
Добавьте ссылки на системные сборки: Host, Ui, Forms.
Пример является обработчиком события OnClick для компонента «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
LicManager: ILicenseManager;
Selector: integer;
Code: String;
Begin
LicManager := WinApplication.Instance.LicenseManager;
Selector := UiLicenseLockSelector.HostName + UiLicenseLockSelector.DiskID;
Code := LicManager.LockingCode(Selector);
WinApplication.InformationBox(Code);
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку будет выдано сообщение, содержащее код привязки лицензии.
См. также: