Internetverbindung freigeben

[Blup]

Keine Ahnung ob das hilft:

Delphi-Quellcode:

var
  vEnum: IEnumVariant;
  vNetCon: OleVARIANT;
  dwRetrieved: Cardinal;
begin
  {...}
  vEnum := NetSharingManager.EnumEveryConnection._NewEnum as IEnumVariant;
  while (vEnum.Next(1, vNetCon, dwRetrieved) = S_OK) do
  begin
    Item := (IUnknown(vNetCon) as INetConnection);
  {...}