我想要做一個com port 的測試程式 但是 程式一開始 需要選擇com port 但是我該如何抓取到 現在有幾個com 或是有 但是被佔用呢!?

Are you sure that you've searched this site ?
http://delphi.ktop.com.tw/topic.php?topic_id=33626
http://delphi.ktop.com.tw/topic.php?topic_id=36823
http://delphi.ktop.com.tw/topic.php?topic_id=76104

[code cpp]
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//
AnsiString com_name,cname;
int i;
Registry = new TRegistry;
Registry->RootKey=HKEY_LOCAL_MACHINE;
Registry->OpenKey("HARDWARE\\DEVICEMAP\\SERIALCOMM",false);
cname="\\Device\\Serial";
for(i=0;i<20;i ){
com_name=Registry->ReadString(cname IntToStr(i));
if(com_name=="")break;
ComboBox1->Items->Add(com_name);
ComboBox1->ItemIndex =0;
}
delete Registry;
}
//---------------------------------------------------------------------------

[/code]

編輯記錄