__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
// [HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM]
// "\\Device\\PTSerial0"="COM3"
// "\\Device\\Serial0"="COM1"
TStringList *tmp= new TStringList;
TRegistry *reg= new TRegistry;
StringGrid1->Cells[0][0]="COM Port";
StringGrid1->Cells[1][0]="Physical Location";
StringGrid1->Cells[2][0]="In Use";
reg->RootKey = HKEY_LOCAL_MACHINE;
if( reg->OpenKey("\\HARDWARE\\DEVICEMAP\\SERIALCOMM",false) )
{
reg->GetValueNames(tmp);
Label1->Caption=String(tmp->Count) " COM Ports";
for(int i=0; iCount; i )
{
AnsiString ascom=reg->ReadString(tmp->Strings[i]);
int icom=ascom.SubString(4,1).ToIntDef(0);
if(icom>0 && icom<=255)
{
StringGrid1->Cells[0][icom]=ascom;
StringGrid1->Cells[1][icom]=tmp->Strings[i];
}
}
}
else
{
ShowMessage("Open NG!!");
}
reg->CloseKey();
delete reg;
delete tmp;
}
//---------------------------------------------------------------------------

這是在站內找到的範例,但是我在我的電腦上試都沒辦法reg->OpenKey("\\HARDWARE\\DEVICEMAP\\SERIALCOMM",false) 成功,所以請問是win7的關係嗎,還是我那邊有寫錯..
謝謝

------
vincent

附加檔案：4c2323deb7697_ComPortFinder.rar

你嘗試用管理員的權限運行。