如何避免 RUN 命令出现黑屏答案

【问题标题】：how to avoid blank screen on RUN command如何避免 RUN 命令出现黑屏
【发布时间】：2017-02-26 10:52:39
【问题描述】：

Visula FoxPro 9 应用程序运行应用程序并等待使用命令完成

运行 openssl.exe ... 参数

多次。这会导致难看的空白屏幕闪烁。

如何去除黑屏闪现？如何运行应用程序最小化？哪个是 RUN 命令的确切替换？可以使用 shellexecute 或 Ed Rauh API_APIRun 类还是有其他简单的解决方案？

【问题讨论】：

最好使用CreateProcess("path\openssl.exe", parameters,...) 和CREATE_NO_WINDOW 标志
在哪里可以找到示例 VFP 代码？如何等待进程终止？ RUN /N7 最小化运行但不等待进程完成
如果你想等待进程终止调用WaitForSingleObject(pi.hProcess, INFINITE) where PROCESS_INFORMATION pi; after and only if CreateProcess(.., &pi); return true
在哪里可以找到 VFP 中实现此功能的示例代码？如何将 pi 返回到 VFP 代码？
谷歌也许 ??

【解决方案1】：

我已故伟大的 Ed Rauh 使用 API_APPRUN。

以下是基本用法。我使用 Ed 的代码创建了一个可视类库 (VCX)。然后，我将课程放在名为“apprun”的 vfp 表单上。

lcCmdLine = "openssl.exe  ... parameters"
thisform.apprun.init(lcCmdLine)
thisform.apprun.LaunchAppAndWait()

API_APPRUN 是干净的，应该可以按预期工作。

【讨论】：