如何获取设备的驱动程序文件？

Question

我测试了代码from here，并在后续部分

中进行了测试

begin 
  Paths := TStringList.Create(); 
  try 
    ParseInfFile(LocateInfFile(DeviceHelper.InfName), DeviceHelper.InfSection)
  ...
...

编译时...

Undeclared identifier InfName and InfSection

我如何解决这个问题？还有其他适当的变体吗？

Answer 1

DeviceHelper似乎是一个未包含在链接代码中的类或记录，但除了在您发布的行中之外，它也没有在其他任何地方使用（为了方便其他人我会提到的是在该代码的最底部）。因此，您只需将它们声明为局部变量，为InfName和InfSection指定所需的值，然后在不DeviceHelper的情况下继续：

var
  InfName, InfSection: string;
begin
  InfName := 'WhatEver.Inf';
  InfSection := 'WhatEverSection`;
  Paths := TStringList.Create(); 
  try 
    ParseInfFile(LocateInfFile(InfName), InfSection);
  ...

  // You'll need to remove these lines, too. They add the returned items
  // to a TListView using functionality that's available in Vista and above
  ListView_InsertGroup(lvAdvancedInfo.Handle, 'Driver Files', 2);
  for I := 0 to Paths.Count - 1 do
     ListView_AddItemsInGroup(lvAdvancedInfo, '', Paths[I], 2);