delphi - 如何 ShellExecute 一个程序，然后发送它的命令行文本

Question

我可以用 ShellExec 打开一个外部程序

 ret := ShellExecute(handle, 'open', PChar(filename), nil, nil, SW_NORMAL);

但后来我想向它发送如下命令：

msg := 'open ftp://MyUser:MyPass@www.website.com';

这可能吗？

Answer 1

我猜这是可能的，但这不是最好的方法。最好的方法是使用CreateProcess. 这是一个更复杂的 API，但它会使您尝试的操作更简单。

程序是这样的：

1. 创建一个或两个管道。您需要一个作为孩子的标准输入。如果你想捕获它的输出，你需要另一个。
2. 调用CreateProcess创建孩子。将第一个管道的读取端附加到子标准输入。将第二个管道的写入端附加到子标准输出。
3. 当您希望发送命令时，请写入第一个管道。当您希望读取输出时，请从第二个管道读取。

如果您不熟悉此类编码，这可能会令人生畏。您可能会很好地找到一个使它变得容易的库。

这篇 MSDN 文章演示了如何：

创建具有重定向输入和输出的子进程

由于您似乎想要进行 FTP，因此最好避免使用外部进程。使用诸如 Indy 之类的库。