[vk_k14m@vk]

Указали не правильную константу. »

Ясно...

[vk_k14m@vk]

Народ. Есть игра, в корне которой лежит текстовый файл config.ksc, с текстом

Код:

(const) %[
 "saveDataLocation" => "file://./d/документы/fateavedata"
]

d/документы/fateavedata - это папка в которую игра будет сохранятся.

Так вот как бы настроить создание этого файла в установщике?

Нужно что б на странице выбора папки установки игры, или на следующей после этой странице можно было выбрать путь к папке сохранения (и создание этой папки если ее нет). И после завершения установки этот путь должен прописаться в файле config.ksc

Как бы это провернуть? Надеюсь на вашу помощь...

[El Sanchez]

Так вот как бы настроить создание этого файла в установщике? »

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

Код:

[Code]
procedure RtlMoveMemory(Dest: PAnsiChar; Source: string; Len: Integer); external 'RtlMoveMemory@kernel32.dll stdcall';

var
  SaveDataLocationPage: TInputDirWizardPage;

procedure SetSaveDataLocation;
var
  S1: string;
  S2: AnsiString;
begin
  S1 := SaveDataLocationPage.Values[0];
  StringChangeEx(S1, ':', '', True);
  StringChangeEx(S1, '\', '/', True);
  S1 := '%["saveDataLocation" => "file://./' + S1 + '"]';
  S2 := StringOfChar(#0, Length(S1) shl 1);
  RtlMoveMemory(S2, S1, Length(S2));
  S2 := Chr($FF) + Chr($FE) + S2;
  SaveStringToFile(ExpandConstant(CurrentFileName), S2, False);
end;

procedure CreateSaveDataLocationPage;
begin
  SaveDataLocationPage := CreateInputDirPage(wpSelectDir, 'caption', 'description', 'subcaption', False, 'fateavedata');
  SaveDataLocationPage.Add('prompt');
end;

procedure InitializeWizard;
begin
  CreateSaveDataLocationPage;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    SaveDataLocationPage.ID:
      if SaveDataLocationPage.Values[0] = '' then
        SaveDataLocationPage.Values[0] := ExpandConstant('{app}\fateavedata');
  end;
end;

[Dodakaedr]

S2 := Chr($FF) + Chr($FE) + S2; »

А какие начальные байты у ANSI?

[Iska]

Dodakaedr, никаких. Для ANSI и OEM нет BOM.

[vk_k14m@vk]

El Sanchez, к сожалению твой код не работает. Или правильнее будет сказать, работает не до конца. Страница в выбором папки установки и правда появилась.
https://i106.fastpic.ru/big/2019/061...eabf7dd4c8.png

Вот только файл config.ksc с текстом

Код:

(const) %[
 "saveDataLocation" => "file://./{app}\fateavedata"
]

в папке с игрой не появляется. Может я что-то не так сделал?

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

Код:

; Скрипт создан при помощи мастера создания скриптов.
; СМ. ДОКУМЕНТАЦИЮ ДЛЯ ИЗУЧЕНИЯ ДЕТАЛЕЙ ОТНОСИТЕЛЬНО СОЗДАНИЯ ФАЙЛОВ СКРИПТА INNO SETUP!

#define MyAppName "Fate／Stay Night [Realta Nua] - Ultimate Edition"
#define MyAppVerName "Fate／Stay Night [Realta Nua] - Ultimate Edition v0.9.1"
#define MyAppPublisher "Type-Moon"
#define MyAppExeName "Fate.exe"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
DefaultDirName=D:\Games\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputDir=D:\
OutputBaseFilename=setup
DisableWelcomePage=no
SetupIconFile=D:\Fate／Stay Night [Realta Nua] - Ultimate Edition\icon.ico
WizardImageFile=D:\Fate／Stay night\WizardImageFile.bmp
WizardSmallImageFile=D:\Fate／Stay night\WizardSmallImageFile.bmp
Compression=lzma/ultra64
SolidCompression=yes
DiskSpanning=yes
DiskSliceSize=1073741824

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

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

[Files]
Source: "D:\Fate／Stay Night [Realta Nua] - Ultimate Edition\Fate.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Fate／Stay Night [Realta Nua] - Ultimate Edition\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; ОТМЕТЬТЕ: Не используйте "Флажки: Проигнорировать версию" на любых общедоступных системных файлах

[Code ]
procedure RtlMoveMemory(Dest: PAnsiChar; Source: string; Len: Integer); external 'RtlMoveMemory@kernel32.dll stdcall';

var
  SaveDataLocationPage: TInputDirWizardPage;

procedure SetSaveDataLocation;
var
  S1: string;
  S2: AnsiString;
begin
  S1 := SaveDataLocationPage.Values[0];
  StringChangeEx(S1, ':', '', True);
  StringChangeEx(S1, '\', '/', True);
  S1 := '%["saveDataLocation" => "file://./' + S1 + '"]';
  S2 := StringOfChar(#0, Length(S1) shl 1);
  RtlMoveMemory(S2, S1, Length(S2));
  S2 := Chr($FF) + Chr($FE) + S2;
  SaveStringToFile(ExpandConstant(CurrentFileName), S2, False);
end;

procedure CreateSaveDataLocationPage;
begin
  SaveDataLocationPage := CreateInputDirPage(wpSelectDir, 'Выбор папки сохранений', 'В какую папку должна сохраняться игра Fate／Stay Night [Realta Nua] - Ultimate Edition?', 'Программа настроит сохранения игры Fate／Stay Night [Realta Nua] - Ultimate Edition в следующую папку.', False, 'fateavedata');
  SaveDataLocationPage.Add('Нажмите «Далее», что бы продолжить. Если вы хотите выбрать другую папку, нажмите «Обзор».');
end;

procedure InitializeWizard;
begin
  CreateSaveDataLocationPage;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    SaveDataLocationPage.ID:
      if SaveDataLocationPage.Values[0] = '' then
        SaveDataLocationPage.Values[0] := ExpandConstant('{app}\fateavedata');
  end;
end;

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyAppName}}"; Flags: nowait postinstall skipifsilent

А еще, можно как то разобрать уже созданный установщик что б узнать исходный код? Я не знаю в какой программе он был создан, но очень бы хотелось его разобрать...

[ErikPshat]

vk_k14m@vk, ну свою прогу вы можете распаковать этим: Inno Setup Unpacker
Секцию Code вы конечно не дизассемблируете, т.к. она в бинарном виде изначально будет упакована, но всё остальное прекрасно извлекается.
А вот надо сначала узнать, в какой программе был создан экзешник, потом извлекать соответствующим софтом.

[vk_k14m@vk]

ну свою прогу вы можете распаковать этим: Inno Setup Unpacker Секцию Code вы конечно не дизассемблируете, т.к. она в бинарном виде изначально будет упакована, но всё остальное прекрасно извлекается. А вот надо сначала узнать, в какой программе был создан экзешник, потом извлекать соответствующим софтом. »

Жаль. Тот установщик который я хочу распаковать не содержит в себе файлов. Он качает их откуда-то в интернете. Так что скорее всего мне именно секция Code и нужна.

А можно как то узнать в какой программе был создан установщик?

[ErikPshat]

А можно как то узнать в какой программе был создан установщик? »

Вот вам список прог в помощь: PEiD, DiE (Detect It Easy), Bit Detector, SCANiT, ExeScan, FastScanner и PE Tools
Ну или вот вам пару ресурсов:

1. https://exelab.ru/download.php
2. http://www.manhunter.ru/underground/...ih_faylov.html

[El Sanchez]

Вот только файл config.ksc с текстом в папке с игрой не появляется. Может я что-то не так сделал? »

vk_k14m@vk, ой, не все скопировал у себя, когда пост оформлял. Добавить в [Files] пустышку config.ksc:

Код:

[Files]
Source: config.ksc; DestDir: {app}; AfterInstall: SetSaveDataLocation