[Dimas2011]

Только теперь другая ошибка вылазее1111.pngт

[Nordek]

Только теперь другая ошибка вылазее1111.pngт »

Эм, посмотри в HKEY_LOCAL_MACHINE.

[Dimas2011]

Цитата Dimas2011: Только теперь другая ошибка вылазее1111.pngт » Эм, посмотри в HKEY_LOCAL_MACHINE. »

не помогло

[Nordek]

не помогло »

Что значит не помогло?

Вариант 1

Открой Редактор реестра
В реестре, кликни Мой компьютер
Зажми комбинацию клавиш CTRL+F
Напротив Найти введи возможные названия:
World_of_Tanks
World of Tanks
wot

Сначала в поиске вводишь World_of_Tanks
Жмёшь Найти
а потом клавишей F3 фильтруй т.е F3 » F3 » F3 » F3 » F3 » F3
таким же способом и остальные.

Если совсем худо, то »

Вариант 2

Скачиваешь Revo Uninstaller (На сайте есть Portable версия)
Запускаешь Revo Uninstaller
Находишь игру, выбираешь
Кликаешь Правой кнопкой мыши и выбираешь Открыть ключ реестра
Откроется ключ, а далее инфу сюда.

[Dimas2011]

Цитата Dimas2011: не помогло » Что значит не помогло? Вариант 1 Если совсем худо, то » Вариант 2 »

ВОТ ИНФА 212121.png

[Nordek]

ВОТ ИНФА »

Ну как-то так:

Вариант 1

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={code:GetInstallDir}
AppendDefaultDirName=no

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Code]
Function GetInstallDir(Path: String ): String;
begin
RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);//Какой ключ реестра ищет ...
Result := Path;
end;

function InitializeSetup(): Boolean;
begin
Result:= true;
if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
MsgBox('Игра {#SetupSetting("AppName")} не найдена! Укажите путь к папке с игрой вручную!', mbinformation, mb_ok);
end;

Вариант 2

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={code:GetInstallDir|{pf}\Альтернативный путь}
AppendDefaultDirName=no

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Code]
Function GetInstallDir(Path: String ): String;
begin
RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', Path);//Какой ключ реестра ищет ...
Result := Path;
end;

function InitializeSetup(): Boolean;
begin
Result:= true;
if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
MsgBox('Игра {#SetupSetting("AppName")} не найдена! '+#13#10+'Будет предложен альтернативный путь установки, либо укажите путь к папке с игрой вручную!', mbinformation, mb_ok);
end;

[habib2302]

и как сделать чтобы при выборе компонента "portable" были неактивными компоненты с ярлыками и были сняты с них галочки?

Код:

Name: icons; Description: {cm:AdditionalIcons}; Types: full;
Name: icons\desktop; Description: {cm:CreateDesktopIcon}; Types: full;
Name: icons\quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; OnlyBelowVersion: 0,6.1; Types: full;
Name: icons\quicklaunchicon7; Description: {cm:CreateQuickLaunchIcon}; MinVersion: 0,6.1; Types: full;

[Dimas2011]

Ну как-то так: Вариант 1 Вариант 2 »

теперь другая ошибка Файл 107990

[Raz3r]

Помогите плиз. Не могу поставить скин на инсталлер. Сделал всё по инструкции, но запускается всё-равно обычная версия setup.
Вот проект(если можно объясните, что вы изменили):

[Nordek]

но запускается всё-равно обычная версия setup. »

Потому что у тебя код для ANSI версии Inno, а ты его на Юникодной версии Inno запускаешь. Если быть ещё точнее, то всё дело в dll:
ISSkin.dll - ANSI
ISSkinU.dll - Unicode

Вот:

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

Код:

#define Skin "Concave_Dark"
#define MyAppName "Crysis Wars Ex"
#define MyAppVersion "1.1.4"
#define MyAppPublisher "OMG!"
#define MyAppURL "http://www.om-studios.com/"

[Setup]
; Примечание: Значение AppId идентифицирует это приложение.
; Не используйте одно и тоже значение в разных установках.
; (Для генерации значения GUID, нажмите Инструменты | Генерация GUID.)
AppId={{007CE108-34A2-4013-935D-23EB4F1FA81D}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={code:MyConst}
DirExistsWarning=no
DisableProgramGroupPage=yes
CreateUninstallRegKey=yes
WizardImageFile=C:\Users\Razor\Downloads\Wizard.bmp
WizardSmallImageFile=C:\Users\Razor\Downloads\2000.bmp
OutputBaseFilename=Ex Mod
SetupIconFile=C:\Users\Razor\Downloads\2000.ico
UninstallIconFile=C:\Program Files (x86)\Smart Install Maker\Icons\Uninstall\Uninstall-9.ico
Compression=lzma2
SolidCompression=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

[Files]
Source: "D:\Проект Crysis\Mods\*"; DestDir: "{app}\Mods"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "ISSkin{#A}.dll"; DestDir: "{tmp}"; Flags: dontcopy
Source: "compiler:IS_Skin\Styles\{#Skin}.cjstyles"; DestDir: "{tmp}"; Flags: dontcopy
; Примечание: Не используйте "Flags: ignoreversion" для системных файлов

[Icons]
Name: "{commondesktop}\Crysis Wars EX 32bit"; Filename: "{code:MyConst}\Bin32\Crysis.exe"; Parameters: "/-MOD CrysisWars_EX"; Tasks: desktopicon
Name: "{commondesktop}\Crysis Wars EX 64bit"; Filename: "{code:MyConst}\Bin64\Crysis.exe"; Parameters: "/-MOD CrysisWars_EX"; Tasks: desktopicon

[Code]
// Процедуры работы со скинами
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:ISSkin{#A}.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:ISSkin{#A}.dll stdcall';

// Процедуры Вин-апи
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

// Настройка пути установки
function MyConst(Default: String): String;
var
ResultStr: String;
begin
  If RegQueryStringValue(HKLM, 'SOFTWARE\Crytek\Crysis Wars', 'Install Dir', ResultStr) then
  Result:=ResultStr
  else
  Result:= ExpandConstant('{pf64}\Crysis Wars Ex');
end;

// Блокирование меню выбора пути установки
Procedure InitializeWizard();
begin
    WizardForm.DirEdit.Enabled := False;
end;

// Загрузка скина инсталлятора
function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('{#Skin}.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\{#Skin}.cjstyles'), '');
  Result := True;
end;

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