ILicenseManager.FeatureInfo

Copy example

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    LicManager: ILicenseManager;
    Feature: String;
    FeatureInfo: ILicenseFeatureInfo;
    Info: IStringList;
Begin
    LicManager := WinApplication.Instance.LicenseManager;
    Feature := EditBox1.Text;
    FeatureInfo := LicManager.FeatureInfo(Feature);
    Memo1.Clear;
    Info := Memo1.Lines;
    If FeatureInfo <> Null Then
        Info.Add("Feature name: " + FeatureInfo.FeatureName);
        Info.Add("License description: " + FeatureInfo.Description);
        Info.Add("Ability to check out local license: " + FeatureInfo.CommuterAllowed.ToString);
        Info.Add("Effective from: " + FeatureInfo.StartDate.ToString);
        Info.Add("Effective to: " + FeatureInfo.ExpireDate.ToString);
        Info.Add("License type (0-Standalone/1-NetWork): " + FeatureInfo.LicenseMode.ToString);
        Info.Add("Demo or permanent (0)/trial (1): " + FeatureInfo.LicenseType.ToString);
        Info.Add("Locking type (0-Unlocked;1-ClientLocked;2-ServerLocked): " + FeatureInfo.LockType.ToString);
        Info.Add("Trial period length: " + FeatureInfo.TrialDaysCount.ToString);
        Info.Add("Restricted(False)/Unrestricted(True) license: " + FeatureInfo.NoExpiration.ToString);
        Info.Add("Number of days when license expires: " + FeatureInfo.DaysLeft.ToString);
        Info.Add("License server name: " + LicManager.Server);
        Info.Add("License number: " + FeatureInfo.LicenseIds.AsString);
    Else
        Info.Add("Information about license = Null");
    End If;
End Sub Button1OnClick;