blocks|key|2548479|text|你打开“输入@+operator”了吗？项目选项，“语法选项”下的编译器选项卡。如果启用了该选项，许多第三方代码就会中断。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2548480|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

Do you have "typed @ operator" turned on? Project options, Compiler tab under "Syntax options". A lot of third party code breaks if that option is enabled.

blocks|key|2548499|text|为了便于操作，您可以考虑简单地使用注册表，其中列出了这些名称，例如：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2548500|++ErrCode+:=+RegOpenKeyEx(
++++HKEY_LOCAL_MACHINE,
++++'HARDWARE\DEVICEMAP\SERIALCOMM',
++++0,
++++KEY_READ,
++++KeyHandle);|code-block|syntax|javascript|2548501|(我已经整理好了挥手的东西)。|2548502|您还可以考虑使用WMI+--参见来自Magenta的这个例子+--您现在可以获得几乎所有与硬件相关的东西。|offset|length|2548503|entityMap|0|LINK|mutability|MUTABLE|url|http://www.magsys.co.uk/delphi/magwmi.asp^0|0|0|0|Q|4|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|W|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|X|8|@]|9|@$K|Y|L|Z|1|10]]|A|$]]|$1|M|3|-4|5|6|7|11|8|@]|9|@]|A|$]]]|N|$O|$5|P|Q|R|A|$S|T]]]]

For easier operation you might consider simply using the registry where those names are listed eg:

<pre><code> ErrCode := RegOpenKeyEx(
 HKEY_LOCAL_MACHINE,
 'HARDWARE\DEVICEMAP\SERIALCOMM',
 0,
 KEY_READ,
 KeyHandle);
</code></pre>

(I've ommited the hand-waving stuff).

You might also consider using WMI - see <a href="http://www.magsys.co.uk/delphi/magwmi.asp" rel="nofollow">this example</a> from Magenta Systems - you can get a pretty much everything hardware-related now.

blocks|key|2189738|text|看起来，PDWord类型的一些参数在SetupApi.pas中被var+DWord替换了。您只需从代码中的这些参数中删除“@”，如下所示：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2189739|if+SetupDiGetDeviceRegistryProperty(DevInfoHandle,DeviceInfoData,
++++++++++++++++++++++++++++++++++++RegProperty,
++++++++++++++++++++++++++++++++++++PropertyRegDataType,
++++++++++++++++++++++++++++++++++++@S1[1],RequiredSize,RequiredSize)+then+begin|code-block|syntax|javascript|2189740|entityMap^0|4|6|I|C|W|9|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]|$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|T|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|U|8|@]|D|@]|E|$]]]|L|$]]

Looks like some arguments of type <code>PDWord</code> were replaced by <code>var DWord</code> in <code>SetupApi.pas</code>. All you need is to remove '@' from these arguments in your code like that:

<pre><code>if SetupDiGetDeviceRegistryProperty(DevInfoHandle,DeviceInfoData,
 RegProperty,
 PropertyRegDataType,
 @S1[1],RequiredSize,RequiredSize) then begin
</code></pre>

blocks|key|2548523|text|我从用不同的标签以不同的方式问这个问题那里得到了一些更具体的建议。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|2548524|结果发现，delphi3000.com示例代码中有错误，JVCL代码中也可能有错误。在修复了示例代码错误之后，我让它开始工作。我没有讨论潜在的JVCL错误。|2548525|下面是用于枚举com端口名称的工作代码(作为一个简单的控制台应用程序)：|2548526|{$APPTYPE+CONSOLE}
program+EnumComPortsTest;


uses
++windows,
++sysutils,
++classes,
++setupAPI,
++Registry;

{$R+*.RES}

var
+++ComPortStringList+:+TStringList;

(*

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

COM1:+=+Communications+Port+(COM1)
COM5:+=+NI+Serial+Port+(Com5)
COM6:+=+NI+Serial+Port+(Com6)
COM7:+=+USB+Serial+Port+(COM7)
COM8:+=+Bluetooth+Communications+Port+(COM8)
COM9:+=+Bluetooth+Communications+Port+(COM9)

This+code+originally+posted+at+http://www.delphi3000.com/articles/article_4001.asp?SK=
errors+have+been+fixed+so+it+will+work+with+Delphi+7+and+SetupAPI+from+JVCL
*)

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

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

var
++RequiredSize:+++++++++++++Cardinal;
++GUIDSize:+++++++++++++++++DWORD;
++Guid:+++++++++++++++++++++TGUID;
++DevInfoHandle:++++++++++++HDEVINFO;
++DeviceInfoData:+++++++++++TSPDevInfoData;
++MemberIndex:++++++++++++++Cardinal;
++PropertyRegDataType:++++++DWord;
++RegProperty:++++++++++++++Cardinal;
++RegTyp:+++++++++++++++++++Cardinal;
++Key:++++++++++++++++++++++Hkey;
++Info:+++++++++++++++++++++TRegKeyInfo;
++S1,S2:++++++++++++++++++++string;
++hc:+++++++++++++++++++++++THandle;
begin
++Result:=Nil;
//If+we+cannot+access+the+setupapi.dll+then+we+return+a+nil+pointer.
++if+not+LoadsetupAPI+then+exit;
++try
//+get+'Ports'+class+guid+from+name

++++GUIDSize+:=+1;++++//+missing+from+original+code+-+need+to+tell+function+that+the+Guid+structure+contains+a+single+GUID
++++if+SetupDiClassGuidsFromName('Ports',@Guid,GUIDSize,RequiredSize)+then+begin
//get+object+handle+of+'Ports'+class+to+interate+all+devices
+++++++DevInfoHandle:=SetupDiGetClassDevs(@Guid,Nil,0,DIGCF_PRESENT);
+++++++if+Cardinal(DevInfoHandle)<>Invalid_Handle_Value+then+begin
+++++++++try
+++++++++++MemberIndex:=0;
+++++++++++result:=TStringList.Create;
//iterate+device+list
+++++++++++repeat
+++++++++++++FillChar(DeviceInfoData,SizeOf(DeviceInfoData),0);
+++++++++++++DeviceInfoData.cbSize:=SizeOf(DeviceInfoData);
//get+device+info+that+corresponds+to+the+next+memberindex
+++++++++++++if+Not+SetupDiEnumDeviceInfo(DevInfoHandle,MemberIndex,DeviceInfoData)+then
+++++++++++++++break;
//query+friendly+device+name+LIKE+'BlueTooth+Communication+Port+(COM8)'+etc
+++++++++++++RegProperty:=SPDRP_FriendlyName;{SPDRP_Driver,+SPDRP_SERVICE,+SPDRP_ENUMERATOR_NAME,SPDRP_PHYSICAL_DEVICE_OBJECT_NAME,SPDRP_FRIENDLYNAME,}

+++++++++++++SetupDiGetDeviceRegistryProperty(DevInfoHandle,
+++++++++++++++++++++++++++++++++++++++++++++++++++DeviceInfoData,
+++++++++++++++++++++++++++++++++++++++++++++++++++RegProperty,
+++++++++++++++++++++++++++++++++++++++++++++++++++PropertyRegDataType,
+++++++++++++++++++++++++++++++++++++++++++++++++++NIL,0,RequiredSize);
+++++++++++++SetLength(S1,RequiredSize);

