delphi - 如何在 Mac 上的 Lazarus 中执行与 shellexecute() 等效的操作？

Question

如何在 Mac 版 Lazarus 中执行与 shellexecute() 等效的操作？

Answer 1

{ 这是执行此操作的代码。使用 TProcess 对象! }

uses Process;

...

procedure DoProcess;
Var
  Proc : TProcess;

Begin
  Proc := TProcess.Create(nil);
  try
    Proc.CommandLine := '/Applications/MyApp.app';

    PRoc.Options := Proc.Options + [poWaitOnExit];
    Proc.CommandLine := Proc.CommandLine + ' -someparam';
    PRoc.Execute;
  finally
    Proc.free;
  end;  
End;