[DemonAk]

Попробуйте эту версию. »

Скопировал вот это InnoSetup FullVCL и заробило.

чуть позже выложу пример... »

С нетерпением жду)

[semiono]

Из этого получается, что {break} - шесть нолей... »

Serega_, break наверное шесть, я имел ввиду что через
invoke MoveFileEx,lpExistingFileName1,NULL,MOVEFILE_DELAY_UNTIL_REBOOT
пять получалось, хотя надо посчитать, я только за комп сел
Правда мне кажется там суть такова, что один байт "00" это конец строки или закрытие строки,
а "00 00 00 00" это новая пустая строка или NULL кароче то чем "затирает", может она и длинее даже...

[semiono]

Даже сейчас с уверенностью сказать трудно, но этот брейк даёт четыре нуля '00 00'

Код:

Root: HKLM; Subkey: "Software\ax"; ValueType: multisz; ValueName: "a"; ValueData: "{break}."; Flags: noerror; Permissions: admins-full

Дело в том, как я понял, что там юникод типа, и каждый символ записывается как два байта, отсюда запись точки скажем будет 2E 00, вот это и путает.

[semiono]

Вот этот код работает, даже если его поделить на два инсталлера и частями запускать

Код:

[Registry]
; PendingFileRenameOperations
Root: HKLM; Subkey: "System\ControlSet001\Control\Session Manager"; ValueType: multisz; ValueName: "PendingFileRenameOperations"; ValueData: "{olddata}\??\{sd}\ax{break}\??\{sd}\xb"; Flags: noerror; Permissions: admins-full
Root: HKLM; Subkey: "System\ControlSet001\Control\Session Manager"; ValueType: multisz; ValueName: "PendingFileRenameOperations"; ValueData: "{olddata}\??\{sd}\bx{break}\??\{sd}\xa"; Flags: noerror; Permissions: admins-full

[Files]
Source: "ax"; DestDir: "{sd}"; Flags: ignoreversion overwritereadonly touch; Permissions: admins-full
Source: "bx"; DestDir: "{sd}"; Flags: ignoreversion overwritereadonly touch; Permissions: admins-full

Причём даже {break} в конце строк не нужен. И даже это '!' не надо,
я вообще подозревал ещё раньше что это какая то опция а не указатель на target, ещёб узнать её значение!?
Однако, проблем опять не убавилось
Так как суперзадачей стоит заменить shell32.dll, то как оказалось его даже restartreplace стандартный флаг
не способен потянуть. Сразу же возникает предположение, что уж что а shell32.dll видимо грузится очень рано и уже просто невозможно бывает его заменять. Придётся вернуться к старым методам переименования
до перезагрузки, хотя там я так и не выяснил точный синтакс.
Кстати, я точно установил, что {break} в конце строки безполезен, то ли его инно игнорирует то ли реестр,
хоть десять бряков записать в реестре строка будет закрыта всегда как "00 00 00", если только она не последняя. Поэтому у меня там брейки вначале стояли, так как сначала строки они почему-то не игнорируются.
Там вообще загадок много, например, если я програмно из ассемлера пытался писать без
преффикса \\?\ который сам превращается потом в \??\ то без него вообще лажа получается - путь лезет прямо
от папки исходника, вот дурь!

ЗЫ я ещё не надоел тут с этим своим PendingFileRenameOperations ?

[Serega]

С нетерпением жду) »

Извиняюсь, только добрался до компьютера...

Вот этот код работает, даже если его поделить на два инсталлера и частями запускать »

Ну, что здесь сказать, водимо {olddata} заставляет инсталлятор добавлять перевод строки если его там нет...

Кстати, я точно установил, что {break} в конце строки безполезен, то ли его инно игнорирует то ли реестр, хоть десять бряков записать в реестре будет строка закрыта как "00 00 00" всегда, если только она не последняя. »

неправда, Inno игнорирует по-моему больше пятнадцати {break} и в все они заносятся в реестр, плюс добавляется, это видно после экспорта из реестра, в конец ключа ещё 00,00

я ещё не надоел тут с этим своим PendingFileRenameOperations »

Не переживайте...

[grinda]

скажите, а есть ли запаковщик setup'а, чтоб заново не компилировать, а директорию или ярлык в скрипте поправить.

[Serega]

а есть ли запаковщик setup'а, чтоб заново не компилировать, а директорию или ярлык в скрипте поправить. »

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

[Krekerpro]

Может ктонить дать скрипт для распаковки архива free arc'a?

[Kutsenko Andriy]

Заметил такую штуку в инсталах от InstallShield: когда нажимеш на кнопку отмена на любой странице установки и отвечаеш "Да" то появляется вот такая страничка:

Кто знает как такое можна сделать в Inno Setup'e??? Заранее Спасибо!

[semiono]

насколько понял это надо дополнительную страницу самому нарисовать? и связать её с [tasks] секцией?
что-то вроде этого, только с другими константами...

Код:

[C0de]
var DataDirPage: TInputDirWizardPage;

procedure InitializeWizard;
begin
    DataDirPage := CreateInputDirPage(wpSelectTasks, 'External...',
                                      '1,43 GB (1*545*427*804 bytes)',
                                      'Sounds files will be stored:',
                                      False, 'New Folder');
    DataDirPage.Add('Location:');
    DataDirPage.Values[0] := ExpandConstant('{reg:HKLM32\Software\VST,VSTPluginsPath|{sd}}\RMIV');
end;

function GetDataDir(Param: String): String;
begin
    Result := DataDirPage.Values[0];
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
    if PageID = DataDirPage.ID {wpSelectTasks} then
    begin
        if IsTaskSelected('External') then Result := false
        else Result := true;
    end
    else {wpPreparing} Result := false;
end;

CreateInputDirPage надо зделать под Cancel Page наверное...

неправда, Inno игнорирует по-моему больше пятнадцати {break} и в все они заносятся в реестр, плюс добавляется, это видно после экспорта из реестра, в конец ключа ещё 00,00 »

я нули считал между концом и началом строк "путей файлов на удаление" прямо в реестре нажав 'Modify binary data',
так как там немного было и легко сосчитать на глаз, поэтому export я не делал.
Десять дел делаю одновременно, поэтому уже трудно вернуться уточнить