delphi - 调用外部 WinAPI 函数

Question

我正在尝试调用 IsNativeVhdBoot 函数，但收到错误消息 The parameter is incorrect.

function IsNativeVhdBoot(var NativeVhdBoot:PBOOL):BOOL; external Kernel32 name 'IsNativeVhdBoot';

function _IsNativeVhdBoot:Boolean;
var
  pB:PBOOL;
begin
  Result := False;
  if IsNativeVhdBoot(pB) then
    Result := pB^
  else RaiseLastOSError;
end;

我也试过这样称呼它

function __IsNativeVhdBoot: Boolean;
type
  TIsNativeVhdBoot = function(
    var NativeVhdBoot: pBOOL
  ): BOOL; stdcall;
var
  bNativeVhdBoot: pBOOL;
  NativeVhdBoot : TIsNativeVhdBoot;
begin
  Result := False;
  NativeVhdBoot := GetProcAddress(GetModuleHandle(kernel32), 'IsNativeVhdBoot');
  if (@NativeVhdBoot <> nil) then
  begin
    if not NativeVhdBoot(bNativeVhdBoot) then
      RaiseLastOSError;
    Result := bNativeVhdBoot^;
  end
  else
    RaiseLastOSError;
end;

我的问题是

1. 我在调用上述函数时做错了什么。
2. 调用 delphi中的extranl WinAPI调用它function Foo():BOOL; external Kernel32 name 'Foo';和type TFoo = function(): BOOL; stdcall;有什么区别

因为我通常像第一种方法一样进行调用，但是当我收到上述错误消息时，我搜索了如何调用外部函数并找到了另一种方法。

更新

在 C++ 中测试了相同的函数，我得到了同样的错误，我的代码如下

#include "stdafx.h"
#include "Windows.h"

int _tmain(int argc, _TCHAR* argv[])
{
    BOOL Result = false;
    SetLastError(0);
    if (IsNativeVhdBoot(&Result)) {
        if (Result) {
            printf_s("Running inside VHD\n");
        }
        else
            printf_s("Running inside physical disk drive\n");
    }
    else
        printf("IsNativeVhdBoot failed with error %d.\n", GetLastError());
    return 0;
}

Answer 1

在您的第一次尝试中，您的调用约定不匹配，您链接的文档将其声明为“stdcall”。然而，从 cmets 到问题和这个答案，这似乎不是你得到“参数不正确”错误的原因。该调用似乎在所有情况下都设置了此错误。

在这两种尝试中，您的参数都有一个额外的间接级别。文档指出 API 需要一个 BOOL 变量的地址。参数的解释实际上与文档中的声明不一致，该声明建议指向指向 BOOL 的指针。但是，“winbase.h”中的实际声明与文档中的声明不同，并且符合措辞：

WINBASEAPI
BOOL
WINAPI
IsNativeVhdBoot (
    _Out_ PBOOL NativeVhdBoot
    );

所以参数是“var BOOL”或“PBOOL”，而不是“var PBOOL”。如果您使用“PBOOL”，则必须传递现有 BOOL 变量的地址，而不是像第一个 sn-p 中那样不指向任何地方的指针。

此时应该注意，这实际上并不重要，因为 API 似乎没有设置 'out' 参数。这可能有些意料之中，因为文档令人困惑，因为它声明结果将被设置为参数，并将作为函数结果返回。这是不寻常的......

请注意，函数的返回值并不表示函数失败或成功 - 根据文档。这本身是不一致的，因为文档还建议调用GetLastError，通常GetLastError 仅在函数失败时调用，在这里我们无法在调用它之前知道它是否失败。无论如何，这意味着您必须删除在错误返回时引发异常的语句。

对于第二个问题，您的第一个声明静态加载库，第二个 sn-p 动态加载库。有关详细信息，请参阅documentation。如上所述，您还有一个额外的区别，即第一个具有寄存器调用约定，但这种区别并不意味着存在。