Дописать строки в конец *.ini

[Shouldercannon]

Как можно дописать в конец *.ini файла несколько строк и только один раз, тоесть при следующих запусках программы поновой не делать допись?
Во вложении файл в который надо дописать
;================================== =================================== =========
; Hidden: Source Beta 4
[HL2.EXE_hidden]
AppId=220

GCF=base source engine 2.gcf
GCF=source models.gcf
GCF=source materials.gcf
GCF=source sounds.gcf
GCF=half-life 2 content.gcf

[raxp]

в конец или нет, это не имеет значение для ini-файлов
в чем затык? конечно можно... читайте секцию HL2.EXE_hidden и любой параметр, а то и все, и проверяйте наличие, если нет их или они неверные - то записываем заново... ini.writestring('HL2.EXE_hidden','G CF','base source engine 2.gcf') и т.д.

[Shouldercannon]

Что-то я не правильно делаю. В конечный файл попадает только одна строка из GCF

procedure TForm1.FormCreate(Sender: TObject);
var
F: TINIFile;
begin
F:=TINIFile.Create(ExtractFilePath(ParamStr(0))+'steamemu.ini');
F.WriteString('HL2.EXE_VSCOOP16', 'AppId', '240');
F.WriteString('HL2.EXE_VSCOOP16', 'GCF', 'base source engine 2.gcf');
F.WriteString('HL2.EXE_VSCOOP16', 'GCF', 'source models.gcf');
F.WriteString('HL2.EXE_VSCOOP16', 'GCF', 'source materials.gcf');
F.WriteString('HL2.EXE_VSCOOP16', 'GCF', 'source sounds.gcf');
F.WriteString('HL2.EXE_VSCOOP16', 'GCF', 'counter-strike source shared.gcf');
F.WriteString('HL2.EXE_VSCOOP16', 'GCF', 'counter-strike source client.gcf');
F.Free;
end;

Как сделать отступ между

F.WriteString('HL2.EXE_VSCOOP16', 'AppId', '240');

и

F.WriteString('HL2.EXE_VSCOOP16', 'GCF', 'base source engine 2.gcf');

вот так чтобы было
AppId=240

GCF=base source engine 2.gcf
И не пойму как записать в ini такую строку и чтобы именно так она выглядела
;================================== =================================== =========
; VenShinra Co-Op 1.6

[lexaltd]

Потому что имена Идентификаторов одинаковые 'GCF'

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

Как сделать отступ между

Отступ в ини файле наверно не получится- работай как с текстовым файлом

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

И не пойму как записать в ini такую строку и чтобы именно так она выглядела
;================================== =================================== =========
; VenShinra Co-Op 1.6

Если такую строку "============================== ==== =================================== ========="
то можно так

F.WriteString('HL2.EXE_VSCOOP16', '=', '================================= =================================== =========');

Если как у тебя с ";" впереди - работай как с текстовым файлом

[Shouldercannon]

Как исправить?

[SERG1980]

А можем вам через StringList сделать

[raxp]

все, звиняюсь ... сразу не заметил, вот что значит глаз замылился ... файл просто похож на ini... параметры в секциях то одинаковые... лучше тогда вручную записывать, например загрузив через assign или в stringlist:

var t: tstringlist;
    i: integer;
    p: boolean;
begin
 t:= tstringlist.create;
 t.loadfromfile('steamemu.ini');

 // ïðîâåðÿåì íàëè÷èå ñåêöèè
 p:= false;
 for i:=0 to t.Count-1 do
  if pos('[HL2.EXE_VSCOOP16]', t[i])>0 then p:= true;
 //
 if (p) then begin
  t.Add('[HL2.EXE_VSCOOP16]');
  t.Add('AppId=240');
  t.Add('');
  t.Add('GCF=base source engine 2.gcf');
  t.Add('GCF=source models.gcf');
  t.Add('GCF=source materials.gcf');
  t.Add('GCF=source sounds.gcf');
  t.Add('GCF=counter-strike source shared.gcf');
  t.Add('GCF=counter-strike source client.gcf')
 end;
 t.Free
 ...

upd
-------
ооо, уже наваяли тут сообщений

[Shouldercannon]

наоборот всё получилось. Если нет [HL2.EXE_VSCOOP16], то ничего не записывается, если есть то записывается столько раз сколько была запущена программа.

[raxp]

if (not p) then begin

[SERG1980]

прямо здесь напишите содержимое файла который должен должен получится