{*******************************************************} { } { Borland Delphi Visual Component Library } { } { Copyright (c) 2000,2001 Borland Software Corporation } { } {*******************************************************} unit CmAdmCtl; interface uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, COMAdmin; type CoCOMAdminCatalog = class class function Create: ICOMAdminCatalog; end; TCOMAdminCatalogCollection = class; TCOMAdminCatalog = class(TOleServer) private FIntf: ICOMAdminCatalog; function GetDefaultInterface: ICOMAdminCatalog; protected procedure InitServerData; override; public { TOleServer } constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: ICOMAdminCatalog); procedure Disconnect; override; {ICOMAdminCatalog } function GetCollection(const bstrCollName: WideString): TCOMAdminCatalogCollection; function ICOMAdminCatalog_Connect(const bstrConnectString: WideString): TCOMAdminCatalogCollection; function Get_MajorVersion: Integer; function Get_MinorVersion: Integer; function GetCollectionByQuery(const bstrCollName: WideString; var aQuery: PSafeArray): TCOMAdminCatalogCollection; procedure ImportComponent(const bstrApplIdOrName: WideString; const bstrCLSIDOrProgId: WideString); procedure InstallComponent(const bstrApplIdOrName: WideString; const bstrDLL: WideString; const bstrTLB: WideString; const bstrPSDLL: WideString); procedure ShutdownApplication(const bstrApplIdOrName: WideString); procedure ExportApplication(const bstrApplIdOrName: WideString; const bstrApplicationFile: WideString; lOptions: Integer); procedure InstallApplication(const bstrApplicationFile: WideString; const bstrDestinationDirectory: WideString; lOptions: Integer;const bstrUserId: WideString; const bstrPassword: WideString; const bstrRSN: WideString); procedure StopRouter; procedure RefreshRouter; procedure StartRouter; procedure InstallMultipleComponents(const bstrApplIdOrName: WideString; var varFileNames: PSafeArray;