应用程序无法在启动时访问文件

Question

我正在做一个应用程序（XE6，Firemonkey）来同步共享文件夹和计算机之间的文件。 此应用程序每隔x个小时检查一次是否有新文件要同步，并在Windows启动时启动。

我可以做所有事情，我的应用程序可以在启动时启动，并且只要我是启动它的人，它就可以进行同步。 该应用程序自动启动后，它给我一个异常“ EINOUTERROR”-文件访问被拒绝。 启动应用程序时，它会读取一个小的.txt文件以进行自我设置（共享文件夹位置，同步速率等），我的猜测是，由于启动应用程序的Windows会在没有特权的情况下运行该文件，因此，即使将.txt权限更改为对所有人的完全控制权会产生相同的错误。

文件打开代码：

 AssignFile(myFile,'Dados.txt');

    if FileExists('Dados.txt') then
        Append(myFile)
    else
        Rewrite(myFile);

   FileMode := fmOpenRead;
   Reset(myFile);

将应用程序放置在启动程序中的代码：

procedure TSyncM.RunOnStartup(const sCmdLine: string; bRunOnce: boolean; Remove: Boolean) ;
var   sKey: string;
Section: string;
const   ApplicationTitle = 'GEN4Sync';
begin
      if (bRunOnce) then
          sKey := 'Once'
      else
          sKey := '';
          Section := 'Software\Microsoft\Windows\CurrentVersion\Run' + sKey + #0;
            with TRegIniFile.Create('') do
                try
                 RootKey := HKEY_CURRENT_USER;
                 if Remove then
                  DeleteKey(Section, ApplicationTitle)
                 else
                  WriteString(Section, ApplicationTitle, sCmdLine) ;
                finally
                  Free;
                end;
end;

如果我评论调用该.txt文件的代码，我的应用程序将启动并执行良好，但是我不想每次都进行设置。 提前致谢

Answer 1

我认为问题与您使用相对路径有关。 您在假定工作目录与包含可执行文件的目录相同的前提下编写了代码。 不一定是这样。

例如，当您通过双击可执行文件启动应用程序时，外壳程序将确保初始工作目录是包含可执行文件的目录。 但是，当Windows在启动时启动程序时，我怀疑工作目录是系统目录。 当然，在这里找不到您的文件，并且您没有写权限。

不要使用相对路径，而应使用文件的完整路径。

FileName := ExtractFilePath(ParamStr(0)) + 'Dados.txt';

也许

FileName := TPath.Combine(ExtractFilePath(ParamStr(0)), 'Dados.txt');

请注意，这也假定您的可执行文件位于您可以写入的文件夹中。 通常情况并非如此，因此您可能需要查找其他位置。

我必须评论一下，我发现您将非常现代的（FireMonkey）与古老的（Pascal I / O）混为一谈。 也许是时候转向更现代的I / O技术了。