关于串口名。(50分)

  • 主题发起人 主题发起人 sntmpl
  • 开始时间 开始时间
S

sntmpl

Unregistered / Unconfirmed
GUEST, unregistred user!
我用了一根USB TO COM线,在设备管理器中为USB Serial PORT(COM4).我想做个判断如果串口是USB Serial Port则为我用的串口,可怎么能找到串口名是USB Serial Port啊
 
uses

Registry;

procedure TForm1.Button1Click(Sender: TObject);

var

reg: TRegistry;

st: Tstrings;

i: Integer;

begin

reg := TRegistry.Create;

try

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.OpenKey('hardware', False);

st := TstringList.Create;

try

reg.GetValueNames(st);

for i := 0 to st.Count - 1 do

Memo1.Lines.Add(reg.Readstring(st.strings));

finally

st.Free;

end;

reg.CloseKey;

finally

reg.Free;

end;

end;

 
不好用啊
 
那你也可以根据设备的返回值来判断哪个口是你接的口的啊
 
我要的是串口名不是COM1,COM2....
 
后退
顶部