Delphi：CreateProcess + WaitForSingleObjects + DDE = 15 秒延迟答案

【问题标题】：Delphi: CreateProcess + WaitForSingleObjects + DDE = 15 second delayDelphi：CreateProcess + WaitForSingleObjects + DDE = 15 秒延迟
【发布时间】：2013-02-26 05:59:55
【问题描述】：

我遇到了有趣的问题。

我有一个从 DDE 服务器读取一些值的 DDE 客户端。当我从 Delphi 启动这个客户端，或者在 exe 上使用 dblclick 时，结果立即出现。

但是：当我从 Indy TCPServer 的线程或主应用程序启动它时，我得到了 15 秒的延迟。

我使用这段代码来启动子进程：

function StartAndWaitProcess
  (CmdLine : string='';
  CmdShow : integer = SW_SHOW;
  TimeOut : longint = -1) : Int64;
var
  SInfo: TStartupInfo;
  PInfo: TProcessInformation;
  ExitCode : Cardinal;
begin
    Result := -1;
    FillChar(SInfo,SizeOf(TSTartupInfo),0);
    with SInfo do begin
        cb := sizeof(TStartupInfo);
        dwFlags := STARTF_USESHOWWINDOW;
        wShowWindow := CmdShow;
    end;
    if not CreateProcess(nil, PChar(CmdLine),nil,nil,False,
        NORMAL_PRIORITY_CLASS,nil,nil,SInfo,PInfo) then Exit;
    if TimeOut > 0 then begin
        if WaitForSingleObject(PInfo.hProcess, TimeOut) <> WAIT_OBJECT_0 then begin
            TerminateProcess(PInfo.hProcess, 0);
            Exit;
        end
    end else begin
        WaitForSingleObject(PInfo.hProcess, INFINITE);
    end;
    GetExitCodeProcess(PInfo.hProcess, ExitCode);
    Result := ExitCode;
end;

对我来说有什么奇怪的？

如果我不等待结束，那么子进程运行的性能与我从普通应用程序运行时相同，所以我立即得到结果，窗口很快消失。

但是，如果我等待主服务器的客户端结束，我会延迟 15 秒。

我记录了客户端过程的时间，这个 dde 过程通过了 15 秒....

Delphi: DDE call from Indy TCPServer Thread

所以我不明白为什么 WaitForS 在调用 ddelcient.exe 时会导致速度问题？

master 的 WaitForS 如何减慢子进程的 dde 调用速度？

你对这个问题有什么想法吗？感谢您提供任何信息、链接、建议！

【问题讨论】：

标签： delphi subprocess wait dde

【解决方案1】：

DDE 对窗口消息进行操作。如果调用线程接收到任何 DDE 消息（例如来自已启动进程的消息）但不处理它们，则调用 WaitForSingleObject() 可以在整个系统中阻塞 DDE。因此，您的 15 秒延迟很可能是由于您的线程意外阻塞了 DDE 操作，直到它在另一端超时。

你有几个选择：

让您的线程调用OleInitialize()，它会默默地为您处理 DDE 问题。
让您的等待代码使用MsgWaitForMultipleObjects() 而不是WaitForSingleObject()，这样您就可以在等待时发送任何收到的消息。
使用ShellExecuteEx()而不是CreateProcess()，指定SEE_MASK_NOASYNC标志，这样操作系统就知道调用线程没有消息循环来处理DDE消息。

【讨论】：