获得与 inifile 中不同的值

Question

我在 windows 目录的 win.ini 文件中放置了一个自定义条目，在自定义 [Login] 部分下称为 LoginCount，并在每次加载主视图时递增它。在 Form Create 事件中，我访问 win.ini 并检查它的值，如果它达到 1000，我会显示一条消息。但是发生了一件非常奇怪的事情。达到 1000 后，我手动将其值设置回 0。但它仍然显示 1000。我检查了路径，以防应用程序引用系统中某处的其他 win.ini 文件，但它是 C:\Windows\win.ini .代码如下：

procedure TfMain.FormCreate(Sender: TObject);
  var
     winIni: TIniFile; 
     windir_buf: array [0 .. 144] of Char;
     WINDIR: string;
     loginCount: integer;
  begin
   GetWindowsDirectory(windir_buf, sizeof(windir_buf));
   WINDIR := StrPas(windir_buf) + '\';

   ShowMessage(WINDIR+'win.ini');//Shows C:\Windows\win.ini

   winIni := TIniFile.Create(WINDIR + 'Win.ini');
   loginCount := winIni.ReadInteger('Login', 'LoginCount', 1);
   ShowMessage(IntToStr(loginCount));//Shows 1000 although it's 0 in the actual file.
  end;

知道为什么吗？

Answer 1

这可能是由于文件系统虚拟化。您正在 Vista 或更高版本下运行虚拟化进程，并且没有 Windows 目录的写入权限。

调试这个没有意义。 Win.ini 文件已被弃用近 20 年。你应该：

1. 添加清单以抑制虚拟化。
2. 确保您在启用 UAC 的情况下以标准用户身份运行。
3. 将文件存储到适当的文件夹中。在用户配置文件下是明显的地方。这使其成为每个用户的设置。对于系统范围的设置，您存储到 ProgramData 文件夹。

如果您根本无法停止使用 Win.ini，那么您仍然需要使用 requireAdministrator 选项添加清单。

如果您打算使用 Win.ini（我无法表达我多么厌恶您打算这样做的事实），那么您应该使用 GetProfileString 和 SetProfileString。由于文件是共享的，您需要使用同步该访问的功能来访问它。