+++++++++++++if+SetupDiGetDeviceRegistryProperty(DevInfoHandle,DeviceInfoData,
+++++++++++++++++++++++++++++++++++++++++++++++++RegProperty,
+++++++++++++++++++++++++++++++++++++++++++++++++PropertyRegDataType,
+++++++++++++++++++++++++++++++++++++++++++++++++@S1[1],RequiredSize,RequiredSize)+then+begin
+++++++++++++++KEY:=SetupDiOpenDevRegKey(DevInfoHandle,DeviceInfoData,DICS_FLAG_GLOBAL,0,DIREG_DEV,KEY_READ);
+++++++++++++++if+key<>INValid_Handle_Value+then+begin
+++++++++++++++++FillChar(Info,+SizeOf(Info),+0);
//query+the+real+port+name+from+the+registry+value+'PortName'
+++++++++++++++++if+RegQueryInfoKey(Key,+nil,+nil,+nil,+@Info.NumSubKeys,@Info.MaxSubKeyLen,+nil,+@Info.NumValues,+@Info.MaxValueLen,
++++++++++++++++++++++++++++++++++++++++++++++++++++++++@Info.MaxDataLen,+nil,+@Info.FileTime)+=+ERROR_SUCCESS+then+begin
+++++++++++++++++++RequiredSize:=+Info.MaxValueLen+%2B+1;
+++++++++++++++++++SetLength(S2,RequiredSize);
+++++++++++++++++++if+RegQueryValueEx(KEY,'PortName',Nil,@Regtyp,@s2[1],@RequiredSize)=Error_Success+then+begin
+++++++++++++++++++++If+(Pos('COM',S2)=1)+then+begin
//Test+if+the+device+can+be+used
+++++++++++++++++++++++hc:=CreateFile(pchar('\\.\'%2BS2%2B#0),
++++++++++++++++++++++++++++++++++++++GENERIC_READ+or+GENERIC_WRITE,
++++++++++++++++++++++++++++++++++++++0,
++++++++++++++++++++++++++++++++++++++nil,
++++++++++++++++++++++++++++++++++++++OPEN_EXISTING,
++++++++++++++++++++++++++++++++++++++FILE_ATTRIBUTE_NORMAL,
++++++++++++++++++++++++++++++++++++++0);
+++++++++++++++++++++++if+hc<>+INVALID_HANDLE_VALUE+then+begin
+++++++++++++++++++++++++Result.Add(Strpas(PChar(S2))%2B':+=+'%2BStrPas(PChar(S1)));
+++++++++++++++++++++++++CloseHandle(hc);
+++++++++++++++++++++++end;
+++++++++++++++++++++end;
+++++++++++++++++++end;
+++++++++++++++++end;
+++++++++++++++++RegCloseKey(key);
+++++++++++++++end;
+++++++++++++end;
+++++++++++++Inc(MemberIndex);
+++++++++++until+False;
//If+we+did+not+found+any+free+com.+port+we+return+a+NIL+pointer.
+++++++++++if+Result.Count=0+then+begin
+++++++++++++Result.Free;
+++++++++++++Result:=NIL;

+++++++++++end
+++++++++finally
+++++++++++SetupDiDestroyDeviceInfoList(DevInfoHandle);
+++++++++end;
+++++++end;
++++end;
++finally
++++UnloadSetupApi;
++end;
end;



var
+++index+:+integer;

begin

++ComPortStringList+:=+SetupEnumAvailableComPorts;

++if+(ComPortStringList+<>+nil)+and+(ComPortStringList.Count+>+0)+then
++++for+Index+:=+0+to+ComPortStringList.Count+-+1+do
++++++writeln(ComPortStringList[Index]);

end.|code-block|syntax|javascript|2548527|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/questions/5004854/windows-api-parameters-in-delphi-passing-var-parameter-with-or-without-operat^0|2|H|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@$A|V|B|W|1|X]]|C|$]]|$1|D|3|E|5|6|7|Y|8|@]|9|@]|C|$]]|$1|F|3|G|5|6|7|Z|8|@]|9|@]|C|$]]|$1|H|3|I|5|J|7|10|8|@]|9|@]|C|$K|L]]|$1|M|3|-4|5|6|7|11|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]]]

