Question

如何使用Free Pascal / Lazarus（使用Windows）运行外部应用程序？我找到了“官方” reference page，其中包含一些实现和示例。尽管我确定它可以为许多人所用，但以我目前的知识水平，我还是有些失落（我还没有使用Free Pascal进行很多例行编程，而且我在网络上发现的其他示例也不适用于我）。

是否有一个“清晰”的示例可以帮助我完成“第一步”？谢谢。

Answer 1

如果您不需要管道，则可以使用执行过程。

uses sysutils;
begin
  executeprocess('notepad.exe',['document.txt']);
end.

Answer 2

这是一个使用(source)的有效示例TProcess：

uses Process;
var
  RunProgram: TProcess;
begin
  RunProgram := TProcess.Create(nil);
  RunProgram.CommandLine := ‘Path and Name of Program’;
  RunProgram.Execute;
  RunProgram.Free;
end;

例如，这将打开应用程序“ MS Notepad”：

uses Process;
var
  RunProgram: TProcess;
begin
  RunProgram := TProcess.Create(nil);
  RunProgram.CommandLine := ‘notepad.exe’;
  RunProgram.Execute;
  RunProgram.Free;
end;

如何使用Free Pascal / Lazarus运行外部应用程序？

2 个答案: