Скрипты Inno Setup. Помощь и советы [часть 7]

[Nordek]

Цитата Dodakaedr:



В модуле Uninstall.iss, но как видите она не больше ваших картинок

Скрипты Inno Setup. Помощь и советы [часть 7]

В Uninstall.iss вообще нечего не менял но на скине видно что с права полоса и снизу. Из-за чего же это может быть?

[Shift85]

Цитата Антон_Мураткин@vk:



В Uninstall.iss вообще нечего не менял но на скине видно что с права полоса и снизу. Из-за чего же это может быть?

Скрипты Inno Setup. Помощь и советы [часть 7]

Не знаю, может из-за скина, а может попробуйте отцентрировать свое изображение.

[habib2302]

Dodakaedr, Всё разобрался. Только почему так получается фиг его знает. Сделал ширина - 693 высота 372 и всё стало нормально и разрешение исталятора 700x400.



Просто мистика какая та.



Dodakaedr, Огромное спасибо за помощь.



Dodakaedr, И ещё вопросик, можно ли сделать текст с глянцевым эффектом?

Может знаешь?

[Shift85]

Цитата Антон_Мураткин@vk:



Dodakaedr, И ещё вопросик, можно ли сделать текст с глянцевым эффектом?

Может знаешь?

Скрипты Inno Setup. Помощь и советы [часть 7]

Не знаю, но можете попробувать создать изображение с текстом с глянцевым эффектом на прозрачном фоне и сохранить в .png формате и потом через ботву вставить. Как-то так

[habib2302]

Цитата Dodakaedr:



создать изображение с текстом с глянцевым эффектом на прозрачном фоне и сохранить в .png

Скрипты Inno Setup. Помощь и советы [часть 7]

Так текста уж много. Ладно что то другое поищу.

[Shift85]

Цитата Dodakaedr:



Как в этом коде указать HKU\{code:UsSID}\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts?





Код:

Код: Выделить всё

procedure BackupData(FileExt: String);
var
 OldValueData: string;
begin
 if RegKeyExists(HKCR, '.' + FileExt) then
 begin
 RegQueryStringValue(HKCR, '.' + FileExt, '', OldValueData);
 RegWriteStringValue(HKCR, '.' + FileExt + '(backup)', '', OldValueData);
 end;
end;
procedure RestoreData(FileExt: String);
var
 OldValueData: string;
begin
 if RegKeyExists(HKCR, '.' + FileExt + '(backup)') then
 begin
 RegQueryStringValue(HKCR, '.' + FileExt + '(backup)', '', OldValueData);
 RegWriteStringValue(HKCR, '.' + FileExt, '', OldValueData);
 RegDeleteKeyIncludingSubkeys(HKCR, '.' + FileExt + '(backup)');
 end;
end;

Скрипты Inno Setup. Помощь и советы [часть 7]

С этим решено, теперь подскажите как сделать чтобы код бекапил полностью ключ со всеми значениями и подключами, потому что этот код бекапит только значение ключа.

[diman_21Ru]

Цитата Dodakaedr:



ключ со всеми значениями и подключами

Скрипты Inno Setup. Помощь и советы [часть 7]

Предлагаю, так:

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

Код:

Код: Выделить всё

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; AfterInstall: IsRegExport(); Flags: ignoreversion;
[code]
procedure IsRegExport();
var
    i: Integer;
    RegKey: String;
begin
    RegKey := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Inno Setup 5_is1';
    Exec( ExpandConstant( '{win}\regedit.exe' ), '-ea export.reg ' + AddQuotes( RegKey ), ExpandConstant( '{app}' ), SW_HIDE, ewWaitUntilTerminated, i );
end;
procedure IsRegImport();
var
    i: Integer;
    RegFile: String;
begin
    RegFile:= ExpandConstant('{app}\export.reg');
    if FileExists(RegFile)  False then
      Exec( 'regedit.exe', ' /s ' + AddQuotes( RegFile ), ExpandConstant( '{win}' ), SW_HIDE, ewWaitUntilTerminated, i );
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    case CurUninstallStep of
        usUninstall: IsRegImport();
    end;
end;

[habib2302]

Цитата saurn:



Предлагаю, так:

Скрипты Inno Setup. Помощь и советы [часть 7]

А как больше веток добавить? Так не работает:



Код:

Код: Выделить всё

procedure IsRegExport();
var
    i: Integer;
    RegKey: String;
begin
    RegKey := 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.mp3';
    RegKey := 'HKEY_CLASSES_ROOT\.mp3';
    Exec( ExpandConstant( '{win}\regedit.exe' ), '-ea export.reg ' + AddQuotes( RegKey ), ExpandConstant( '{app}' ), SW_HIDE, ewWaitUntilTerminated, i );
end;

И то создал бекап ключа HKEY_CLASSES_ROOT\.mp3 а при удалении программы не восстанавливает.



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

[Антон_Мураткин@vk]

Цитата Антон_Мураткин@vk:



можно ли сделать текст с глянцевым эффектом?

Скрипты Inno Setup. Помощь и советы [часть 7]

Антон_Мураткин@vk, Нет. Вот попробуй модуль для текста.

http://rghost.ru/55185131

[Shift85]

Привет всем. Как сделать чтобы шапка установщика на каждой странице была разная. Разные шапки получилось поставить только на начальной и финишной странице. А на страницах: каталог, компонент лист и т.д. ставилась одна общая шапка.

Ставил изображения через Редактор форм в расширенном Инно. Добавлял BitmapImage.

Возможно ли как-то сделать на этих страницах разные шапки. Если да, то как? Заранее спасибо!