[an error occurred while processing this directive]
|
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TRegistry* Reg = new TRegistry;
TStringList *List = new TStringList;
int i;
Reg->RootKey = HKEY_LOCAL_MACHINE;
Reg->OpenKey("HARDWARE\\DEVICEMAP\\SERIALCOMM", false);
Reg->GetValueNames(List);
for (i = 0; i< List->Count; i++)
{
AnsiString w = Reg->ReadString(List->Strings[i]).SetLength(3);
if (w.SetLength(3) == "COM")
ComboBox1->Items->Add(Reg->ReadString(List->Strings[i]));
}
List->Free();
Reg->CloseKey();
Reg->Free();
ComboBox1->ItemIndex = 0;
port = 0;
Получите список СОМ-портов и проверите, что он действительно есть.