3

我最近有一位客户报告我的应用程序和 NVidia nView 桌面管理器存在问题。基本上，在监视器之间移动应用程序时，nView 似乎“取消隐藏”隐藏的辅助表单。我正在使用 Delphi 2010 进行测试。仅使用 IDE 也可以看到问题（显示非停靠窗口，关闭它，然后选择将 Delphi IDE 发送到不同的监视器。）以前隐藏的表单处于无响应状态状态，不能关闭。

重现：

. 使用带有 NVidia nView 桌面管理器的多显示器系统。
. 使用关闭时隐藏的辅助窗体启动任何 Delphi 应用程序。
. 显示或 ShowModal 表单，然后关闭它（表单需要至少显示一次）。
. 选择将应用程序发送到不同的监视器。（通过热键或标题图标）
。应用程序将移动到另一个监视器，并且任何隐藏的表单都将可见。

有没有其他人看到这个问题？我已经使用旧版本的 nView 对其进行了验证，但是使用最新版本的客户在尝试移动主窗体或调整其大小时会遇到问题。不幸的是，我的笔记本电脑无法更新到最新版本，因此我无法轻松对其进行测试。

感谢您的任何意见或建议！

-标记

4

1 回答 1

1

我有同样的问题。Delphi 应用程序在没有任何明显原因的情况下停止响应。查看来自 madExcept 的堆栈跟踪，我可以看到应用程序在 nview.dll 中冻结。我发现的唯一“解决方案”是查找 nView 并建议用户使用以下代码将其关闭：

function CheckForNview: Boolean;

  function IsNviewModuleRunning(AHandle: THandle; AProcessId: DWord): Boolean;
  var
    AModuleEntry: TModuleEntry32;
  begin
    AModuleEntry.dwSize := SizeOf(AModuleEntry);
    AModuleEntry.th32ProcessID := AProcessId;
    Result := False;

    if Module32First(AHandle, AModuleEntry) then
    begin
      if SameStr(AModuleEntry.szModule, 'nview.dll') then
        Result := True;
      while Module32Next(AHandle, AModuleEntry) do
      begin
        if SameStr(AModuleEntry.szModule, 'nview.dll') then
          Result := True;
      end;
    end;
  end;

var
  AHandle: THandle;
  AProcessEntry: TProcessEntry32;
begin
  Result := False;
  AHandle := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if Process32First(AHandle, AProcessEntry) then
  begin
    if SameStr(AProcessEntry.szExeFile, ExtractFileName(ParamStr(0))) then
      Result := Result or IsNviewModuleRunning(AHandle, AProcessEntry.th32ProcessID);
    while Process32Next(AHandle, AProcessEntry) do
    begin
      if SameStr(AProcessEntry.szExeFile, ExtractFileName(ParamStr(0))) then
        Result := Result or IsNviewModuleRunning(AHandle, AProcessEntry.th32ProcessID);
    end;
  end;
于 2009-11-17T13:39:20.487 回答