如何在Lazarus中为Mac执行相当于shellexecute()的操作？

uses
  Classes, SysUtils, Process, ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  ProcessInfo: TShellExecuteInfo;
  ExitCode: DWORD;
begin
  FillChar(ProcessInfo, SizeOf(ProcessInfo), 0);
  ProcessInfo.cbSize := SizeOf(TShellExecuteInfo);
  ProcessInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  ProcessInfo.Wnd := Handle;
  ProcessInfo.lpVerb := PChar('open');
  ProcessInfo.lpFile := PChar('/path/to/your/file');
  ProcessInfo.lpParameters := PChar('');
  ProcessInfo.lpDirectory := nil;
  ProcessInfo.nShow := SW_SHOW;

  if ShellExecuteEx(@ProcessInfo) then
  begin
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);
    CloseHandle(ProcessInfo.hProcess);
    ShowMessage('Process executed with exit code: ' + IntToStr(ExitCode));
  end
  else
  begin
    ShowMessage('Error executing process: ' + SysErrorMessage(GetLastError));
  end;
end;