Сохранить настройки меню

[Aleksandr]

Всем спасибо

[Alter]

Сообщение от _SERGEYX_

Существует ли секция:
function SectionExists(const Section: string): Boolean;

Чтение всей секции:
procedure ReadSection(const Section: string; Strings: TStrings);

Чтение всего файла (все секции записываются в Strings):
procedure ReadSections(Strings: TStrings);

Чтение всех значений в заданной секции:
procedure ReadSectionValues(const Section: string; Strings: TStrings);

Удаление заданной секции со всеми её значениями:
procedure EraseSection(const Section: string);

Удаление определённого ключа (и его значения) в секции:
procedure DeleteKey(const Section, Ident: String);

Это хорошо но есть у меня моя процедурка для определения всех имён секций в Ini файле. Нужно выложить или кто-то сам придумает. Если надо пишите на мыло: Nus01@mail.ru