I was able to get some more specific suggestions by <a href="https://stackoverflow.com/questions/5004854/windows-api-parameters-in-delphi-passing-var-parameter-with-or-without-operat">asking the question a different way with different tags</a>.

It turns out there were errors in the delphi3000.com example code, and possibly errors in the JVCL code. After fixing the example code errors, I got it to work. I have not addressed the potential JVCL errors.

Here is the working code (as a simple console app) for enumerating the names of com ports:

<pre><code>{$APPTYPE CONSOLE}
program EnumComPortsTest;


uses
 windows,
 sysutils,
 classes,
 setupAPI,
 Registry;

{$R *.RES}

var
 ComPortStringList : TStringList;

(*

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

COM1: = Communications Port (COM1)
COM5: = NI Serial Port (Com5)
COM6: = NI Serial Port (Com6)
COM7: = USB Serial Port (COM7)
COM8: = Bluetooth Communications Port (COM8)
COM9: = Bluetooth Communications Port (COM9)

This code originally posted at http://www.delphi3000.com/articles/article_4001.asp?SK=
errors have been fixed so it will work with Delphi 7 and SetupAPI from JVCL
*)

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

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

var
 RequiredSize: Cardinal;
 GUIDSize: DWORD;
 Guid: TGUID;
 DevInfoHandle: HDEVINFO;
 DeviceInfoData: TSPDevInfoData;
 MemberIndex: Cardinal;
 PropertyRegDataType: DWord;
 RegProperty: Cardinal;
 RegTyp: Cardinal;
 Key: Hkey;
 Info: TRegKeyInfo;
 S1,S2: string;
 hc: THandle;
begin
 Result:=Nil;
//If we cannot access the setupapi.dll then we return a nil pointer.
 if not LoadsetupAPI then exit;
 try
// get 'Ports' class guid from name

 GUIDSize := 1; // missing from original code - need to tell function that the Guid structure contains a single GUID
 if SetupDiClassGuidsFromName('Ports',@Guid,GUIDSize,RequiredSize) then begin
//get object handle of 'Ports' class to interate all devices
 DevInfoHandle:=SetupDiGetClassDevs(@Guid,Nil,0,DIGCF_PRESENT);
 if Cardinal(DevInfoHandle)&lt;&gt;Invalid_Handle_Value then begin
 try
 MemberIndex:=0;
 result:=TStringList.Create;
//iterate device list
 repeat
 FillChar(DeviceInfoData,SizeOf(DeviceInfoData),0);
 DeviceInfoData.cbSize:=SizeOf(DeviceInfoData);
//get device info that corresponds to the next memberindex
 if Not SetupDiEnumDeviceInfo(DevInfoHandle,MemberIndex,DeviceInfoData) then
 break;
//query friendly device name LIKE 'BlueTooth Communication Port (COM8)' etc
 RegProperty:=SPDRP_FriendlyName;{SPDRP_Driver, SPDRP_SERVICE, SPDRP_ENUMERATOR_NAME,SPDRP_PHYSICAL_DEVICE_OBJECT_NAME,SPDRP_FRIENDLYNAME,}

 SetupDiGetDeviceRegistryProperty(DevInfoHandle,
 DeviceInfoData,
 RegProperty,
 PropertyRegDataType,
 NIL,0,RequiredSize);
 SetLength(S1,RequiredSize);

 if SetupDiGetDeviceRegistryProperty(DevInfoHandle,DeviceInfoData,
 RegProperty,
 PropertyRegDataType,
 @S1[1],RequiredSize,RequiredSize) then begin
 KEY:=SetupDiOpenDevRegKey(DevInfoHandle,DeviceInfoData,DICS_FLAG_GLOBAL,0,DIREG_DEV,KEY_READ);
 if key&lt;&gt;INValid_Handle_Value then begin
 FillChar(Info, SizeOf(Info), 0);
