BCB取得網路連線的名稱

因為Netlimit IP Switcher的需求，所以必須找出「網路連線」的名稱，就是控制台下的網路連線的名稱...比如"區域連線"、"ADSL"...等等的。

原本以為用MIB_IFROW裡頭的data即可，可惜並不是這麼單純...後來終於找到方法了，IP_ADAPTER_INFO裡面記錄了所有Adapter的資訊(可由GetAdaptersInfo取得)，裡頭的變數AdapterName即是Adapter的GUID，還不是名稱喔!要取得名稱的話，必須進入Register中查詢後，才能得知。在Register中的路徑是：

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}

以下是我的簡單測試code
(1) 首先要拉兩個元件...ListBox & Button
(2) #include <Iphlpapi.h> 為了呼叫GetAdaptersInfo
(3) #include <vcl/registry.hpp> 為了查詢Registry

#include <Iphlpapi.h>
#include <vcl/registry.hpp>
//...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  /*** 取得所有網路連線的名稱 ***/
  //先透過GetAdaptersInfo取得Adapter的Name ... 此為GUID
  //必須去Register取得真正的名稱
   ULONG ulLen=4096;
  BYTE *pbBuf=new BYTE[ulLen];
  IP_ADAPTER_INFO * adp_info=NULL;

  TRegistry * registry = new TRegistry();
  registry->RootKey = HKEY_LOCAL_MACHINE;

  if( ERROR_SUCCESS==GetAdaptersInfo((IP_ADAPTER_INFO*)pbBuf, &ulLen) )
  {
      adp_info = (IP_ADAPTER_INFO*)pbBuf;
      do{
          AnsiString key_path = "\\SYSTEM\\CurrentControlSet\\Control\\Network\\{4D36E972-E325-11CE-BFC1-08002BE10318}\\"
                                + AnsiString( adp_info->AdapterName )
                                + "\\Connection";
          if ( registry->OpenKeyReadOnly( key_path ) ){
                 if( registry->ValueExists("Name") ){
                     this->ListBox1->Items->Add( registry->ReadString("Name") );
                 }
          }
          registry->CloseKey();

          adp_info = adp_info->Next;//point to next adapter!
      }while(adp_info!=NULL);
  }
  delete pbBuf;
  delete registry;
}