Подключение по локальной сети

//---------------------------------------------------------------------------
bool __fastcall TForm1::enable_adapter(bool enable)
{
HDEVINFO Devs=INVALID_HANDLE_VALUE;
wchar_t * CLASSID_NetworkAdapter = L"{4d36e972-e325-11ce-bfc1-08002be10318}";

GUID guid;
CLSIDFromString(CLASSID_NetworkAdapter, &guid);

Devs = SetupDiGetClassDevs(&guid, NULL, NULL, DIGCF_PRESENT);
if (Devs == INVALID_HANDLE_VALUE) goto failed;

SP_DEVINFO_DATA devInfo;
devInfo.cbSize = sizeof(SP_DEVINFO_DATA);

if (!SetupDiEnumDeviceInfo(Devs, 0, &devInfo))   goto failed;
else // имя
    {
    char buff[256];
    DWORD lenbuff;
    SetupDiGetDeviceRegistryProperty(Devs, &devInfo, SPDRP_SERVICE, NULL, (byte *)buff, 256, &lenbuff);
        LabelResult->Caption = "device: "+(AnsiString) buff ;
    }

SP_PROPCHANGE_PARAMS pcp;
       
if(enable){
    pcp.ClassInstallHeader.cbSize = sizeof(SP_CLASSINSTALL_HEADER);
    pcp.ClassInstallHeader.InstallFunction = DIF_PROPERTYCHANGE;
        pcp.StateChange = enable ? DICS_ENABLE : DICS_DISABLE;
        pcp.Scope = DICS_FLAG_GLOBAL;
    pcp.HwProfile = 0;

    if (SetupDiSetClassInstallParams(Devs, &devInfo, &pcp.ClassInstallHeader, sizeof(pcp)))
                SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, Devs, &devInfo);
        }

pcp.ClassInstallHeader.cbSize = sizeof(SP_CLASSINSTALL_HEADER);
pcp.ClassInstallHeader.InstallFunction = DIF_PROPERTYCHANGE;
pcp.StateChange = enable ? DICS_ENABLE : DICS_DISABLE;
pcp.Scope = DICS_FLAG_CONFIGSPECIFIC;
pcp.HwProfile = 0;

if(!SetupDiSetClassInstallParams(Devs,&devInfo,&pcp.ClassInstallHeader,sizeof(pcp)) ||
   !SetupDiCallClassInstaller(DIF_PROPERTYCHANGE,Devs,&devInfo))
         // failed to invoke DIF_PROPERTYCHANGE
         goto failed;

SP_DEVINSTALL_PARAMS devParams;
devParams.cbSize = sizeof(devParams);
if(SetupDiGetDeviceInstallParams(Devs,&devInfo,&devParams) && (devParams.Flags & (DI_NEEDRESTART|DI_NEEDREBOOT))){
         // see if device needs reboot
         ShowMessage("see if device needs reboot");
         goto failed;
         }
//else     ;// appears to have succeeded
LabelResult->Caption = LabelResult->Caption +" - "+IntToStr(enable) ;
//enable ? " enabled!" : " disabled!";

SetupDiDestroyDeviceInfoList(Devs);
return true;
failed:
SetupDiDestroyDeviceInfoList(Devs);
return false;
}
//---------------------------------------------------------------------------