我需要从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()将阻止你的父应用程序，直到编辑器关闭。