unit InterfaceCA; interface type ICAConfig = interface ['{C26F30F4-9263-44EA-BE03-F4A4AC1CB2C7}'] function GetAppID: string; stdcall; function GetEnable: Boolean; stdcall; function GetURL: string; stdcall; function GetCASubject: string; stdcall; // function GetIsChooseCa: Boolean; stdcall; // procedure SetIsChooseCa(AValue: Boolean); stdcall; end; ICAClient = interface ['{3AB63609-78D6-4B85-A9F5-8D9947E8E6A6}'] function Request: string; stdcall; end; implementation end.