在 TWndMethod 中获取 WPARAM 返回 4 个字节

Question

我在编写的类中使用 AllocateHWnd 来通过 TWndMethod 接收系统消息，并且我接收的消息需要处理 4 字节 WPARAM，它专门引用一个指针。但我只得到 2 个字节的回报。我该如何设置才能在课堂上正确接收这些消息？

编辑：具体代码。我正在根据我下载的 Microsoft 示例使用 SHChangeNotifyRegister 设置消息事件。该过程足以拉回我可以购买的事件（在 lEvent 中），但 Microsoft 使用的代码将 WParam 定义为 Thandle，将 LParam 定义为 DWord。我遇到的具体问题是，当函数 IsItemNotificationEvent 为 true 时，SHGetPathFromIDList 会 AVing 或拉回垃圾。我一直在查看这个问题，除了我在文档中指出的 WParam 是一个 Word（可能是旧的）以及我在代码中放入的 GetLastError 返回“句柄无效”之外，我并没有真正看到任何问题。

function IsItemNotificationevent(lEvent: Longint): boolean;
  var
    flagval: Longint;
  begin
    flagval := (lEvent and (SCHNE_UPDATEIMAGE or SHCNE_ASSOCCHANGED
            or SHCNE_EXTENDED_EVENT or SHCNE_FREESPACE
            or SHCNE_DRIVEADDGUI or SHCNE_SERVERDISCONNECT));
    Result := (flagval > 0);
  end;

procedure TShellNotifyHandler.WindowProc(Var msg: TMessage);
  var
    hNotifyLock: THandle;
    lEvent: Longint;
    pgpidl: PitemIDList;
    psi1: array[1..MAX_PATH] of Char;
  begin
    if Msg.Msg = FShellMsg then
      begin
        hNotifyLock := SHChangeNotification_Lock(THandle(Msg.WParam),DWord(Msg.LParam),
                 pgpidl, lEvent);
        writeln(SysErrorMessage(GetLastError));
        if (hNotifyLock > 0) then              
          begin
            if IsItemNotificationEvent(lEvent) then 
  // this limits events for this to what Microsoft defined in their example
               begin
                 if (pgpidl <> nil) then
                   SHGetPathFromIDList(pgpidl, @psi1);
                 Writeln('Path #1: ', String(psi1));
               end;
            SHChangeNotification_Unlock(hNotifyLock);
          end;
        if Assigned(FOnShellNotify) then
          FOnShellNotify(Self, LEvent);
      end
   else
      FWndProc(Msg);
  end;

Answer 1

我认为这段代码的主要错误是，我只真正研究了对 的调用SHChangeNotification_Lock，就是你无条件调用GetLastError。

该 API 函数的文档不充分，因为它没有指定如何发出错误信号。但是，我强烈希望返回 NULL 的函数能够发出错误信号。由于文档没有提及任何有关调用 GetLastError 的内容，因此 API 函数完全有可能没有设置最后一个错误值。无论如何，即使您可以确定可以调用 GetLastError，您也应该只在失败后才这样做，即。如果对 SHChangeNotification_Lock 的调用返回 NULL。如果您在成功的 API 调用后调用 GetLastError，您将获得最近失败的 API 调用的错误代码，该错误代码与当前调用无关。

最重要的是，我确信 WParam 携带了全部 4 个字节，并且您的问题不在于该过程的这一部分。

---

所有这一切的结果是我坚信 SHChangeNotification_Lock 会成功，但对 SHGetPathFromIDList 的调用失败。您不检查返回值。我敢打赌它会返回FALSE。

查看这两个函数的 C++ 声明。

SHChangeNotification_Lock 返回这样输入的参数中的 ID 列表：

PIDLIST_ABSOLUTE **pppidl

SHGetPathFromIDList 在这样输入的参数中接收 ID 列表：

PCIDLIST_ABSOLUTE pidl

我不知道您的 声明是什么SHChangeNotification_Lock 看起来像，但我的 Delphi (XE2) 版本中提供的看起来完全错误。它的参数声明如下：

out pppidl: array of PItemIDList

老实说，我看不出 Windows API 函数如何返回 Delphi 开放数组作为输出参数。我认为应该这样声明：

out pppidl: PPItemIDList

并且您可能需要将 PPItemIDList 声明为 ^PItemIDList。

现在，pppidl 是一个数组。它指向 PItemIDList 数组的第一个元素。因此，您可以通过调用以下命令来获取第一个元素的路径：

SHGetPathFromIDList(pppidl^, @psi1);

我相信，这是您遇到的真正问题。

---

最后我不明白为什么你要使用 hNotifyLock > 测试是否成功0 。正确的测试是hNotifyLock <> 0 。现在，我知道一些 Delphi 类型在最近的版本中发生了变化，但是如果 THandle 是您的 Delphi 版本中的有符号值，那么您的代码将是错误的。无论如何，正确的逻辑测试是<>0。

Answer 2

好的，我得到了这个答案。实际上，整个板上有很多问题：

1）当涉及到 IsItemNotificationEvent 时，我出了问题。为了拥有有效的 PIDL，我需要确保该事件不是其中之一，因为没有 PIDL 可以有效地处理这些事件。

if IsItemNotificationEvent(lEvent) then 

2) 在 SHChangeNotification_Lock 的定义中需要“out”，而不是“var”或简单的指针引用。我没有任何内容表明“out”具体的作用，所以如果有人可以提供帮助，请帮忙。固定定义如下。

function SHChangeNotification_Lock(hChangeNotification: THandle; dwProcessID: DWord;
     out pppidl: PSHNotifyStruct; out plEvent: Longint): THandle; stdcall;

3）在我的文档（包括源示例）中，它表明某些事件类型可能有多个pidl。这使得质量控制报告中建议的更正无效。使用原始定义的问题可能是如建议的那样。这不太正确。参考上面的定义，您会看到不同的类型。该定义如下。没有事件有超过两个参数，所以这就足够了。

TSHNotifyStruct = packed record
  dw1: PItemIDList;
  dw2: PItemIDList;
end;
PSHNotifyStruct = ^TSHNotifyStruct;

现在它按照我的预期工作了。我只需要找到两个 parm 事件的有效列表并编写代码以使其更清晰（即，如果已知无效，则不引用第二个pitemid）。下面是我的测试程序的一些输出示例来说明：

 Event received: $00001000 Parm 1: (C:) Local Disk  // update directory
 Event received: $00000008 Parm 1: ChangeNotifyWatcher // make directory
 Event received: $00000002 Parm 1: ChangeNotifyWatcher // create file
 Event received: $00000010 Parm 1: ChangeNotifyWatcher Parm 2: RECYCLER // remove directory

感谢大家的帮助！