重置Ini文件按钮delphi

Question

我想为我的delphi程序创建一个重置按钮。在我的程序中，有时会有一些Ini。 pathexe中创建的文件。我想要做的是现在创建一个按钮或标签，让我点击它，什么时候点击它。它删除了我的pathexe中的所有.Ini文件

我怎么能这样做？

此外，我想知道如何做一点'你确定吗？'弹出，但这是一个小细节。

Answer 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文件，当然（！）应用默认设置。

Answer 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;