LK9100插上数据线后,会自动生成一个端口号,可以在注册表里查到。 function TForm1.GetPCCom():integer; var reg:TRegistry; strCom:string; begin reg:= TRegistry.Create; try try reg.RootKey:= HKEY_LOCAL_MACHINE; if ( not reg.OpenKeyReadOnly('/HARDWARE/DEVICEMAP/SERIALCOMM/') ) then begin raise Exception.Create('注册表HARDWARE/DEVICEMAP/SERIALCOMM路径不存在'); end; strCom:=reg.ReadString( '/Device/slabser0' ); if ( strCom='' )then begin raise Exception.Create('未找到端口号,请确认是否已经插好再数据线,再重新启动本程序!'); end; strGLCom:= strCom; AddListInfo('USB数据线通讯端口:'+strCom); {reg.GetValueNames(keyVal); for i:=1 to keyVal.Count do begin list.Add(reg.ReadString(keyVal.Strings[i-1])) ; end;} except on e:Exception do begin raise Exception.Create( e.Message ); end; end; finally reg.Free; end; end;