void __fastcall TForm1::Button1Click(TObject *Sender)
{
    wchar_t *servername = L"FS2";
    int level = 2;
    void *buf;
    NET_DISPLAY_MACHINE *ndm;
    unsigned long read,next_index,rc,i;        next_index = 0;        do {
      buf = NULL;
      rc = NetQueryDisplayInformation(servername,level,next_index,1000,MAX_PREFERRED_LENGTH,&read,&buf);
      if ( rc != ERROR_MORE_DATA && rc != ERROR_SUCCESS )
      break;          ndm = (NET_DISPLAY_MACHINE *)buf;
      for (i=0;iItems->Add(ndm->usri2_name);
        next_index = ndm->usri2_next_index;
        ndm  ;
      }          if ( buf != NULL ) {
        NetApiBufferFree(buf); }        } while ( rc == ERROR_MORE_DATA );
}    

引言: g6101 您好： 看看下列這幾篇是否能幫上忙？ 搜尋電腦 http://delphi.ktop.com.tw/topic.php?topic_id=42691 怎樣搜索區域網路的電腦 http://delphi.ktop.com.tw/topic.php?topic_id=26446 取得網路芳鄰中的連線名稱 http://delphi.ktop.com.tw/topic.php?topic_id=53612 探測網路芳鄰 http://delphi.ktop.com.tw/topic.php?topic_id=33962 網路芳鄰中的網路連線 http://delphi.ktop.com.tw/topic.php?topic_id=54745 如何用程式指定路徑並連線網路磁碟機 http://delphi.ktop.com.tw/topic.php?topic_id=37958 7 天天敲鍵盤 v 時時按滑鼠 8

感謝您!