[Lazarus/freepascal]如何在Lazarus中为Mac执行相当于 shellexecute()的操作？
clq
浏览(519) -
2020-04-04 17:41:57 发表
编辑
关键字: lazarus
如何在Lazarus中为Mac执行相当于 shellexecute()的操作？
{这是代码来做到这一点.使用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;
NEWBT官方QQ群1: 276678893
可求档连环画,漫画;询问文本处理大师等软件使用技巧;求档softhub软件下载及使用技巧.
但不可"开车",严禁国家敏感话题,不可求档涉及版权的文档软件.
验证问题说明申请入群原因即可.
