TStringList* tmp=new TStringList;
const int datalen=MAX_PATH;
char buffer[datalen]={"\0"};
TRegistry *Reg = new TRegistry;
try
{
  Reg->RootKey = HKEY_LOCAL_MACHINE;
  if(Reg->OpenKey("\\SYSTEM\\CurrentControlSet\\Control\\NetworkProvider", false))
  {
    Reg->ReadBinaryData("Notification Packages",(void*)buffer,datalen);
    strcat(buffer, "1");
    char* p=buffer;
    while(strlen(p))
    {
     tmp->Add(AnsiString(p));
     p+=strlen(p)+1;
     }
    }
  }
__finally
{
  Reg->CloseKey();
  delete tmp;
  delete Reg;
  }