如何在Delphi中运行命令行程序？

发布时间：2020-12-15 10:18:25 所属栏目：大数据来源：网络整理

导读：我需要从Delphi软件执行Windows“find”命令。我试图使用ShellExecute命令，但它似乎不起作用。在C中，我将使用系统过程，但在这里…我不知道。我想做这样的事情： System('find "320" in.txt out.txt'); 编辑：感谢您的回答:) 我试图运行“查找”作为可执行

我需要从Delphi软件执行Windows“find”命令。我试图使用ShellExecute命令，但它似乎不起作用。在C中，我将使用系统过程，但在这里…我不知道。我想做这样的事情：

System('find "320" in.txt > out.txt');

编辑：感谢您的回答:)
我试图运行“查找”作为可执行文件，而不是cmd.exe的参数。

解决方法

使用ShellExecute()的示例：

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0,nil,'cmd.exe','/C find "320" in.txt > out.txt',SW_HIDE);
  Sleep(1000);
  Memo1.Lines.LoadFromFile('out.txt');
end;

请注意，使用CreateProcess()而不是ShellExecute()允许更好地控制进程。

理想情况下，您也可以在辅助线程中调用它，并在进程句柄上调用WaitForSingleObject()等待进程完成。示例中的Sleep()只是为了等待一段时间，ShellExecute()启动的程序完成 – ShellExecute()将不会这样做。如果你不能简单地打开一个用于编辑文件的记事本实例，ShellExecute()将阻止你的父应用程序，直到编辑器关闭。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!