重置 Ini 文件按钮 delphi答案

【问题标题】：Reset Ini files button delphi重置 Ini 文件按钮 delphi
【发布时间】：2011-09-01 19:13:42
【问题描述】：

我想为我的 delphi 程序创建一个重置按钮。在我的程序中有时会有一些 Ini。在 pathexe 中创建的文件。我现在要做的是创建一个按钮或选项卡，让我点击它以及何时点击。它会删除我的 pathexe 中的所有 .ini 文件

我该怎么做？

我也想知道如何制作一个小“你确定吗？”弹出，但这是一个小细节。

【问题讨论】：

将设置INI文件存储在与EXE文件相同的目录中是一个非常糟糕的主意。实际上，EXE 文件很可能位于 Program Files 文件夹中，除非您以管理员身份运行该程序，否则这是只读的，通常您不是。相反，您应该使用每个用户的应用数据文件夹，如 here 所述。
除非ini设置在所有用户中都是通用的（我使用ini文件来维护与动态性能相关的设置），在这种情况下，您需要将其存储在所有用户应用程序数据文件夹中并给出这个特定的文件夹（所有用户的子文件夹）每个人的写权限。

标签： delphi ini delete-file

【解决方案1】：

你应该做类似的事情

  if MessageBox(Handle, 'Are you sure you want to restore the default settings?',
    PChar(Caption), MB_ICONQUESTION or MB_YESNO) = ID_YES then
  begin
    DeleteFile(SettingsFileName);
    LoadSettings;
  end;

其中SettingsFileName 是INI 文件的文件名（位于per-user location 中），LoadSettings 是您用来从INI 文件加载设置的过程（当然（！ )，如果没有 INI 文件，则应用默认设置。

【讨论】：

【解决方案2】：

下面的代码使用通配符来获取ini文件列表并一一删除。

procedure DeleteIni();
var searchResult : TSearchRec;
begin
  if FindFirst('*.ini', faAnyFile, searchResult) = 0 then
  begin
    repeat
      DeleteFile(searchResult.Name);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
end;

【讨论】：