Am 30.10.2022 um 19:42 schrieb Bo Berglund via lazarus
When I am at it:
Is there a way on Windows to enumerate the existing serial ports so I can put a
selector list on the form?
I have the following code in one of my projects (Windows-only). It
creates a comma-separated list to assigned to a ComboBox.Items.CommaText
function GetSerialPortNames: string;
var
reg: TRegistry;
l, v: TStringList;
n: integer;
begin
l := TStringList.Create;
v := TStringList.Create;
reg := TRegistry.Create;
try
reg.Access := KEY_READ;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', false);
reg.GetValueNames(l);
for n := 0 to l.Count - 1 do
v.Add(PChar(reg.ReadString(l[n])));
Result := v.CommaText;
finally
reg.Free;
l.Free;
v.Free;
end;
end;
--
_______________________________________________
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
