» Inno Setup (создание инсталяционных пакетов)

Dermuin

покажи полностью скрипт, ошибка в другом

вывожу во время инсталляции видео при помощи скрипта взятого из Inno Setup Scripting. На той машине на которой делался инсталлятор - все прекрасно работает, во время инсталла прокручивается видео файл. Запускаю инсталляцию на другой машине - видео не прокручивается (пишет что не найден файл распаковки видео изображения), хотя если запустить этот видео файл через проигрыватель - все работает. Кодек, используемый для записи клипа - Microsoft MPEG-4 V2

[more]#define MainExeX9 "{app}\HAWX.exe"
#define MainExeX10 "{app}\HAWX_dx10.exe"
#define GDFBinary "{app}\HAWX.exe"
#define MyAppNameX9 "Tom Clancy''s H.A.W.X - DirectX 9"
#define MyAppNameX10 "Tom Clancy''s H.A.W.X - DirectX 10"

[Setup]
AppName=Tom Clancy's H.A.W.X
AppVerName=Tom Clancy's H.A.W.X
DefaultDirName={pf}\Ubisoft\Tom Clancy's H.A.W.X
DefaultGroupName=Ubisoft\Tom Clancy's H.A.W.X
AllowNoIcons=true
OutputDir=.\
OutputBaseFilename=Setup
Compression=lzma/ultra
SolidCompression=true
InternalCompressLevel=ultra
AllowRootDirectory=true
AppendDefaultDirName=true
AppendDefaultGroupName=true
WizardImageFile=.\embedded\WizardImage.bmp
WizardSmallImageFile=.\embedded\WizardSmallImage.bmp
UninstallDisplayName=Tom Clancy's H.A.W.X
DiskSpanning=true
DiskSliceSize=734003200
LanguageDetectionMethod=none
ShowUndisplayableLanguages=false
ShowLanguageDialog=yes
VersionInfoDescription=Tom Clancy's H.A.W.X Setup
UninstallDisplayIcon={app}\HAWX.exe
UninstallFilesDir={app}\Uninstall
VersionInfoVersion=1.01
VersionInfoCompany=Ubisoft Bucharest
VersionInfoTextVersion=1.01
VersionInfoCopyright=Ubisoft Bucharest
AppPublisher=GFI Руссобит

[Languages]
Name: russian; MessagesFile: compiler:Default.isl
Name: english; MessagesFile: compiler:Languages\English.isl

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

[Files]
Source: .\Uninstall\GameuxInstallHelper.dll; DestDir: {app}\Uninstall; Flags: overwritereadonly
Source: .\FireWallInstall\FirewallInstallHelper.dll; DestDir: {app}
Source: .\Files\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: {group}\Tom Clancy's H.A.W.X - DirectX 9; Filename: {app}\HAWX.exe; WorkingDir: {app}; IconFilename: {app}\HAWX.exe; IconIndex: 0
Name: {group}\Tom Clancy's H.A.W.X - DirectX 10; Filename: {app}\HAWX_dx10.exe; WorkingDir: {app}; IconFilename: {app}\HAWX_dx10.exe; IconIndex: 0
Name: {group}\Uninstall; Filename: {uninstallexe}; WorkingDir: {app}
Name: {commondesktop}\Tom Clancy's H.A.W.X; Filename: {app}\HAWX.exe; Tasks: desktopicon; WorkingDir: {app}; IconFilename: {app}\HAWX.exe; MinVersion: 0,5.01.2600; OnlyBelowVersion: 0,6.0.6000
Name: {commondesktop}\Tom Clancy's H.A.W.X; Filename: {app}\HAWX_dx10.exe; Tasks: desktopicon; WorkingDir: {app}; IconFilename: {app}\HAWX_dx10.exe; MinVersion: 0,6.0.6000