//query the real port name from the registry value 'PortName'
 if RegQueryInfoKey(Key, nil, nil, nil, @Info.NumSubKeys,@Info.MaxSubKeyLen, nil, @Info.NumValues, @Info.MaxValueLen,
 @Info.MaxDataLen, nil, @Info.FileTime) = ERROR_SUCCESS then begin
 RequiredSize:= Info.MaxValueLen + 1;
 SetLength(S2,RequiredSize);
 if RegQueryValueEx(KEY,'PortName',Nil,@Regtyp,@s2[1],@RequiredSize)=Error_Success then begin
 If (Pos('COM',S2)=1) then begin
//Test if the device can be used
 hc:=CreateFile(pchar('\\.\'+S2+#0),
 GENERIC_READ or GENERIC_WRITE,
 0,
 nil,
 OPEN_EXISTING,
 FILE_ATTRIBUTE_NORMAL,
 0);
 if hc&lt;&gt; INVALID_HANDLE_VALUE then begin
 Result.Add(Strpas(PChar(S2))+': = '+StrPas(PChar(S1)));
 CloseHandle(hc);
 end;
 end;
 end;
 end;
 RegCloseKey(key);
 end;
 end;
 Inc(MemberIndex);
 until False;
//If we did not found any free com. port we return a NIL pointer.
 if Result.Count=0 then begin
 Result.Free;
 Result:=NIL;

 end
 finally
 SetupDiDestroyDeviceInfoList(DevInfoHandle);
 end;
 end;
 end;
 finally
 UnloadSetupApi;
 end;
end;



var
 index : integer;

begin

 ComPortStringList := SetupEnumAvailableComPorts;

 if (ComPortStringList &lt;&gt; nil) and (ComPortStringList.Count &gt; 0) then
 for Index := 0 to ComPortStringList.Count - 1 do
 writeln(ComPortStringList[Index]);

end.
</code></pre>

blocks|key|2548529|text|下面的过程对我是正确的(在Windows+8.1中)。在KEY_READ中使用参数TRegistry.Constructor是很重要的。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2548530|procedure++EnumComPorts(const+++Ports:++TStringList);

var
++nInd:++Integer;

begin++{+EnumComPorts+}
++with++TRegistry.Create(KEY_READ)++do
++++try
++++++RootKey+:=+HKEY_LOCAL_MACHINE;
++++++if++OpenKey('hardware\devicemap\serialcomm',+False)++then
++++++++try
++++++++++Ports.BeginUpdate();
++++++++++try
++++++++++++GetValueNames(Ports);
++++++++++++for++nInd+:=+Ports.Count+-+1++downto++0++do
++++++++++++++Ports.Strings[nInd]+:=+ReadString(Ports.Strings[nInd]);
++++++++++++Ports.Sort()
++++++++++finally
++++++++++++Ports.EndUpdate()
++++++++++end+{+try-finally+}
++++++++finally
++++++++++CloseKey()
++++++++end+{+try-finally+}
++++++else
++++++++Ports.Clear()
++++finally
++++++Free()
++++end+{+try-finally+}
end+{+EnumComPorts+};|code-block|syntax|javascript|2548531|entityMap^0|S|8|15|L|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|S|8|@]|D|@]|E|$]]]|L|$]]

The following procedure is working correctly for me (in Windows 8.1). It is important to use the parameter <code>KEY_READ</code> in the <code>TRegistry.Constructor</code>.

<pre><code>procedure EnumComPorts(const Ports: TStringList);

var
 nInd: Integer;

begin { EnumComPorts }
 with TRegistry.Create(KEY_READ) do
 try
 RootKey := HKEY_LOCAL_MACHINE;
 if OpenKey('hardware\devicemap\serialcomm', False) then
 try
 Ports.BeginUpdate();
 try
 GetValueNames(Ports);
 for nInd := Ports.Count - 1 downto 0 do
 Ports.Strings[nInd] := ReadString(Ports.Strings[nInd]);
 Ports.Sort()
 finally
 Ports.EndUpdate()
 end { try-finally }
 finally
 CloseKey()
 end { try-finally }
 else
 Ports.Clear()
 finally
 Free()
 end { try-finally }
