WinAPI - GetLastError 在通过 COM ATL DLL 调用时始终返回 0

Question

在我的Windows API包装器ATL dll中，我已经向COM公开了GetLastError以进行Windows API错误处理。

它的实现方式如下：

STDMETHODIMP CWinAPI::WinAPI_GetLastError(int *Result) {
*Result = (int)GetLastError();
return S_OK;
}

当我从 VBScript 使用它时，如下所示：

Dim WINAPI: Set WINAPI = WScript.CreateObject("WinAPIWrapperLib.WINAPI")
WINAPI.WinAPI_ShellExecute NULL, "", "NonExistentFile.exe", "", "", 1
WScript.Echo CStr(WINAPI.WinAPI_GetLastError)

这必须生成ERROR_FILE_NOT_FOUND错误，但是当我通过 VBScript 从包装器 dll 调用此 windows API 函数时，它总是返回ERROR_SUCCESS。

但是当我在实现中添加以下行时WinAPI_ShellExecute如下所示：

DWORD ErrorMessageID = ::GetLastError();
wchar_t ErrorID[1024];
swprintf_s(ErrorID, 1024, L"%d", ErrorMessageID);
MessageBox(nullptr, (LPCWSTR)&ErrorID, L"GetLastError", MB_OK | MB_ICONERROR | MB_DEFBUTTON1);

它正确生成错误ERROR_FILE_NOT_FOUND。

我想知道GetLastError出了什么问题.

提前谢谢。

Answer 1

备注

调用线程执行的函数通过调用 SetLastError 函数。您应该调用 GetLastError 函数 当函数的返回值指示此类调用时立即 将返回有用的数据。这是因为某些函数调用 SetLastError 成功时为零，擦除错误代码 由最近失败的函数设置。

问题是：您无法保证GetLastError在ShellExecute之后立即调用。该调用之间发生了很多事情 - COM 封送、VBScript 调用等，这肯定会影响线程最后一个错误标志。事实上，你不应该在 VBScript 中使用GetLastError：

Visual Basic：应用程序应该调用 err。上一个Dll错误而不是 获取最后错误。