[Nordek]

поправте. »

Поправил:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=C:\Users\ww\Desktop
DisableReadyPage=True
DisableReadyMemo=True
DisableFinishedPage=True

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Dll Pack\ISSkin.dll"; DestDir: "{app}"; Flags: ignoreversion dontcopy
Source: "C:\Program Files (x86)\Inno Setup 5\IS_Skin\Styles\Chromium.cjstyles"; DestDir: "{tmp}"; Flags: ignoreversion dontcopy
Source: "..\skf.exe"; DestDir: "{tmp}"; Flags: ignoreversion

[Code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

function InitializeSetup(): Boolean;
var
  ErrorCode: Integer;

begin
  if not FileExists(ExpandConstant('{tmp}\skf.exe')) then ExtractTemporaryFile('skf.exe');
  Exec(ExpandConstant('{tmp}\skf.exe'), '', '', SW_Hide, ewWaitUntilTerminated , ErrorCode);
  result:=True;

  ExtractTemporaryFile('Chromium.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Chromium.cjstyles'), '');
  Result := True;
end;

procedure DeinitializeSetup();
begin
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
  Sleep(110);
  UnloadSkin();
end;

P.S pollipen, Также это прочтите.

[boss911]

Ну нет же »

Вы, прежде чем так категорично отвечать, сначала бы проверили скрипт, почитали, что такое Wow6432Node, а так отбивает всякое желание вам помогать. HKLM\SOFTWARE\Wow6432Node в вашем REG примере свидетельствует о том, что 32-bit приложение (игра) было установлено в OS 64-bit. При установке 32-bit приложения в OS 64-bit, WOW64 автоматически перенаправляет реестр и файлы в соответствующие ветки и папки. Мой пример скрипта написан для 32-bit приложения, и он корректно отработает, как в OS 32-bit, так и в OS 64-bit. И еще раз: сначала проверяем и только потом отписываемся, что что-то не так.

[Nordek]

Ну нет же,мой пример под x64,вот же путь [HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Electronic Arts\EA Games] »

Я надеялся вы пошутили - оказывается вы правда не понимаете.
Для начала изучите реестр.
Затем изучите Inno.
После этого что-то будете утверждать если получится.

У вас по умолчанию содержимое будет извлечено в "C:\Program Files (x86)", а данные реестра внесены в "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node" - Поскольку сам исполняемый файл является как x32 приложение.

Чтоб по умолчанию устанавливалось в "C:\Program Files" а данные реестра вносились в "HKEY_LOCAL_MACHINE\SOFTWARE" необходимо приложение пометить как явное x64 - Для этого нужно в секции [Setup] установить директиву ArchitecturesInstallIn64BitMode со значением x64:

Код:

[Setup]
ArchitecturesInstallIn64BitMode=x64

Если хотите чтоб приложение x32 устанавливало программу в системе x64 как для x64 - нужно в секции [Setup], в директиве DefaultDirName, заменить константу {pf} на {pf64}

Код:

DefaultDirName={pf64}\Example

Равно как и для реестра в секции [Registry] - В корне вместо HKLM указать HKLM64

Код:

[Registry]
Root: "HKLM64"; Subkey: "SOFTWARE\Test"; ValueType: string; ValueName: "UninstProg"; ValueData: """{cf64}\Installer"""; Flags: uninsdeletekeyifempty uninsdeletevalue

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

[Iska]

Тут надо не реестр изучать, а MSDN и TechNet: принципы функционирования x86-приложений под x64 ОС, что такое перенаправление, как оно работает, к каким объектам файловой системы и к каким разделам реестра оно применяется, как и в каких случаях может быть отключено, и т.д, и т.п. И это — помимо общих принципов, по которым должны работать инсталляторы в «родной среде». В общем, учиться, учиться и учиться читать, читать и читать. Потом пробовать, пробовать и пробовать, раз за разом набивая собственные шишки на собственных ошибках. Иначе («ну ничё не получается, памажите люди добрые, сделайте всё за меня») толку не будет. Никакого.

[ENERGES]

подскажите пожалуйста,где путь лежит к этим шрифтам https://s8.hostingkartinok.com/uploa...ced42b2a72.png

[Nordek]

подскажите пожалуйста,где путь лежит к этим шрифтам »

%WinDir%\Fonts

Если шрифт изменить хотите, то:

Код:

[Code]
procedure InitializeWizard();
begin
  WizardForm.PageDescriptionLabel.Font.Name := 'Times New Roman';
  WizardForm.PageNameLabel.Font.Name := 'Times New Roman';
end;

Первое сообщение темы:

Свой шрифт в инсталляторе (вариант №1) - пример скрипта для использования своего шрифта в инсталляторе, (ссылка на сообщение); Свой шрифт в инсталляторе (вариант №2) - пример скрипта для использования своего шрифта в инсталляторе, (ссылка на сообщение); »

[ENERGES]

Nordek, нет,хочу переименовать,всё не могу найти

[ZVSRus]

нет,хочу переименовать,всё не могу найти

Чтобы что то найти, нужно сначала сообразить как это окно (в данном случае) называется (на что вы нажали, что появилось именно это окно, а не какое то другое).
Я думал что вы хоть немного начали ориентироваться где что находиться, а вы все там же!

[ENERGES]

ZVSRus, я новичок в этом деле

[Nordek]

хочу переименовать,всё не могу найти »

Смотрите по знакомым словам в основном скрипте или подключаемых, например "Cancel unpacking"

Скрытый текст

Клавиши CTRL+F и F3 - Работают.