1

解决了

我正在使用 delphi 2009。我的程序会监听 USB 驱动器的连接和移除。在过去的一年里，我在 10 个应用程序中使用了非常相似的代码。它一直很完美。当我迁移时，我不得不放弃使用 thddinfo 来获取驱动器型号。这已被 WMI 取代。WMI 查询需要物理磁盘号，而我恰好在应用程序中已经有一个功能可以做到这一点。

当我测试时，我将它放在一个按钮中并运行它，它成功确定 psp 是物理驱动器 4 并返回模型（全部在调试器中检查，在另一个示例中使用显示消息）：

function IsPSP(Drive: String):Boolean;
var
Model: String;
DriveNum: Byte;
begin
  Result := False;
  Delete(Drive, 2, MaxInt);
  DriveNum := GetPhysicalDiskNumber(Drive[1]);
  Model := (MagWmiGetDiskModel(DriveNum));
  if Pos('PSP',Model) > 0 then Result := True;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var DriveNum: Byte;
begin
  IsPSP('I');
end;

它工作得很好，直到我允许我使用了一年的 WMDeviceChange 调用 getphysicaldisknumber 和 wmi 查询语句。我自己试过了，它们都是一个问题。GetPhysicalDiskNumber 在逻辑磁盘上执行 CloseHandle 时冻结非常糟糕，但最终确实返回了数字。WMI 查询失败且没有错误，只是将“调试器点”返回到从未发生连接的 wbemscripting_tlb 中。请记住，一年中唯一改变的是我调用什么来获取我正在使用 api 调用的模型，而现在我正在使用其他东西。

以下是此时涉及的其余代码，没有上面显示的 ispsp：

procedure TfrmMain.WMDeviceChange(var Msg: TMessage);
var Drive: String;
begin
  case Msg.wParam of
    DBT_DeviceArrival: if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
      begin
        Drive := GetDrive(PDevBroadcastVolume(Msg.lParam)) + '\';
        OnDeviceInsert(Drive);
      end;
    DBT_DeviceRemoveComplete: if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
      begin
        Drive := GetDrive(PDevBroadcastVolume(Msg.lParam)) + '\';
        OnDeviceRemove(Drive);
      end;
  end;
end;

Procedure TfrmMain.OnDeviceInsert(Drive: String);
var PreviousIndex: Integer;
begin
  if (getdrivetype(Pchar(Drive))=DRIVE_REMOVABLE) then
  begin
    PreviousIndex := cbxDriveList.Items.IndexOf(cbxDriveList.Text);
    cbxDriveList.Items.Append(Drive);
    if PreviousIndex = -1 then //If there was no drive to begin with then set index to 0
    begin
      PreviousIndex := 0;
      cbxDriveList.ItemIndex := 0;
    end;
    if isPSP(Drive) then
    begin
      if MessageDlg('A PSP was detect @ ' + Drive + #10#13 + 'Would you like to select this drive?',mtWarning,[mbYes,mbNo], 0) = mrYes then
      cbxDriveList.ItemIndex := cbxDriveList.Items.IndexOf(Drive)
      else cbxDriveList.ItemIndex := PreviousIndex;
    end
    else if MessageDlg('USB Drive ' + Drive + ' Detected' + #10#13 + 'Is this your target drive?',mtWarning,[mbYes,mbNo], 0) = mrYes then
        cbxDriveList.ItemIndex := cbxDriveList.Items.IndexOf(Drive)
    else cbxDriveList.ItemIndex := PreviousIndex;
  end;
end;

Procedure TfrmMain.OnDeviceRemove(Drive: String);
begin
  if not (getdrivetype(Pchar(Drive)) = DRIVE_CDROM) then
  begin
    if cbxDriveList.Text = (Drive) then ShowMessage('The selected drive (' + Drive + ') has been removed');
    cbxDriveList.Items.Delete(cbxDriveList.Items.IndexOf(Drive));
    if cbxDriveList.Text = '' then cbxDriveList.ItemIndex := 0;
    if Drive = PSPDrive then //Check Detect PSP and remove reference if its been removed
    begin
      PSPDrive := '';
    end;
  end;
end;

Rob 在下面说了一些关于我没有调用继承的消息处理程序的内容，我阅读了文档，我看到了一些我可以返回的东西......但我不确定我是否理解，但我会调查它。我不是一个非常好的 Pascal 程序员，但我学到了很多东西。到 2009 年的过渡也有一些困难。

USB 驱动器检测和所有这些都可以完美运行。如果我从 is psp 中删除这两个东西，那么用户会立即用 wis this yourwhat 向用户致意，并将 I:\ 添加到列表中。它只是在应用程序中发生变化的两个新事物在被 wmdevicechange 调用时失败，并且正如在它们自己工作之前所说的那样。

编辑 - 已解决

好吧，我按照建议使用计时器，问题似乎已经解决。需要注意的是，在 wmdevicechange 获取物理磁盘号后不久被计时器调用时，它似乎仍然很慢。我将此归因于仍连接到系统的设备。

在那张纸条上，我经常使用 P2 450。我将 PSP 和应用程序连接到一台 1.8Ghz 双核笔记本电脑，程序检测到 psp 并很快通知用户。因此，除非在非常慢的计算机上，否则该应用程序不会冻结，并且在这种缓慢的 onw 上它只会持续几秒钟，并且不会影响程序的运行，尽管不是很酷。但我觉得所有现代计算机都会快速运行检测，特别是因为它们可以更快地连接设备。

4

2 回答 2

2

您尚未在代码中指出“语句 1”是什么。

我对部分代码有一些评论，这些评论可能与您遇到的问题有关，也可能无关。

DriveNum首先，您为in分配了一个值IsPSP，但您不使用它。编译器应该对此发出提示；不要忽视提示和警告。您还将幻数 4 传递给MagWmiGetDiskModel; 那应该是DriveNum吗？

您没有调用继承的消息处理程序，也没有在消息处理程序中返回结果。该文档告诉您应该返回哪些值。要从 Delphi 消息处理程序返回一个值，请为该Msg.Result字段分配一个值。对于您的消息处理程序无法处理的情况，请确保您调用inherited，以便链上的下一个处理程序可以处理它们。如果没有 next 处理程序，那么 Delphi 将调用DefWindowProc以获取操作系统的默认行为。

您说明的更改称为重构，它不会影响您的代码运行方式。但是，它使代码更易于阅读，因此请保留第二个版本。至于发现问题，我最好的建议是使用调试器来逐步执行代码，以识别出现问题的地方以及运行速度比您想要的慢的部分。您还可以尝试删除部分代码，以确认其他部分单独工作是否正常。

于 2009-03-14T16:21:56.220 回答
2

您查询的信息可能仅在WMDeviceChange 消息处理程序运行后才可用。如果从按钮调用时相同的代码有效，请尝试以下操作：

  1. 将您的 WMDeviceChange 处理程序代码重构为一个或多个单独的方法。
  2. 在 WMDeviceChange 处理程序中，激活一个预先创建的计时器并让它在一秒钟后触发，或者类似的东西。
  3. 从计时器处理程序代码中调用以前的 WMDeviceChange 处理程序代码。
于 2009-03-14T16:53:41.527 回答