[i.Sky]

Serega_, спасибо за ответ быстрого реагирования
А может просто строки можно как-нибудь внести? Или сделать NAME(1), NAME(2), NAME(3), а потом убрать с них нумерацию? Только я не знаю как...

[Serega]

строки можно как-нибудь внести »

только вручную...

Или сделать NAME(1), NAME(2), NAME(3), а потом убрать с них нумерацию? »

а как потом читать данные или записывать в .ini Восприниматься будет только первый NAME.

[HQ-Team nuke]

Есть portable программа, а именно winamp, все отлично, за исключением одного, все расширения к нему привязываются лишь после запуска и захода в настройки, пробовал это делать средством AutoIt3, но как то это долго очень и не есть правельно, хотелось бы как то это запаковать в Inno Setup с дальнейшей тихой установкой и привязкой расширения к файлам, я скачал мануал по Inno Setup и наткнулся на привязку расширений, возможно ли мною задуманное, кто этим уже занимался, может подскажите что к чему, просто новичек в Inno Setup. Спасибо.

[i.Sky]

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

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

[Serega]

в Inno Setup с дальнейшей тихой установкой и привязкой расширения к файлам »

Скажу честно, winamp ни разу не пересобирал... Я в своё время делал сборку IsoBuster и делал там ассоциации, выкинул лишнее, но принцип я думаю вам будет понятен

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

;............................................................
[Tasks]
Name: a; Description: (*.ISO) Файлы-образы; GroupDescription: Выбор файловых ассоциаций:; Flags: unchecked
Name: b; Description: (*.BIN) Файлы-образы; GroupDescription: Выбор файловых ассоциаций:; Flags: unchecked
;............................................................

[Registry]
Root: HKCR; Subkey: IsoBuster.iso; ValueType: String; ValueData: ISO Image; Flags: uninsdeletekey; Tasks: a
Root: HKCR; Subkey: IsoBuster.iso\DefaultIcon; ValueType: String; ValueData: {app}\IsoBuster.exe,1; Flags: uninsdeletekey; Tasks: a
Root: HKCR; Subkey: IsoBuster.iso\shell\extract; ValueType: string; ValueData: Извлечь в IsoBuster; Flags: uninsdeletekey; Tasks: a
Root: HKCR; Subkey: IsoBuster.iso\shell\extract\command; ValueType: String; ValueData: """{app}\IsoBuster.exe"" ""/ef:"" ""/c"" ""%1"""; Flags: uninsdeletekey; Tasks: a
Root: HKCR; Subkey: IsoBuster.iso\shell\open; ValueType: string; Flags: uninsdeletekey; Tasks: a
Root: HKCR; Subkey: IsoBuster.iso\shell\open\command; ValueType: String; ValueData: """{app}\IsoBuster.exe"" ""%1"""; Flags: uninsdeletekey; Tasks: a
Root: HKCR; Subkey: .iso; ValueType: String; ValueData: IsoBuster.iso; Flags: uninsdeletevalue; Tasks: a
Root: HKCR; Subkey: IsoBuster.bin; ValueType: String; ValueData: BIN Image; Flags: uninsdeletekey; Tasks: b
Root: HKCR; Subkey: IsoBuster.bin\DefaultIcon; ValueType: String; ValueData: {app}\IsoBuster.exe,1; Flags: uninsdeletekey; Tasks: b
Root: HKCR; Subkey: IsoBuster.bin\shell\extract; ValueType: string; ValueData: Извлечь в IsoBuster; Flags: uninsdeletekey; Tasks: b
Root: HKCR; Subkey: IsoBuster.bin\shell\extract\command; ValueType: String; ValueData: """{app}\IsoBuster.exe"" ""/ef:"" ""/c"" ""%1"""; Flags: uninsdeletekey; Tasks: b
Root: HKCR; Subkey: IsoBuster.bin\shell\open; ValueType: string; Flags: uninsdeletekey; Tasks: b
Root: HKCR; Subkey: IsoBuster.bin\shell\open\command; ValueType: String; ValueData: """{app}\IsoBuster.exe"" ""%1"""; Flags: uninsdeletekey; Tasks: b
Root: HKCR; Subkey: .bin; ValueType: String; ValueData: IsoBuster.bin; Flags: uninsdeletevalue; Tasks: b
; ................................................................

[HQ-Team nuke]

Скажу честно, winamp ни разу не пересобирал... Я в своё время делал сборку IsoBuster и делал там ассоциации, выкинул лишнее, но принцип я думаю вам будет понятен »

Да мне его как раз и не нужно пересоберать, он имеет один исполняемый файл, при его запуске он создает возле исполняемого файла папку, в которой и хранит все свои настройки, т.е. другим языком как получился этот один файл: Установил Winamp, настроил, упаковал.
Да, мне понятен принцип привязки, немного разберусь в программе, попробую привязать, спасибо.

[i.Sky]

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

Спасибо. Сразу еще вопрос - как прикрутить зависимость от устанавливаемых компонентов к этому коду? Просто в секции [_Сode] ещё ни разу ничего не писал и не знаю что и как.

[Serega]

как прикрутить зависимость от устанавливаемых компонентов »

В первом примере, как должно быть, т.е. значения будут перезаписываться.
Второй пример как вы хотели, т.е. просто в зависимости от выбора компонента будет добавлятся ещё одна строка.

1. Вариант

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Components]
Name: main; Description: Моя программа™; Types: full custom
Name: help; Description: Помощь; Types: full custom
Name: help\documentation; Description: Документация; Types: full custom
Name: help\manual; Description: Руководство пользователя; Types: full custom

[ Code ]
procedure CurStepChanged(CurStep: TSetupStep);
begin
   If CurStep=ssDone then
   begin
     if IsComponentSelected('main') then
     SetIniString('Section', 'NAME', '1', ExpandConstant('{app}')+'\main.ini');

     if IsComponentSelected('help') then
     SetIniString('Section', 'NAME', '2', ExpandConstant('{app}')+'\main.ini');

     if IsComponentSelected('help\documentation') then
     SetIniString('Section', 'NAME', '3', ExpandConstant('{app}')+'\main.ini');

     if IsComponentSelected('help\manual') then
     SetIniString('Section', 'NAME', '4', ExpandConstant('{app}')+'\main.ini');
   end;
end;

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

2. Вариант

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Components]
Name: main; Description: Моя программа™; Types: full custom
Name: help; Description: Помощь; Types: full custom
Name: help\documentation; Description: Документация; Types: full custom
Name: help\manual; Description: Руководство пользователя; Types: full custom

[ Code ]
procedure CurStepChanged(CurStep: TSetupStep);
begin
   If CurStep=ssDone then
   begin
     SaveStringToFile(ExpandConstant('{app}')+'\main.ini', '[Section]' + #13, true);

     if IsComponentSelected('main') then
     SaveStringToFile(ExpandConstant('{app}')+'\main.ini', 'NAME=1' + #13, true);

     if IsComponentSelected('help') then
     SaveStringToFile(ExpandConstant('{app}')+'\main.ini', 'NAME=2' + #13, true);

     if IsComponentSelected('help\documentation') then
     SaveStringToFile(ExpandConstant('{app}')+'\main.ini', 'NAME=3' + #13, true);

     if IsComponentSelected('help\manual') then
     SaveStringToFile(ExpandConstant('{app}')+'\main.ini', 'NAME=4' + #13, true);
   end;
end;

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

[i.Sky]

Спасибо, Serega_. Процесс пошёл.