bestlong 怕失憶論壇

標題: 列出 windows 所有的 RS232 COM Port 列表 [打印本頁]
作者: bestlong    時間: 2011-3-14 16:17     標題: 列出 windows 所有的 RS232 COM Port 列表

機碼 HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM 就紀錄所有的 COM Port.

comportlist-2.png

所以可以使用讀取機碼的方式來取得 COM Port 列表
  1. unit Unit1;

  3. interface

  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Registry, StdCtrls;

  9. type
  10.   TForm1 = class(TForm)
  11.     Memo1: TMemo;
  12.     procedure FormCreate(Sender: TObject);
  13.   private
  14.     { Private declarations }
  15.   public
  16.     { Public declarations }
  17.   end;

  19. var
  20.   Form1: TForm1;

  22. implementation

  24. {$R *.DFM}

  26. procedure TForm1.FormCreate(Sender: TObject);
  27. var
  28.   reg : TRegistry;
  29.   sl: TStrings;
  30.   i: integer;
  31. begin
  32.   Memo1.Clear;
  33.   reg := TRegistry.Create;
  34.   try
  35.     reg.RootKey := HKEY_LOCAL_MACHINE;
  36.     reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false);
  37.     sl := TStringList.Create;
  38.     try
  39.       reg.GetValueNames(sl);
  40.       for i := 0 to sl.Count -1 do
  41.         Memo1.Lines.Add(reg.ReadString(sl.Strings[i]));
  42.     finally
  43.       sl.Free;
  44.     end;
  45.   finally
  46.     reg.CloseKey;
  47.     reg.free;
  48.   end;
  49. end;

  51. end.
複製代碼
comportlist.png

圖片附件: comportlist.png (2011-3-14 16:16, 7.11 KB) / 下載次數 104
http://www.bestlong.idv.tw/forum.php?mod=attachment&aid=MjU0fDM3MDBhOTNmfDE3MTQ2NjA2MzN8MA%3D%3D



圖片附件: comportlist-2.png (2011-3-14 16:21, 31.26 KB) / 下載次數 103
http://www.bestlong.idv.tw/forum.php?mod=attachment&aid=MjU1fDU3ZDIxMGEzfDE3MTQ2NjA2MzN8MA%3D%3D

作者: bestlong    時間: 2013-8-9 11:06

配合作業系統的安全性架構，在 Open Key 之前最好要設定存取等級

reg.RootKey := HKEY_LOCAL_MACHINE;
reg.Access := KEY_READ;
reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false);
作者: bestlong    時間: 2013-8-9 11:09

只有 COMn 的列表也不是很確定是對應到哪個設備，需要更友善的資訊

http://delphi.cjcsoft.net/viewthread.php?tid=45021

Enumerating available comm ports with friendly names.
Title: Enumerating available comm ports with friendly names.

Question: Serial (and virtual serial) PNP Devices (PCMCIA, USB, Bluetooth) get assigned "arbitrary" comm port numbers.
To help users to select the correct comm port it would be helpfull to list them with device friendly names.
The supplied function helps this goal.