end { EnumComPorts };
</code></pre>

blocks|key|2548533|text|下面是RRUZ+回答为串口类编写的代码。在Win10+20H2下工作很好。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|2548534|{$APPTYPE+CONSOLE}

uses
++SysUtils,
++ActiveX,
++ComObj,
++Variants;


procedure++GetWin32_SerialPortInfo;
const
++WbemUser++++++++++++='';
++WbemPassword++++++++='';
++WbemComputer++++++++='localhost';
++wbemFlagForwardOnly+=+$00000020;
var
++FSWbemLocator+:+OLEVariant;
++FWMIService+++:+OLEVariant;
++FWbemObjectSet:+OLEVariant;
++FWbemObject+++:+OLEVariant;
++oEnum+++++++++:+IEnumvariant;
++iValue++++++++:+LongWord;
begin;
++FSWbemLocator+:=+CreateOleObject('WbemScripting.SWbemLocator');
++FWMIService+++:=+FSWbemLocator.ConnectServer(WbemComputer,+'root\CIMV2',+WbemUser,+WbemPassword);
++FWbemObjectSet:=+FWMIService.ExecQuery('SELECT+*+FROM+Win32_SerialPort','WQL',wbemFlagForwardOnly);
++oEnum+++++++++:=+IUnknown(FWbemObjectSet._NewEnum)+as+IEnumVariant;
++while+oEnum.Next(1,+FWbemObject,+iValue)+=+0+do
++begin
++++//+for+other+fields:+https://learn.microsoft.com/en-us/windows/win32/cimwin32prov/win32-serialport
++++Writeln(Format('DeviceID++++++++%25s',[String(FWbemObject.DeviceID)]));//+String
++++Writeln(Format('Name++++++++++++%25s',[String(FWbemObject.Name)]));//+String
++++Writeln(Format('Description+++++%25s',[String(FWbemObject.Description)]));//+String
++++FWbemObject:=Unassigned;
++end;
end;


begin
+try
++++CoInitialize(nil);
++++try
++++++GetWin32_SerialPortInfo;
++++finally
++++++CoUninitialize;
++++end;
+except
++++on+E:EOleException+do
++++++++Writeln(Format('EOleException+%25s+%25x',+[E.Message,E.ErrorCode]));
++++on+E:Exception+do
++++++++Writeln(E.Classname,+':',+E.Message);
+end;
+Writeln('Press+Enter+to+exit');
+Readln;
end.|code-block|syntax|javascript|2548535|输出：|2548536|DeviceID++++++++COM7
Name++++++++++++Silicon+Labs+CP210x+USB+to+UART+Bridge+(COM7)
Description+++++Silicon+Labs+CP210x+USB+to+UART+Bridge
Press+Enter+to+exit|2548537|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/q/8519658/576719^0|8|2|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@$A|V|B|W|1|X]]|C|$]]|$1|D|3|E|5|F|7|Y|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|Z|8|@]|9|@]|C|$]]|$1|K|3|L|5|F|7|10|8|@]|9|@]|C|$G|H]]|$1|M|3|-4|5|6|7|11|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]]]

I adapted below code from RRUZ <a href="https://stackoverflow.com/q/8519658/576719">answer</a> for Serial Port class. Works fine under Win10 20H2.
<pre><code>{$APPTYPE CONSOLE}

uses
 SysUtils,
 ActiveX,
 ComObj,
 Variants;


procedure GetWin32_SerialPortInfo;
const
 WbemUser ='';
 WbemPassword ='';
 WbemComputer ='localhost';
 wbemFlagForwardOnly = $00000020;
