如何在Delphi中导入接口？

Question

我想从Windows库获取文件夹路径（例如：Libraries \ Documents）。我发现它需要使用IShellLibrary接口，但在ShlObj（Delphi 2009 x64 win7）中找不到声明。我想知道如何将此接口导入我的代码？

Answer 1

如果您不能使用包含此接口的现代Delphi，则需要从Windows头文件转换接口（在这种情况下）Shobjidl.h。在Delphi中，它是这样开始的：

IShellLibrary = interface(IUnknown) 
  ['{11A66EFA-382E-451A-9234-1E0E12EF3085}']
  ....
end;

可以在头文件中找到GUID。然后，您需要添加功能。必须按照与头文件中声明的顺序相同的顺序添加它们。这些函数都应声明为stdcall。

我不想从XE3源发布整个接口声明，因为我认为这是侵犯版权的行为。

也许，如果您搜索困难，您可能会在网上某个地方找到此代码。实际上，我只是找到了它：http : //mustangpeakcommonlib.googlecode.com/svn-history/r12/trunk/Source/MPShellTypes.pas