delphi导入具有指定入口点的dll函数

Question

我如何在Delphi中定义这个函数？我只知道导入没有入口点，找不到任何有用的例子:(

这是用C#编写的，

[DllImport("dwmapi.dll", EntryPoint = "#131")]
static extern int DwmpSetColorizationParameters(ref DwmColorParams dcpParams, 
bool alwaysTrue);

非常感谢，

最诚挚的问候

Answer 1

这应该可以，尽管我不确定 alwaysTrue 的 const 。

function DwmpSetColorizationParameters(var dcpParams: TDwmColorParams; 
  alwaysTrue: BOOL): Integer; stdcall; 
  external 'dwmapi.dll' index 131;

Answer 2

EntryPoint 字段允许使用 DLL 用于导出它的名称以外的名称来声明该函数。如果该值的第一个字符是#，那么它表示函数的序数值，而不是它的 DLL 名称。

Delphi 使用两个不同的子句。如果 DLL 使用的名称与代码中的名称不同，则可以使用 name 子句：

procedure Foo(...); external DLL name 'Bar';

但如果 DLL 根本不导出任何名称，则可以使用 index 子句来告诉函数具有哪个序数值：

procedure Foo(...); external DLL index 131;