[Serega]

А на Pascal можно реализовать написание такого INI файла? »

Вот накидал пример

читать дальше »

Код:

 [Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DisableProgramGroupPage=yes
DefaultGroupName=My Program
OutputDir=userdocs:Inno Setup Examples Output

[_Code]
procedure BuildINI();
begin
     SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini',
     '[Section]' + #13 + 'NAME=1' + #13 + 'NAME=2' + #13 + 'NAME=3' + #13, true);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
     if CurStep = ssDone then
     BuildINI();
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
     DeleteFile(ExpandConstant('{app}\desktop.ini'));
  end;
end;