为什么 TextEdit 在 Mac OS X 终端上通过 FreePascal TProcess 启动后拒绝文档的权限？

Question

我正在尝试使用 TProcess 启动 TextEdit，并为其提供一个刚刚由调用程序编写并关闭的文本文件，该调用程序是终端上调用的命令行程序。

我第一次运行它时（见下面的摘录），它可以工作。这种情况是在计算机重新启动后尚未使用 TextEdit 的情况。

在那之后的每一次后续试验中，在之前使用过 TextEdit 之后，TextEdit 都会重新显示一条模态错误消息：

"The document “DocName.PRN” could not be opened. You don’t have permission."

但是使用 GetInfo 我发现权限完全正常，并且使用 TextEdit '手动'打开文件并不困难。

因为 TextEdit 会启动并找到文档，所以我怀疑启动本身有什么问题。我确实尝试过同步启动，但这并没有改变 TextEdit 的权限消息，但确实需要我强制退出 TextEdit，之后调用程序将挂起（无法终止但什么也不做）。

有人知道这里发生了什么，以及如何解决它吗？

...
    procedure launch (prm :array of string; syn :LaunchSyncType);
    var
        X   :integer;
        Proc: TProcess;
    begin
        Proc := TProcess.Create(nil);
        with Proc do begin
            try
                Executable:= prm[0];    {exe;}
                for X := 1 to high(prm) do
                    Parameters.Add(prm[X]);
                InheritHandles := False;
                for X := 1 to GetEnvironmentVariableCount do
                    Environment.Add(GetEnvironmentString(X));
                ShowWindow := swoShow; {used by Windows only}
                if syn = Synchronous then
                    Options := Options + [poWaitOnExit]
                else begin   {asynchronous}
                    Options := [];
                end;
                Execute;
            finally
                Free;
            end;
        end;
    end;
...
    launch( ['/Applications/TextEdit.app/Contents/MacOS/TextEdit',
            '/Users/lor/LorDev/LOR/DocName.PRN'],
            Asynchronous );

Answer 1

@Ken Research 根据您关于启动服务的建议，说服我 FreePascal 提供的 TProcess 类将 TextEdit 作为新实例启动，而不是使用现有实例（如果有的话）。这会产生有问题的单独休眠进程和权限违规。这种方法可能在某种程度上适用于 TProcess 尝试跨平台兼容性的 Windows 环境。当前形式的类不提供控制此行为的选项。因此，让 TProcess 启动 TextEdit 不适合我在 OS X 上的项目。或者，使用带有选项 -e（强制 TextEdit）的 Open 命令是解决我的问题的快速简便的方法。谢谢你给我的方向。

我的启动代码现在如下所示：

launch( ['/usr/bin/open', '-e',
        '/Users/lor/LorDev/LOR/'+DocName+'.PRN'],
        Asynchronous );