[saurn]

diman_21Ru, хватит плодить одинаковые посты, яж не живу на форуме. Скрипт во вложении. Редактирование координат контролов и графика листа компонентов уже на вас. Нет времени.

[diman_21Ru]

saurn, спасибо

[vk.smoky@vk]

Как убрать файлы unins000??? Что-бы после установки они не появлялись.

[Shkutu]

vk.smoky@vk,

Код:

[Setup]
Uninstallable=no

[Raf-9600]

А на страницу "выбора дополнительных задач", которая появляется если в разделе скрипта [Tasks] что-то указать, можно как-то хинты пунктам выбора прикрутить? »

Так? »

Нет, мне нужны именно Hint, то есть всплывающие подсказки.

[vint56]

Raf-9600

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

#define MyAppName "Company of Heroes Anthology"
#define MyAppVersion "1.0"
#define MyAppExeName "Cod.exe"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName=CCleaner 4.09
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}


[Icons]
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Check: IconsCheck;

[code]
var
TasksPage: TWizardPage;
TasksLabel: TLabel;
DopIcons: TLabel;
CheckIcons: TNewCheckBox;

function IconsCheck: Boolean;
begin
Result:= CheckIcons.Checked;
end;

procedure InitializeWizard();
begin
TasksPage := CreateCustomPage(wpSelectProgramGroup, 'Выберите дополнительные задачи', 'Какие дополнительные задачи необходимо выполнить?');
TasksLabel := TLabel.Create(WizardForm);
with TasksLabel do
begin
Parent := TasksPage.Surface;
AutoSize := False;
WordWrap := True;
Caption := 'Выберите дополнительные задачи, которые должны выполниться при установке {#SetupSetting("AppName")}, после этого нажмите «Далее»:';
ShowAccelChar := False;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(417);
Height := ScaleY(27);
end;
DopIcons := TLabel.Create(WizardForm);
with DopIcons do
begin
Parent := TasksPage.Surface;
Caption := 'Дополнительные значки:';
Left := ScaleX(20);
Top := ScaleY(30);
Width := ScaleX(130);
Height := ScaleY(13);
end;
CheckIcons := TNewCheckBox.Create(WizardForm);
with CheckIcons do
begin
Parent := TasksPage.Surface;
Left := ScaleX(30);
Top := ScaleY(50);
Width := ScaleX(201);
Height := ScaleY(17);
Hint := 'Значек на рабочем столе';
Caption := 'Создать ярлык на рабочем столе';
ParentShowHint := False;
ShowHint := True;
Checked:=True;
end;
end;

[Shkutu]

Здравствуйте!
Обнаружился интересный момент. Если у файла в секции [Files] стоит проверка Check, то при подсчете объема памяти для установки этот файл не учитывается. Подскажите плиз, можно ли это как-то исправить/обойти?

[Raf-9600]

vint56, не, создание кастомной странички это слишком круто. Я надеялся что всплывашки на стандартную можно как-то прилепить... Но если нельзя то ладно.

Собственно у меня новый вопрос: можно ли как-то узнать разрешение экрана и в зависимости от того какое разрешение заносить в реестр определённый DWORD ключ?

[ChVL]

Из реестра экспортируется reg файл, в котором есть такие, например, строки:

@="\"C:\\Program Files\\MyTeam\\MyProg\\MyProg.exe\",0"
@="\"C:\\Program Files\\MyTeam\\MyProg\\MyProg.exe\" --started-from-file \"%1\""

ISTool их честно в скрипт так и записывает:

ValueData: "\""{app}\MyProg.exe\"",0"
ValueData: "\""{app}\MyProg.exe\"" --started-from-file \""%1\"""

Однако такую запись Windows не понимает, приходится убирать лишние слеши:

ValueData: """{app}\MyProg.exe"",0"
ValueData: """{app}\MyProg.exe"" --started-from-file ""%1"""

Слеши эти добавляются при экспортировании, а если reg файлик запустить, то запись оказывается нормальной. Иными словами, при экспортировании запись искажается, а при запуске такого reg файла - восстанавливается. На кой ляд такую хренотень замутили в Windows - не понятно.
Тем не менее из-за этого вот такой путь: [исходная запись в реестре > экспорт в reg файл > ISTool > скрипт > инсталляция > полученная запись в реестре] для подобных записей напрямую не проходит - требуется ручная корректировка скрипта.

Есть способ сделать без фокусов и на автомате?

[Johny777]

Raf-9600,
RegWriteDWordValue(..., Screen.Width);
RegWriteDWordValue(..., Screen.Height);


vk.smoky@vk, установить атрибут "скрытный"
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx