4

我在线程中使用此代码（通过 Indy Onexecute 事件）。有什么问题吗 ？

function TFrmMain.ShellExecute_AndWait(FileName, Params: string): bool;
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize := SizeOf(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    exInfo.lpVerb := 'open';
    exInfo.lpParameters := PChar(Params);
    lpFile := PChar(FileName);
    nShow := SW_NORMAL;
  end;
  if ShellExecuteEx(@exInfo) then
    Ph := exInfo.hProcess
  else
  begin
    Result := true;
    exit;
  end;
  while WaitForSingleObject(exInfo.hProcess, 50) <> WAIT_OBJECT_0 do
  begin

  end;
  CloseHandle(Ph);
  Result := true;
end;
4

1 回答 1

8

MSDN有这样的建议：

因为 ShellExecuteEx 可以将执行委托给使用组件对象模型 (COM) 激活的 Shell 扩展（数据源、上下文菜单处理程序、动词实现），所以应该在调用 ShellExecuteEx 之前初始化 COM。某些 Shell 扩展需要 COM 单线程单元 (STA) 类型。在这种情况下，COM 应该被初始化，如下所示：

CoInitializeEx(NULL, COINIT_APARTMENTTHREADED | COINIT_DISABLE_OLE1DDE)

在某些情况下，ShellExecuteEx 不使用这些类型的 Shell 扩展之一，并且这些实例根本不需要初始化 COM。尽管如此，在使用此函数之前始终初始化 COM 是一种很好的做法。

（在 Delphi 中，您当然会将第一个参数替换为nil并or用于按位运算。）

Raymond Chen 最近写了一篇关于犯错的后果。具体示例是该函数可能会失败并显示Error_Access_Denied错误代码。

这是我在您的代码中看到的唯一潜在的多线程问题。以下是我阅读您的代码时发生的更多事情，尽管它们与多线程无关（甚至与 Indy 无关）。

你有一种特殊的方式来等待程序停止运行。您一次重复等待 50 毫秒，但如果该过程尚未完成，您只需要再次等待即可。Infinite通过指定超时更准确地描述您的意图。

该函数总是返回True。如果没有有用的返回值，那么你应该把它变成一个过程，这样就根本没有返回值。不要将呼叫者与无用的信息混淆。如果要将其保留为函数，则使用 Delphi 本机类型Boolean而不是 Windows 兼容类型Bool作为返回类型。

我对服务器在收到网络消息后执行用户交互程序的想法有点警惕。

请注意，当 MSDN 说您可能无法获得进程句柄时。在某些情况下，ShellExecuteEx无需创建新流程即可满足您的请求，因此您无需等待。

用户可能最终会使用该程序一段时间，而您的服务器将一直处于等待状态。我想知道它是否真的需要等待。客户端是否也要等待服务器的响应？

于 2010-11-30T04:48:46.267 回答