Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
513 lines (461 sloc) 23 KB
unit NETWORKLIST_TLB;
// ************************************************************************ //
// Type Lib: C:\WINDOWS\system32\netprofm.dll (1)
// LIBID: {DCB00D01-570F-4A9B-8D69-199FDBA5723B}
// LCID: 0
// Helpfile:
// HelpString: Network List 1.0 Type Library
// DepndLst:
// (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb)
// SYS_KIND: SYS_WIN32
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
{$ALIGN 4}
interface
uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleServer, Winapi.ActiveX;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
NETWORKLISTMajorVersion = 1;
NETWORKLISTMinorVersion = 0;
LIBID_NETWORKLIST: TGUID = '{DCB00D01-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkConnectionCost: TGUID = '{DCB0000A-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkListManager: TGUID = '{DCB00000-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkCostManager: TGUID = '{DCB00008-570F-4A9B-8D69-199FDBA5723B}';
IID_IEnumNetworks: TGUID = '{DCB00003-570F-4A9B-8D69-199FDBA5723B}';
IID_INetwork: TGUID = '{DCB00002-570F-4A9B-8D69-199FDBA5723B}';
IID_IEnumNetworkConnections: TGUID = '{DCB00006-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkConnection: TGUID = '{DCB00005-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkEvents: TGUID = '{DCB00004-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkConnectionEvents: TGUID = '{DCB00007-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkListManagerEvents: TGUID = '{DCB00001-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkCostManagerEvents: TGUID = '{DCB00009-570F-4A9B-8D69-199FDBA5723B}';
IID_INetworkConnectionCostEvents: TGUID = '{DCB0000B-570F-4A9B-8D69-199FDBA5723B}';
IID_IPropertyBag: TGUID = '{55272A00-42CB-11CE-8135-00AA004BB851}';
CLASS_NetworkListManager: TGUID = '{DCB00C01-570F-4A9B-8D69-199FDBA5723B}';
IID_IErrorLog: TGUID = '{3127CA40-446E-11CE-8135-00AA004BB851}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum NLM_CONNECTION_COST
type
NLM_CONNECTION_COST = TOleEnum;
const
NLM_CONNECTION_COST_UNKNOWN = $00000000;
NLM_CONNECTION_COST_UNRESTRICTED = $00000001;
NLM_CONNECTION_COST_FIXED = $00000002;
NLM_CONNECTION_COST_VARIABLE = $00000004;
NLM_CONNECTION_COST_OVERDATALIMIT = $00010000;
NLM_CONNECTION_COST_CONGESTED = $00020000;
NLM_CONNECTION_COST_ROAMING = $00040000;
NLM_CONNECTION_COST_APPROACHINGDATALIMIT = $00080000;
// Constants for enum NLM_ENUM_NETWORK
type
NLM_ENUM_NETWORK = TOleEnum;
const
NLM_ENUM_NETWORK_CONNECTED = $00000001;
NLM_ENUM_NETWORK_DISCONNECTED = $00000002;
NLM_ENUM_NETWORK_ALL = $00000003;
// Constants for enum NLM_DOMAIN_TYPE
type
NLM_DOMAIN_TYPE = TOleEnum;
const
NLM_DOMAIN_TYPE_NON_DOMAIN_NETWORK = $00000000;
NLM_DOMAIN_TYPE_DOMAIN_NETWORK = $00000001;
NLM_DOMAIN_TYPE_DOMAIN_AUTHENTICATED = $00000002;
// Constants for enum NLM_CONNECTIVITY
type
NLM_CONNECTIVITY = TOleEnum;
const
NLM_CONNECTIVITY_DISCONNECTED = $00000000;
NLM_CONNECTIVITY_IPV4_NOTRAFFIC = $00000001;
NLM_CONNECTIVITY_IPV6_NOTRAFFIC = $00000002;
NLM_CONNECTIVITY_IPV4_SUBNET = $00000010;
NLM_CONNECTIVITY_IPV4_LOCALNETWORK = $00000020;
NLM_CONNECTIVITY_IPV4_INTERNET = $00000040;
NLM_CONNECTIVITY_IPV6_SUBNET = $00000100;
NLM_CONNECTIVITY_IPV6_LOCALNETWORK = $00000200;
NLM_CONNECTIVITY_IPV6_INTERNET = $00000400;
// Constants for enum NLM_NETWORK_CATEGORY
type
NLM_NETWORK_CATEGORY = TOleEnum;
const
NLM_NETWORK_CATEGORY_PUBLIC = $00000000;
NLM_NETWORK_CATEGORY_PRIVATE = $00000001;
NLM_NETWORK_CATEGORY_DOMAIN_AUTHENTICATED = $00000002;
// Constants for enum NLM_NETWORK_PROPERTY_CHANGE
type
NLM_NETWORK_PROPERTY_CHANGE = TOleEnum;
const
NLM_NETWORK_PROPERTY_CHANGE_CONNECTION = $00000001;
NLM_NETWORK_PROPERTY_CHANGE_DESCRIPTION = $00000002;
NLM_NETWORK_PROPERTY_CHANGE_NAME = $00000004;
NLM_NETWORK_PROPERTY_CHANGE_ICON = $00000008;
NLM_NETWORK_PROPERTY_CHANGE_CATEGORY_VALUE = $00000010;
// Constants for enum NLM_CONNECTION_PROPERTY_CHANGE
type
NLM_CONNECTION_PROPERTY_CHANGE = TOleEnum;
const
NLM_CONNECTION_PROPERTY_CHANGE_AUTHENTICATION = $00000001;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
INetworkConnectionCost = interface;
INetworkListManager = interface;
INetworkListManagerDisp = dispinterface;
INetworkCostManager = interface;
IEnumNetworks = interface;
IEnumNetworksDisp = dispinterface;
INetwork = interface;
INetworkDisp = dispinterface;
IEnumNetworkConnections = interface;
IEnumNetworkConnectionsDisp = dispinterface;
INetworkConnection = interface;
INetworkConnectionDisp = dispinterface;
INetworkEvents = interface;
INetworkConnectionEvents = interface;
INetworkListManagerEvents = interface;
INetworkCostManagerEvents = interface;
INetworkConnectionCostEvents = interface;
IPropertyBag = interface;
IErrorLog = interface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
NetworkListManager = INetworkListManager;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
PUserType1 = ^NLM_SIMULATED_PROFILE_INFO; {*}
PUserType2 = ^NLM_SOCKADDR; {*}
POleVariant1 = ^OleVariant; {*}
PUserType3 = ^EXCEPINFO; {*}
_FILETIME = record
dwLowDateTime: LongWord;
dwHighDateTime: LongWord;
end;
NLM_USAGE_DATA = record
UsageInMegabytes: LongWord;
LastSyncTime: _FILETIME;
end;
NLM_DATAPLAN_STATUS = record
InterfaceGuid: TGUID;
UsageData: NLM_USAGE_DATA;
DataLimitInMegabytes: LongWord;
InboundBandwidthInKbps: LongWord;
OutboundBandwidthInKbps: LongWord;
NextBillingCycle: _FILETIME;
MaxTransferSizeInMegabytes: LongWord;
Reserved: LongWord;
end;
NLM_SIMULATED_PROFILE_INFO = record
ProfileName: array[0..255] of Word;
cost: NLM_CONNECTION_COST;
UsageInMegabytes: LongWord;
DataLimitInMegabytes: LongWord;
end;
{$ALIGN 1}
NLM_SOCKADDR = record
data: array[0..127] of Byte;
end;
// *********************************************************************//
// Interface: INetworkConnectionCost
// Flags: (0)
// GUID: {DCB0000A-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkConnectionCost = interface(IUnknown)
['{DCB0000A-570F-4A9B-8D69-199FDBA5723B}']
function GetCost(out pCost: LongWord): HResult; stdcall;
function GetDataPlanStatus(out pDataPlanStatus: NLM_DATAPLAN_STATUS): HResult; stdcall;
end;
// *********************************************************************//
// Interface: INetworkListManager
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00000-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkListManager = interface(IDispatch)
['{DCB00000-570F-4A9B-8D69-199FDBA5723B}']
function GetNetworks(Flags: NLM_ENUM_NETWORK): IEnumNetworks; safecall;
function GetNetwork(gdNetworkId: TGUID): INetwork; safecall;
function GetNetworkConnections: IEnumNetworkConnections; safecall;
function GetNetworkConnection(gdNetworkConnectionId: TGUID): INetworkConnection; safecall;
function Get_IsConnectedToInternet: WordBool; safecall;
function Get_IsConnected: WordBool; safecall;
function GetConnectivity: NLM_CONNECTIVITY; safecall;
procedure SetSimulatedProfileInfo(var pSimulatedInfo: NLM_SIMULATED_PROFILE_INFO); safecall;
procedure ClearSimulatedProfileInfo; safecall;
property IsConnectedToInternet: WordBool read Get_IsConnectedToInternet;
property IsConnected: WordBool read Get_IsConnected;
end;
// *********************************************************************//
// DispIntf: INetworkListManagerDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00000-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkListManagerDisp = dispinterface
['{DCB00000-570F-4A9B-8D69-199FDBA5723B}']
function GetNetworks(Flags: NLM_ENUM_NETWORK): IEnumNetworks; dispid 1;
function GetNetwork(gdNetworkId: {NOT_OLEAUTO(TGUID)}OleVariant): INetwork; dispid 2;
function GetNetworkConnections: IEnumNetworkConnections; dispid 3;
function GetNetworkConnection(gdNetworkConnectionId: {NOT_OLEAUTO(TGUID)}OleVariant): INetworkConnection; dispid 4;
property IsConnectedToInternet: WordBool readonly dispid 5;
property IsConnected: WordBool readonly dispid 6;
function GetConnectivity: NLM_CONNECTIVITY; dispid 7;
procedure SetSimulatedProfileInfo(var pSimulatedInfo: {NOT_OLEAUTO(NLM_SIMULATED_PROFILE_INFO)}OleVariant); dispid 8;
procedure ClearSimulatedProfileInfo; dispid 9;
end;
// *********************************************************************//
// Interface: INetworkCostManager
// Flags: (0)
// GUID: {DCB00008-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkCostManager = interface(IUnknown)
['{DCB00008-570F-4A9B-8D69-199FDBA5723B}']
function GetCost(out pCost: LongWord; var pDestIPAddr: NLM_SOCKADDR): HResult; stdcall;
function GetDataPlanStatus(out pDataPlanStatus: NLM_DATAPLAN_STATUS;
var pDestIPAddr: NLM_SOCKADDR): HResult; stdcall;
function SetDestinationAddresses(length: SYSUINT; var pDestIPAddrList: NLM_SOCKADDR;
bAppend: WordBool): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IEnumNetworks
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00003-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
IEnumNetworks = interface(IDispatch)
['{DCB00003-570F-4A9B-8D69-199FDBA5723B}']
function Get__NewEnum: IEnumVARIANT; safecall;
procedure Next(celt: LongWord; out rgelt: INetwork; var pceltFetched: LongWord); safecall;
procedure Skip(celt: LongWord); safecall;
procedure Reset; safecall;
function Clone: IEnumNetworks; safecall;
property _NewEnum: IEnumVARIANT read Get__NewEnum;
end;
// *********************************************************************//
// DispIntf: IEnumNetworksDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00003-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
IEnumNetworksDisp = dispinterface
['{DCB00003-570F-4A9B-8D69-199FDBA5723B}']
property _NewEnum: IEnumVARIANT readonly dispid -4;
procedure Next(celt: LongWord; out rgelt: INetwork; var pceltFetched: LongWord); dispid 1;
procedure Skip(celt: LongWord); dispid 2;
procedure Reset; dispid 3;
function Clone: IEnumNetworks; dispid 4;
end;
// *********************************************************************//
// Interface: INetwork
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00002-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetwork = interface(IDispatch)
['{DCB00002-570F-4A9B-8D69-199FDBA5723B}']
function GetName: WideString; safecall;
procedure SetName(const szNetworkNewName: WideString); safecall;
function GetDescription: WideString; safecall;
procedure SetDescription(const szDescription: WideString); safecall;
function GetNetworkId: TGUID; safecall;
function GetDomainType: NLM_DOMAIN_TYPE; safecall;
function GetNetworkConnections: IEnumNetworkConnections; safecall;
procedure GetTimeCreatedAndConnected(out pdwLowDateTimeCreated: LongWord;
out pdwHighDateTimeCreated: LongWord;
out pdwLowDateTimeConnected: LongWord;
out pdwHighDateTimeConnected: LongWord); safecall;
function Get_IsConnectedToInternet: WordBool; safecall;
function Get_IsConnected: WordBool; safecall;
function GetConnectivity: NLM_CONNECTIVITY; safecall;
function GetCategory: NLM_NETWORK_CATEGORY; safecall;
procedure SetCategory(NewCategory: NLM_NETWORK_CATEGORY); safecall;
property IsConnectedToInternet: WordBool read Get_IsConnectedToInternet;
property IsConnected: WordBool read Get_IsConnected;
end;
// *********************************************************************//
// DispIntf: INetworkDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00002-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkDisp = dispinterface
['{DCB00002-570F-4A9B-8D69-199FDBA5723B}']
function GetName: WideString; dispid 1;
procedure SetName(const szNetworkNewName: WideString); dispid 2;
function GetDescription: WideString; dispid 3;
procedure SetDescription(const szDescription: WideString); dispid 4;
function GetNetworkId: {NOT_OLEAUTO(TGUID)}OleVariant; dispid 5;
function GetDomainType: NLM_DOMAIN_TYPE; dispid 6;
function GetNetworkConnections: IEnumNetworkConnections; dispid 7;
procedure GetTimeCreatedAndConnected(out pdwLowDateTimeCreated: LongWord;
out pdwHighDateTimeCreated: LongWord;
out pdwLowDateTimeConnected: LongWord;
out pdwHighDateTimeConnected: LongWord); dispid 8;
property IsConnectedToInternet: WordBool readonly dispid 9;
property IsConnected: WordBool readonly dispid 10;
function GetConnectivity: NLM_CONNECTIVITY; dispid 11;
function GetCategory: NLM_NETWORK_CATEGORY; dispid 12;
procedure SetCategory(NewCategory: NLM_NETWORK_CATEGORY); dispid 13;
end;
// *********************************************************************//
// Interface: IEnumNetworkConnections
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00006-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
IEnumNetworkConnections = interface(IDispatch)
['{DCB00006-570F-4A9B-8D69-199FDBA5723B}']
function Get__NewEnum: IEnumVARIANT; safecall;
procedure Next(celt: LongWord; out rgelt: INetworkConnection; var pceltFetched: LongWord); safecall;
procedure Skip(celt: LongWord); safecall;
procedure Reset; safecall;
function Clone: IEnumNetworkConnections; safecall;
property _NewEnum: IEnumVARIANT read Get__NewEnum;
end;
// *********************************************************************//
// DispIntf: IEnumNetworkConnectionsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00006-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
IEnumNetworkConnectionsDisp = dispinterface
['{DCB00006-570F-4A9B-8D69-199FDBA5723B}']
property _NewEnum: IEnumVARIANT readonly dispid -4;
procedure Next(celt: LongWord; out rgelt: INetworkConnection; var pceltFetched: LongWord); dispid 1;
procedure Skip(celt: LongWord); dispid 2;
procedure Reset; dispid 3;
function Clone: IEnumNetworkConnections; dispid 4;
end;
// *********************************************************************//
// Interface: INetworkConnection
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00005-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkConnection = interface(IDispatch)
['{DCB00005-570F-4A9B-8D69-199FDBA5723B}']
function GetNetwork: INetwork; safecall;
function Get_IsConnectedToInternet: WordBool; safecall;
function Get_IsConnected: WordBool; safecall;
function GetConnectivity: NLM_CONNECTIVITY; safecall;
function GetConnectionId: TGUID; safecall;
function GetAdapterId: TGUID; safecall;
function GetDomainType: NLM_DOMAIN_TYPE; safecall;
property IsConnectedToInternet: WordBool read Get_IsConnectedToInternet;
property IsConnected: WordBool read Get_IsConnected;
end;
// *********************************************************************//
// DispIntf: INetworkConnectionDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DCB00005-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkConnectionDisp = dispinterface
['{DCB00005-570F-4A9B-8D69-199FDBA5723B}']
function GetNetwork: INetwork; dispid 1;
property IsConnectedToInternet: WordBool readonly dispid 2;
property IsConnected: WordBool readonly dispid 3;
function GetConnectivity: NLM_CONNECTIVITY; dispid 4;
function GetConnectionId: {NOT_OLEAUTO(TGUID)}OleVariant; dispid 5;
function GetAdapterId: {NOT_OLEAUTO(TGUID)}OleVariant; dispid 6;
function GetDomainType: NLM_DOMAIN_TYPE; dispid 7;
end;
// *********************************************************************//
// Interface: INetworkEvents
// Flags: (256) OleAutomation
// GUID: {DCB00004-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkEvents = interface(IUnknown)
['{DCB00004-570F-4A9B-8D69-199FDBA5723B}']
function NetworkAdded(networkId: TGUID): HResult; stdcall;
function NetworkDeleted(networkId: TGUID): HResult; stdcall;
function NetworkConnectivityChanged(networkId: TGUID; newConnectivity: NLM_CONNECTIVITY): HResult; stdcall;
function NetworkPropertyChanged(networkId: TGUID; Flags: NLM_NETWORK_PROPERTY_CHANGE): HResult; stdcall;
end;
// *********************************************************************//
// Interface: INetworkConnectionEvents
// Flags: (256) OleAutomation
// GUID: {DCB00007-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkConnectionEvents = interface(IUnknown)
['{DCB00007-570F-4A9B-8D69-199FDBA5723B}']
function NetworkConnectionConnectivityChanged(connectionId: TGUID;
newConnectivity: NLM_CONNECTIVITY): HResult; stdcall;
function NetworkConnectionPropertyChanged(connectionId: TGUID;
Flags: NLM_CONNECTION_PROPERTY_CHANGE): HResult; stdcall;
end;
// *********************************************************************//
// Interface: INetworkListManagerEvents
// Flags: (256) OleAutomation
// GUID: {DCB00001-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkListManagerEvents = interface(IUnknown)
['{DCB00001-570F-4A9B-8D69-199FDBA5723B}']
function ConnectivityChanged(newConnectivity: NLM_CONNECTIVITY): HResult; stdcall;
end;
// *********************************************************************//
// Interface: INetworkCostManagerEvents
// Flags: (0)
// GUID: {DCB00009-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkCostManagerEvents = interface(IUnknown)
['{DCB00009-570F-4A9B-8D69-199FDBA5723B}']
function CostChanged(newCost: LongWord; var pDestAddr: NLM_SOCKADDR): HResult; stdcall;
function DataPlanStatusChanged(var pDestAddr: NLM_SOCKADDR): HResult; stdcall;
end;
// *********************************************************************//
// Interface: INetworkConnectionCostEvents
// Flags: (0)
// GUID: {DCB0000B-570F-4A9B-8D69-199FDBA5723B}
// *********************************************************************//
INetworkConnectionCostEvents = interface(IUnknown)
['{DCB0000B-570F-4A9B-8D69-199FDBA5723B}']
function ConnectionCostChanged(connectionId: TGUID; newCost: LongWord): HResult; stdcall;
function ConnectionDataPlanStatusChanged(connectionId: TGUID): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IPropertyBag
// Flags: (0)
// GUID: {55272A00-42CB-11CE-8135-00AA004BB851}
// *********************************************************************//
IPropertyBag = interface(IUnknown)
['{55272A00-42CB-11CE-8135-00AA004BB851}']
function RemoteRead(pszPropName: PWideChar; out pVar: OleVariant; const pErrorLog: IErrorLog;
varType: LongWord; const pUnkObj: IUnknown): HResult; stdcall;
function Write(pszPropName: PWideChar; const pVar: OleVariant): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IErrorLog
// Flags: (0)
// GUID: {3127CA40-446E-11CE-8135-00AA004BB851}
// *********************************************************************//
IErrorLog = interface(IUnknown)
['{3127CA40-446E-11CE-8135-00AA004BB851}']
function AddError(pszPropName: PWideChar; var pExcepInfo: EXCEPINFO): HResult; stdcall;
end;
// *********************************************************************//
// The Class CoNetworkListManager provides a Create and CreateRemote method to
// create instances of the default interface INetworkListManager exposed by
// the CoClass NetworkListManager. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoNetworkListManager = class
class function Create: INetworkListManager;
class function CreateRemote(const MachineName: string): INetworkListManager;
end;
implementation
uses System.Win.ComObj;
class function CoNetworkListManager.Create: INetworkListManager;
begin
Result := CreateComObject(CLASS_NetworkListManager) as INetworkListManager;
end;
class function CoNetworkListManager.CreateRemote(const MachineName: string): INetworkListManager;
begin
Result := CreateRemoteComObject(MachineName, CLASS_NetworkListManager) as INetworkListManager;
end;
end.