I want to list USB VIDs from the registry, and I wrote the following Delphi code:
procedure FindUSBvids(VIDs: TStrings);
Reg1 := TRegistry.Create;
Reg1.RootKey := HKEY_LOCAL_MACHINE;
procedure TForm1.Button6Click(Sender: TObject);
Unfortunately the Memo remains empty. I triple-checked the key, it exists and has a couple dozen subkeys. What am I doing wrong?
(Note: I'm not sure this is the right way to find USB VIDs, but that's not the point. It's just that I'm puzzled why the code doesn't produce any result.)