列出 windows 所有的 RS232 COM Port 列表

bestlong

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

2011-3-14 16:21 上傳

下載附件 (31.26 KB)

所以可以使用讀取機碼的方式來取得 COM Port 列表

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   
7.   Registry, StdCtrls;
   
8. 
   
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;
    
18. 
    
19. var
    
20.   Form1: TForm1;
    
21. 
    
22. implementation
    
23. 
    
24. {$R *.DFM}
    
25. 
    
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;
    
50. 
    
51. end.

複製代碼

2011-3-14 16:16 上傳

下載附件 (7.11 KB)

bestlong

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

reg.RootKey := HKEY_LOCAL_MACHINE;
reg.Access := KEY_READ;
reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false);

bestlong

只有 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. (*
   
2. 
   
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:
   
5. 
   
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)
    
12. 
    
13. 
    
14. 
    
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".
    
17. 
    
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.
    
19. 
    
20. 
    
21. *)
    
22. 
    
23. function SetupEnumAvailableComPorts:TstringList;
    
24. // Enumerates all serial communications ports that are available and ready to
    
25. // be used.
    
26. 
    
27. // For the setupapi unit see
    
28. // http://homepages.borland.com/jedi/cms/modules/apilib/visit.php?cid=4&lid=3
    
29. 
    
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;
     
108. 
     
109.            end
     
110.          finally
     
111.            SetupDiDestroyDeviceInfoList(DevInfoHandle);
     
112.          end;
     
113.        end;
     
114.     end;
     
115.   finally
     
116.     UnloadSetupApi;
     
117.   end;
     
118. end;

複製代碼