Answer:
  1. (*

  3. The function below returns a list of available COM-ports
  4. (not open by this or an other process), with friendly names. The list is formatted as follows:

  6. COM1: = Communications Port (COM1)
  7. COM5: = NI Serial Port (Com5)
  8. COM6: = NI Serial Port (Com6)
  9. COM7: = USB Serial Port (COM7)
  10. COM8: = Bluetooth Communications Port (COM8)
  11. COM9: = Bluetooth Communications Port (COM9)



  15. The function uses the setupapi (setup api) unit that is available from
  16. "http://homepages.borland.com/jedi/cms/modules/apilib/visit.php?cid=4&lid=3".

  18. I have verified the code and it worked  for W2000, WXP, W98. It does not work for W95, and NT 4.0. I did not check WME but I guess it will work with WME too.


  21. *)

  23. function SetupEnumAvailableComPorts:TstringList;
  24. // Enumerates all serial communications ports that are available and ready to
  25. // be used.

  27. // For the setupapi unit see
  28. // http://homepages.borland.com/jedi/cms/modules/apilib/visit.php?cid=4&lid=3

  30. var
  31.   RequiredSize:             Cardinal;
  32.   Guid:                     TGUID;
  33.   DevInfoHandle:            HDEVINFO;
  34.   DeviceInfoData:           TSPDevInfoData;
  35.   MemberIndex:              Cardinal;
  36.   PropertyRegDataType:      DWord;
  37.   RegProperty:              Cardinal;
  38.   RegTyp:                   Cardinal;
  39.   Key:                      Hkey;
  40.   Info:                     TRegKeyInfo;
  41.   S1,S2:                    string;
  42.   hc:                       THandle;
  43. begin
  44.   Result:=Nil;
  45. //If we cannot access the setupapi.dll then we return a nil pointer.   
  46.   if not LoadsetupAPI then exit;
  47.   try
  48. // get 'Ports' class guid from name
  49.     if SetupDiClassGuidsFromName('Ports',@Guid,RequiredSize,RequiredSize) then begin
  50. //get object handle of 'Ports' class to interate all devices
  51.        DevInfoHandle:=SetupDiGetClassDevs(@Guid,Nil,0,DIGCF_PRESENT);
  52.        if Cardinal(DevInfoHandle)Invalid_Handle_Value then begin
  53.          try
  54.            MemberIndex:=0;
  55.            result:=TStringList.Create;
  56. //iterate device list
  57.            repeat
  58.              FillChar(DeviceInfoData,SizeOf(DeviceInfoData),0);
  59.              DeviceInfoData.cbSize:=SizeOf(DeviceInfoData);
  60. //get device info that corresponds to the next memberindex
  61.              if Not SetupDiEnumDeviceInfo(DevInfoHandle,MemberIndex,DeviceInfoData) then
  62.                break;
  63. //query friendly device name LIKE 'BlueTooth Communication Port (COM8)' etc
  64.              RegProperty:=SPDRP_FriendlyName;{SPDRP_Driver, SPDRP_SERVICE, SPDRP_ENUMERATOR_NAME,SPDRP_PHYSICAL_DEVICE_OBJECT_NAME,SPDRP_FRIENDLYNAME,}
  65.              SetupDiGetDeviceRegistryProperty(DevInfoHandle,DeviceInfoData,
  66.                                                    RegProperty,
  67.                                                    @PropertyRegDataType,
  68.                                                    NIL,0,@RequiredSize);
  69.              SetLength(S1,RequiredSize);
  70.              if SetupDiGetDeviceRegistryProperty(DevInfoHandle,DeviceInfoData,
  71.                                                  RegProperty,
  72.                                                  @PropertyRegDataType,
  73.                                                  @S1[1],RequiredSize,@RequiredSize) then begin
  74.                KEY:=SetupDiOpenDevRegKey(DevInfoHandle,DeviceInfoData,DICS_FLAG_GLOBAL,0,DIREG_DEV,KEY_READ);
  75.                if keyINValid_Handle_Value then begin
  76.                  FillChar(Info, SizeOf(Info), 0);
  77. //query the real port name from the registry value 'PortName'
  78.                  if RegQueryInfoKey(Key, nil, nil, nil, @Info.NumSubKeys,@Info.MaxSubKeyLen, nil, @Info.NumValues, @Info.MaxValueLen,
  79.                                                         @Info.MaxDataLen, nil, @Info.FileTime) = ERROR_SUCCESS then begin
  80.                    RequiredSize:= Info.MaxValueLen + 1;
  81.                    SetLength(S2,RequiredSize);
  82.                    if RegQueryValueEx(KEY,'PortName',Nil,@Regtyp,@s2[1],@RequiredSize)=Error_Success then begin
  83.                      If (Pos('COM',S2)=1) then begin
  84. //Test if the device can be used
  85.                        hc:=CreateFile(pchar('\\.\'+S2+#0),
  86.                                       GENERIC_READ or GENERIC_WRITE,
  87.                                       0,
  88.                                       nil,
  89.                                       OPEN_EXISTING,
  90.                                       FILE_ATTRIBUTE_NORMAL,
  91.                                       0);
  92.                        if hc INVALID_HANDLE_VALUE then begin
  93.                          Result.Add(Strpas(PChar(S2))+': = '+StrPas(PChar(S1)));
  94.                          CloseHandle(hc);
  95.                        end;
  96.                      end;
  97.                    end;
  98.                  end;
  99.                  RegCloseKey(key);
  100.                end;
  101.              end;
  102.              Inc(MemberIndex);
  103.            until False;
  104. //If we did not found any free com. port we return a NIL pointer.
  105.            if Result.Count=0 then begin
  106.              Result.Free;
  107.              Result:=NIL;

  109.            end
  110.          finally
  111.            SetupDiDestroyDeviceInfoList(DevInfoHandle);
  112.          end;
  113.        end;
  114.     end;
  115.   finally
  116.     UnloadSetupApi;
  117.   end;
  118. end;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5