var
 FSWbemLocator : OLEVariant;
 FWMIService : OLEVariant;
 FWbemObjectSet: OLEVariant;
 FWbemObject : OLEVariant;
 oEnum : IEnumvariant;
 iValue : LongWord;
begin;
 FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
 FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
 FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_SerialPort','WQL',wbemFlagForwardOnly);
 oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
 while oEnum.Next(1, FWbemObject, iValue) = 0 do
 begin
 // for other fields: https://learn.microsoft.com/en-us/windows/win32/cimwin32prov/win32-serialport
 Writeln(Format('DeviceID %s',[String(FWbemObject.DeviceID)]));// String
 Writeln(Format('Name %s',[String(FWbemObject.Name)]));// String
 Writeln(Format('Description %s',[String(FWbemObject.Description)]));// String
 FWbemObject:=Unassigned;
 end;
end;


begin
 try
 CoInitialize(nil);
 try
 GetWin32_SerialPortInfo;
 finally
 CoUninitialize;
 end;
 except
 on E:EOleException do
 Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
 on E:Exception do
 Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;
end.
</code></pre>
Output:
<pre><code>DeviceID COM7
Name Silicon Labs CP210x USB to UART Bridge (COM7)
Description Silicon Labs CP210x USB to UART Bridge
Press Enter to exit
</code></pre>

I'm trying to enumerate "friendly names" for COM ports. The ports may dynamically change as USB-serial devices are connected and disconnected at runtime.

Based on the possible methods described in <a href="https://stackoverflow.com/questions/1205383/listing-serial-com-ports-on-windows/3018813#3018813">this question</a>, I am attempting to use the SetupDiGetClassDevs method. 

I found <a href="http://www.delphi3000.com/articles/article_4001.asp?SK=" rel="nofollow noreferrer">this example code</a>, but it is written for an older version of the setupapi unit (the original link to homepages.borland.com doesn't work of course). 

I tried using the setupapi unit from the current JVCL(<a href="http://sourceforge.net/projects/jvcl/files/JVCL%203/JVCL%203.40/JVCL340CompleteJCL221-Build3845.zip/download" rel="nofollow noreferrer">JVCL340CompleteJCL221-Build3845</a>), but it doesn't seem to be compatible with Delphi 7. I get compiler errors: 

<pre><code>if SetupDiGetDeviceRegistryProperty(DevInfoHandle,DeviceInfoData,
 RegProperty,
 @PropertyRegDataType,
 @S1[1],RequiredSize,@RequiredSize) then begin
</code></pre>

In the call to function SetupDiGetDeviceRegistryProperty,
I get the error "Types of actual and formal parameters must be identical" on the parameters @PropertyRegDataType, and @RequiredSize.

The Delphi3000 site says the code was written in 2004 and is intended for Delphi 7, so I'm not sure why it doesn't work with Delphi 7 now, unless setupapi has changed. Is anyone familiar with the changes to setupapi that could cause these problems?

I'm testing with a simple console program. The uses statement is " windows,
 sysutils,
 classes,
 setupAPI,
 Registry;"

The main program is:

<pre><code> begin
 ComPortStringList := SetupEnumAvailableComPorts;
 for Index := 0 to ComPortStringList.Count - 1 do
 writeln(ComPortStringList[Index]);
 end;
 end.
</code></pre>

Serial port enumeration in Delphi using SetupDiGetClassDevs

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

我试图枚举COM端口的“友好名称”。当USB串行设备在运行时连接和断开时，端口可能会动态变化.基于中描述的可能方法，我尝试使用SetupDiGetClassDevs方法。我找到了，但是它是为setupapi单元的旧版本编写的(当然，homepages.borland.com的原始链接不起作用)。我尝试使用当前JVCL(...

问用SetupDiGetClassDevs实现Delphi中的串口枚举
EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问用SetupDiGetClassDevs实现Delphi中的串口枚举EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问用SetupDiGetClassDevs实现Delphi中的串口枚举
EN