Кнопка сброса файлов Ini delphi

Question

Я хочу создать кнопку сброса для моей программы delphi. В моей программе иногда есть какие-то Ини. файлы, созданные в pathexe. Теперь я хочу создать кнопку или вкладку, которая позволяет мне нажимать на нее и когда это происходит. Он удаляет все файлы .Ini в моем pathexe

Как я мог это сделать?

Также я хочу знать, как сделать немного "Вы уверены?" всплывающее окно, но это мелочь

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 (которое находится в расположении на пользователя ), а 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;