[Run]
Filename: {app}\HAWX.exe; Description: {cm:LaunchProgram,Tom Clancy's H.A.W.X}; Flags: nowait postinstall skipifsilent unchecked; WorkingDir: {app}; Tasks: ; Languages: ; MinVersion: 0,5.01.2600; OnlyBelowVersion: 0,6.0.6000
Filename: {app}\HAWX_dx10.exe; Description: {cm:LaunchProgram,Tom Clancy's H.A.W.X}; Flags: nowait postinstall skipifsilent unchecked; WorkingDir: {app}; MinVersion: 0,6.0.6000

[Registry]
Root: HKLM; Subkey: SOFTWARE\Ubisoft; Flags: uninsdeletekeyifempty
Root: HKLM; Subkey: SOFTWARE\Ubisoft\Tom Clancy's H.A.W.X; Flags: uninsdeletekey
Root: HKLM; Subkey: SOFTWARE\Ubisoft\Tom Clancy's H.A.W.X; ValueName: language; ValueType: Dword; ValueData: $9
Root: HKLM; Subkey: SOFTWARE\Ubisoft\Tom Clancy's H.A.W.X\1.00.00000; ValueType: String
Root: HKLM; Subkey: SOFTWARE\Ubisoft\Tom Clancy's H.A.W.X\1.01.00000; ValueType: String
Root: HKLM; Subkey: SOFTWARE\Ubisoft\Tom Clancy's H.A.W.X\GU_DX9\GameUpdate; ValueName: execPath; ValueType: String; ValueData: {app}\HAWX.exe
Root: HKLM; Subkey: SOFTWARE\Ubisoft\Tom Clancy's H.A.W.X\GU_DX9\GameUpdate; ValueName: installdir; ValueType: String; ValueData: {app}
Root: HKLM; Subkey: SOFTWARE\Ubisoft\Tom Clancy's H.A.W.X\GU_DX9\GameUpdate; ValueName: language; ValueType: String; ValueData: us
Root: HKLM; Subkey: SOFTWARE\Ubisoft\Tom Clancy's H.A.W.X\GU_DX9\GameUpdate; ValueName: info; ValueType: String; ValueData: 0c6bbe22ec0ce54a91b41f4b93e44607

[CustomMessages]
russian.DelSave=Вы хотите удалить сохранения и настройки игры?
english.DelSave=You wish to remove preservations and game options?

[Code]
type
TGUID = record
Data1: Cardinal;
Data2,
Data3: Word;
Data4: array [0..8] of char;
end;

function GenerateGUID(var GUID: TGUID): Cardinal; external 'GenerateGUID@files:GameuxInstallHelper.dll stdcall setuponly';
function AddToGameExplorer(Binary: String; Path: String; InstallType: Integer; var GUID: TGUID): Cardinal; external 'AddToGameExplorerA@files:GameuxInstallHelper.dll stdcall setuponly';
function CreateTask(InstallType: Integer; var GUID: TGUID; TaskType: Integer; TaskNumber: Integer; TaskName: String; Binary: String; Parameters: String): Cardinal; external 'CreateTaskA@files:GameuxInstallHelper.dll stdcall setuponly';
function RetrieveGUIDForApplication(Binary: String; var GUID: TGUID): Cardinal; external 'RetrieveGUIDForApplicationA@{app}\Uninstall\GameuxInstallHelper.dll stdcall uninstallonly';
function RemoveFromGameExplorer(var GUID: TGUID): Cardinal; external 'RemoveFromGameExplorer@{app}\Uninstall\GameuxInstallHelper.dll stdcall uninstallonly';
function RemoveTasks(var GUID: TGUID): Cardinal; external 'RemoveTasks@{app}\Uninstall\GameuxInstallHelper.dll stdcall uninstallonly';

function AddApplicationToExceptionList(path: String; name: String): Boolean; external 'AddApplicationToExceptionListA@files:FirewallInstallHelper.dll stdcall setuponly';
function RemoveApplicationFromExceptionList(path: String): Boolean; external 'RemoveApplicationFromExceptionListA@{app}\FirewallInstallHelper.dll stdcall uninstallonly';

const
PlayTask = 0;

var
GUID: TGUID;
PageNameLabel, PageDescriptionLabel: TLabel;

procedure CurStepChanged(CurStep: TSetupStep);
var
Binary, MainExeX9, MainExeX10: String;
pathX9, pathX10, nameX9, nameX10: String;
begin
if CurStep = ssInstall then
GenerateGUID(GUID);

if CurStep = ssPostInstall then
begin
Binary:=ExpandConstant('{#GDFBinary}');
MainExeX9:=ExpandConstant('{#MainExeX9}');
MainExeX10:=ExpandConstant('{#MainExeX10}');
AddToGameExplorer(Binary, ExpandConstant('{app}'), 3, GUID);
CreateTask(3, GUID, PlayTask, 0, 'Играть Tom Clancy''s H.A.W.X - DirectX 9', MainExeX9, '');
CreateTask(3, GUID, PlayTask, 1, 'Играть Tom Clancy''s H.A.W.X - DirectX 10', MainExeX10, '');

pathX9:=ExpandConstant('{#MainExeX9}');
pathX10:=ExpandConstant('{#MainExeX10}');
nameX9:=ExpandConstant('{#MyAppNameX9}');
nameX10:=ExpandConstant('{#MyAppNameX10}');

AddApplicationToExceptionList(pathX9, nameX9);
AddApplicationToExceptionList(pathX10, nameX10);
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
Binary: String;
GUID: TGUID;
pathX9, pathX10: String;
begin
if CurUninstallStep=usUninstall then
begin
pathX9:=ExpandConstant('{#MainExeX9}');
pathX10:=ExpandConstant('{#MainExeX10}');
RemoveApplicationFromExceptionList(pathX9)
RemoveApplicationFromExceptionList(pathX10)
UnloadDll(ExpandConstant('{app}\FirewallInstallHelper.dll'));
begin
Binary:=ExpandConstant('{#GDFBinary}');
RetrieveGUIDForApplication(Binary, GUID);
RemoveFromGameExplorer(GUID);
RemoveTasks(GUID);
UnloadDll(ExpandConstant('{app}\Uninstall\GameuxInstallHelper.dll'));
begin
if CurUninstallStep=usUninstall then
begin
If DirExists(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X')
then
case MsgBox(ExpandConstant('{cm:DelSave}'), mbInformation, MB_YESNO)
of IDYES:
begin
DelTree(ExpandConstant('{app}'), True, True, True)
DelTree(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X', True, True, True)
end;
end;
end;
end;
end;
end;
end;[/more]

Добавлено:
У кавонибуть есть скрипт вот зтого AutoRun'a

Dermuin


Цитата:

У кавонибуть есть скрипт вот зтого AutoRun'a

Это не c помощью inno делается

Замени процедуру в своем коде на [more=эту][no]procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
Binary: String;
GUID: TGUID;
pathX9, pathX10: String;
begin
if CurUninstallStep=usUninstall
then begin
pathX9:=ExpandConstant('{#MainExeX9}');
pathX10:=ExpandConstant('{#MainExeX10}');
RemoveApplicationFromExceptionList(pathX9)
RemoveApplicationFromExceptionList(pathX10)
UnloadDll(ExpandConstant('{app}\FirewallInstallHelper.dll'));
Binary:=ExpandConstant('{#GDFBinary}');
RetrieveGUIDForApplication(Binary, GUID);
RemoveFromGameExplorer(GUID);
RemoveTasks(GUID);
UnloadDll(ExpandConstant('{app}\Uninstall\GameuxInstallHelper.dll'));
If DirExists(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X')
then case MsgBox(ExpandConstant('{cm:DelSave}'), mbInformation, MB_YESNO) of
IDYES: begin
DelTree(ExpandConstant('{app}'), True, True, True)
DelTree(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X', True, True, True)
end;
end;
end;
end;[/no][/more]

кто нибудь ответит на мой вопрос выше
Цитата:

кто нибудь может помочь как вставить картинку в поле отмеченное красным

Цитата:

У кавонибуть есть скрипт вот зтого AutoRun'a

- этого нет, а вообще autorun ты можешь сделать с помощью AutoPlay Menu Builder или AutoPlay Media Studio

DeKaNszn
Alex Zaguzin
Я на сайте видел демо версию скрипта AutoRun'a
Он сделан на Inno Setup

Dermuin
С помощью инно можно сделать авторан, сам когда-то для кого-то делал, но уже не помню для кого, поищи в старых ветках может найдешь.

А что подскажите по поводу этого вопроса.

Цитата:

вывожу во время инсталляции видео при помощи скрипта взятого из Inno Setup Scripting. На той машине на которой делался инсталлятор - все прекрасно работает, во время инсталла прокручивается видео файл. Запускаю инсталляцию на другой машине - видео не прокручивается (вывод видеоизображения недоступен, не найдена программа распаковки), хотя если запустить этот видео файл через проигрыватель - все работает. Кодек, используемый для записи клипа - Microsoft MPEG-4 V2. В чем может быть проблема?

Повторю свои вопросы.


Подскажите пожалуйста, как в этом окне (и ему подобных, т.е. не основные окна инсталлятора) изменить размер и вид шрифта? Каким образом можно отцентровать текст в этом окне?


Возможно ли в окне выбора компонентов каким-либо образом изменить шрифт этих строк (например, сделать жирными и т.д.)?

Можно ли в инсталлере поменять местами страницу, отвечающую за секцию [Tasks], и страницу выбора компонентов?

Если ответы на эти вопросы есть где-то в справке или ФАК-ах, прошу прошения, но ничего похожего вроде не обнаружил.

Заранее спасибо.

DeKaNszn
Код не работает, таже ошибка

Кто нибудь помогите срочна как вставит картинку в поле отмеченное красним <a href='http://smages.com/' title='Smages — бесплатный хостинг изображений' target='_blank'><img src='http://smages.com/i/a4/2b/a42bdad149e9f9342f26304481c31943.jpg' border='0'></a>

Добавлено:
Кто нибудь помогите срочна как вставит картинку в поле отмеченное красним (извините ошибся в первом сообшение)

Добавлено:
и может у кавота есть скрипт штоби в установленной папке с игрой создавалось папка Uninstall в котором лежит uninstal000.exe

Dermuin

пробуй [more=так][no]procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
Binary,tmp: String;
GUID: TGUID;
pathX9, pathX10: String;
begin
if CurUninstallStep=usUninstall
then begin
pathX9:=ExpandConstant('{#MainExeX9}');
pathX10:=ExpandConstant('{#MainExeX10}');
RemoveApplicationFromExceptionList(pathX9)
RemoveApplicationFromExceptionList(pathX10)
UnloadDll(ExpandConstant('{app}\FirewallInstallHelper.dll'));
Binary:=ExpandConstant('{#GDFBinary}');
tmp:=ExpandConstant('{cm:DelSave}');
RetrieveGUIDForApplication(Binary, GUID);
RemoveFromGameExplorer(GUID);
RemoveTasks(GUID);
UnloadDll(ExpandConstant('{app}\Uninstall\GameuxInstallHelper.dll'));
If DirExists(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X')
then case MsgBox(tmp, mbInformation, MB_YESNO) of
IDYES: begin
DelTree(ExpandConstant('{app}'), True, True, True)
DelTree(ExpandConstant('{userdocs}')+'\Tom Clancy''s H.A.W.X', True, True, True)
end;
end;
end;
end; [/no][/more]

Цитата:

штоби в установленной папке с игрой создавалось папка Uninstall в котором лежит uninstal000.exe

UninstallFilesDir={app}\Uninstall

Подскажите пожалуйста:
Как секцию

Код: [Registry]
Root: HKCU; Subkey: Software\2VG\Download Master; ValueName: InstallPath; ValueType: String; ValueData: {app}; Flags: uninsdeletekey; Components: ALLINONE
Root: HKCU; Subkey: Software\2VG\Download Master; ValueName: ExeFile; ValueType: String; ValueData: {app}\dmaster.exe; Flags: uninsdeletekey; Components: ALLINONE

Yoldosh

Цитата:

вставить картинку в поле отмеченное красным

[more=Такой]

[Setup]
AppName=My Program
AppVerName=My Program v 1.0
DefaultDirName={pf}\My Program
OutputDir=userdocs:

[Files]
Source: "bmp.bmp"; Flags: dontcopy;

[Code]

procedure InitializeWizard();
var
BmpFile: TBitmapImage;
begin
ExtractTemporaryFile('bmp.bmp');
BmpFile := TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\bmp.bmp'));
BmpFile.Width := ScaleX(497);
BmpFile.Height := ScaleY(252);
BmpFile.Parent := WizardForm.SelectDirPage;

with WizardForm do
begin
DiskSpaceLabel.Left := DiskSpaceLabel.Left + ScaleX(40);
DiskSpaceLabel.Top := DiskSpaceLabel.Top + ScaleY(12);
SelectDirBitmapImage.Hide;
DirBrowseButton.Left := DirBrowseButton.Left + ScaleX(40);
DirBrowseButton.Top := DirBrowseButton.Top + ScaleY(12);
DirEdit.Left := DirEdit.Left + ScaleX(40);
DirEdit.Top := DirEdit.Top + ScaleY(12);
SelectDirBrowseLabel.Left := SelectDirBrowseLabel.Left + ScaleX(40);
SelectDirBrowseLabel.Top := SelectDirBrowseLabel.Top + ScaleY(12);
SelectDirLabel.Left := ScaleX(40);
SelectDirLabel.Top := SelectDirLabel.Top + ScaleY(12);
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.InnerNotebook.Left := ScaleX(40);
WizardForm.InnerNotebook.Top := ScaleY(72);
WizardForm.InnerNotebook.Width := ScaleX(417);
WizardForm.InnerNotebook.Height := ScaleY(237);
if CurPageID = wpSelectDir then
begin
WizardForm.InnerNotebook.Left := ScaleX(0);
WizardForm.InnerNotebook.Top := ScaleY(60);
WizardForm.InnerNotebook.Width := ScaleX(497);
WizardForm.InnerNotebook.Height := ScaleY(252);
end;
end;
[/more] вариант подойдёт?


Добавлено:
elchupakabra

Цитата:

выполнить после отработки секции [Run]

Думаю [more=Так]

[Run]
; последнее задание в секции.
Filename: "{win}\notepad.exe"; AfterInstall: "GetRegFunct()";

[Code]
procedure GetRegFunct();
begin
if IsComponentSelected('ALLINONE') then
RegWriteStringValue(HKLM, 'Software\2VG\Download Master', 'InstallPath', ExpandConstant('{app}'));
RegWriteStringValue(HKLM, 'Software\2VG\Download Master', 'ExeFile', ExpandConstant('{app}\dmaster.exe'));
end;
[/more]

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


Код: [Files]
Source: C:\My Ptog\My Folder\*; DestDir: {app}\My Folder; Flags: recursesubdirs createallsubdirs; Excludes: \FOLDER1, \FOLDER2

kombat 77
спасибо огромное !!!!!!

Толькл начал осваивать программу InnoSetup. Сделал инсталлятор к игре . при запуске "вылетает" игра с ошибкой -Could not find the default preferences
The data directory is missing or corrupt..(настройки игры при запуске?) подскажите пожалуйста как исправить?
[more=Скрипт] создан при помощи мастера создания скриптов.
; СМ. ДОКУМЕНТАЦИЮ ДЛЯ ИЗУЧЕНИЯ ДЕТАЛЕЙ ОТНОСИТЕЛЬНО СОЗДАНИЯ ФАЙЛОВ СКРИПТА INNO SETUP!

#define MyAppName "SPORE™"
#define MyAppVerName "Version 1.5"
#define MyAppPublisher "XXX, Inc."
#define MyAppExeName "SporeApp.exe"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
DefaultDirName=D:\Games\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=true
LicenseFile=C:\Program Files\Electronic Arts\SPORE\Sporebin\readme.txt
OutputDir=C:\Output
OutputBaseFilename=setup
Compression=none
SolidCompression=true
InternalCompressLevel=none
DiskSpanning=true
DiskSliceSize=700000000

[Languages]
Name: russian; MessagesFile: compiler:Default.isl

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

[Files]
Source: C:\Program Files\Electronic Arts\SPORE\Sporebin\SporeApp.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\Program Files\Electronic Arts\SPORE_BP1\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: C:\Program Files\Electronic Arts\SPORE\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; ОТМЕТЬТЕ: Не используйте "Флажки: Проигнорировать версию" на любых общедоступных системных файлах

[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: quicklaunchicon

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

jetrotools
Приложи скрипт. Возможно, папка с игрой создается там, где нет прав у устанавливающего.

У меня простая задача - нужно установитъ (запуститъ setup.exe) програму с параметром " -xxx -yyy" ,инсталер должен бытъ в режиме "silent install" (без gui), дайте пример как зделатъ - скрипт .... спс...(нужен для создания аддонов) .... ?!

ruslanxxx
По первому пункту:
В секции [Run]
Filename: "{app}\setup.exe"; Parameters: "-xxx -yyy"

По второму пункту см. ХЕЛП:
/SILENT, /VERYSILENT
Instructs Setup to be silent or very silent. When Setup is silent the wizard and the background window are not displayed but the installation progress window is. When a setup is very silent this installation progress window is not displayed. Everything else is normal so for example error messages during installation are displayed and the startup prompt is (if you haven't disabled it with DisableStartupPrompt or the '/SP-' command line option explained above)

Я должен запуститъ готовый инстал с параметром /SILENT или /VERYSILENT ?.. а можно толъко запуститъ толъко .ехе инстал но чтоб без /SILENT или /VERYSILENTв режиме "silent install" ??

noiseless - можешь посмотреть в моем первом сообщении скрипт. думаю с реестром надо разбираться ...

Ситуация немного поменялась, от этого перефразировал свой вопрос.
Надеюсь на вашу помощь.

Как к чекбоксу каторый выделен на скрине привязать функцию: чтоб в ячейку каторая на срине вводилось 3х значное число и число должно быть доьавлено в файл Connection Manager.exe(проподчить файл).

Dermuin

Цитата:

Как к чекбоксу каторый выделен на скрине привязать функцию

[more=Пример]


[Setup]
AppName=Connection Manager for MF626
AppVerName=Connection Manager for MF626
DefaultDirName={pf}\Connection Manager
OutputDir=userdocs:

[Code]

var
SettingPage: TWizardPage;
WizText, MemoText1, MemoText2: TNewStaticText;
CustomMemo: TNewEdit;
Text1, CCheck1, CCheck2, CCheck3, CCheck4: TCheckBox;

procedure Text1OnClick(Sender: TObject);
begin
if Text1.Checked then
MemoText1.Caption := '#'
else
MemoText1.Caption := '*';
end;

function GetCurString(): String;
begin
if Text1.Checked then
Result := '#'
else
Result := '*';
end;

procedure InitializeWizard();
begin
SettingPage := CreateCustomPage(wpWelcome, 'Настройки', '');

WizText := TNewStaticText.Create(SettingPage);
WizText.Top := ScaleY(5);
WizText.Width := ScaleX(400);
WizText.Caption := 'Номер запроса баланса по умолчанию';
WizText.Parent := SettingPage.Surface;

MemoText1 := TNewStaticText.Create(SettingPage);
MemoText1.Top := WizText.Top + WizText.Height + ScaleY(8);
MemoText1.Font.Size := 16;
MemoText1.Caption := '*';
MemoText1.Parent := SettingPage.Surface;

CustomMemo := TNewEdit.Create(SettingPage);
CustomMemo.Top := WizText.Top + WizText.Height + ScaleY(10);
CustomMemo.Left := MemoText1.Width + ScaleX(5);
CustomMemo.Width := ScaleX(50);
CustomMemo.Text := '100';
CustomMemo.Parent := SettingPage.Surface;

Text1 := TCheckBox.Create(SettingPage);
Text1.Top := CustomMemo.Top + CustomMemo.Height + ScaleY(10);
Text1.Width := ScaleX(150);
Text1.Caption := 'Номер начинается с #';
Text1.Checked := False;
Text1.OnClick := @Text1OnClick;
Text1.Parent := SettingPage.Surface;

MemoText2 := TNewStaticText.Create(SettingPage);
MemoText2.Top := WizText.Top + WizText.Height + ScaleY(8);
MemoText2.Left := CustomMemo.Left + ScaleX(53);
MemoText2.Font.Size := 16;
MemoText2.Caption := '#';
MemoText2.Parent := SettingPage.Surface;

CCheck1 := TCheckBox.Create(SettingPage);
CCheck1.Top := WizardForm.InnerNotebook.Height / 2;
CCheck1.Width := ScaleX(400);
CCheck1.Checked := True;
CCheck1.Caption := 'Патч корректировки русского языка от SerGGGik (Vista)';
CCheck1.Parent := SettingPage.Surface;

CCheck2 := TCheckBox.Create(SettingPage);
CCheck2.Top := CCheck1.Top + CCheck1.Height + ScaleY(10);
CCheck2.Left := ScaleX(20);
CCheck2.Width := ScaleX(380);
CCheck2.Checked := False;
CCheck2.Caption := 'Заменить файл lan_RUS.dll';
CCheck2.Parent := SettingPage.Surface;

CCheck3 := TCheckBox.Create(SettingPage);
CCheck3.Top := CCheck2.Top + CCheck2.Height + ScaleY(10);
CCheck3.Width := ScaleX(400);
CCheck3.Checked := True;
CCheck3.Caption := 'Установить драйвера модема';
CCheck3.Parent := SettingPage.Surface;

CCheck4 := TCheckBox.Create(SettingPage);
CCheck4.Top := CCheck3.Top + CCheck3.Height + ScaleY(10);
CCheck4.Width := ScaleX(400);
CCheck4.Checked := True;
CCheck4.Caption := 'Автоматический запуск программы при включении модема';
CCheck4.Parent := SettingPage.Surface;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
begin
DeleteFile(ExpandConstant('{userdesktop}\info.txt'));
SaveStringToFile(ExpandConstant('{userdesktop}\info.txt'), GetCurString + CustomMemo.Text + '#' + #13#10, True);
// ... if CCheck1.Checked then Result?
end;
end;
[/more] сохранения результата в "info.txt" на рабочий стол.
В ".exe", насколько я знаю тоже можно, если знать что на что надо заменить, и если экзешник ни чем не упакован.

Dermuin


Цитата:

чтоб в ячейку каторая на срине вводилось 3х значное число

в код от kombat 77 после
Код: [no]CustomMemo.Text := '100';[/no]

Dermuin
вы спрашивали об авторане - пример

Serega0675
DeKaNszn
Спасибо
kombat 77
А можно поподробней о внесении изменений в экзешник.