Скрипты Inno Setup. Помощь и советы [часть 7]

[dracosha]

Народ подскажите пожалуйста как в секции [Run] заморозить птичку на чекбоксе (т.е. как бы применить флаг fixed)?

[nik1967]

Dinvin4ester, держи (https://yadi.sk/d/GsFgWe3RbhfNT). Заодно перелопатил всё, что связано с IsDone - где ты такую версию древнюю откопал? Используй с теми файлами, что в архиве, я там многое обновил.
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
dracosha, насколько мне не изменяет мой склероз, то название_чекбокса.enabled:= false;

[saurn]

dracosha
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
PrivilegesRequired=none
OutputDir=...

[Files]
Source: compiler:license.txt; DestDir: {app};

[Run]
Filename: {app}\license.txt; Flags: postinstall shellexec;

[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpFinished: WizardForm.RunList.ItemEnabled[0] := False;
end;
end;

[Dinvin4ester]

nik1967,
Огромное вам спасибо. Мне один человек скинул этот исдан.

[Dodakaedr]

Подскажите как при использовании BorderStyle := bsDialog; добавить свою иконку?
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: "Icon Entry_3.ico"; DestDir: {tmp}; Flags: dontcopy

[Code]
function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\Icon Entry_3.ico')) then ExtractTemporaryFile('Icon Entry_3.ico');
Result := True;
end;

procedure NewIcon;
var
Icon: TNewIcon;
begin
Icon := TNewIcon.Create;
Icon.LoadFromFile(ExpandConstant('{tmp}\Icon Entry_3.ico'));
Icon.Width := 48;
Icon.Height := 48;
WizardForm.Icon.Handle := Icon.Handle;
end;

procedure InitializeWizard();
begin
NewIcon;
with WizardForm do
begin
ClientHeight:=100;
ClientWidth:=200;
BorderStyle := bsDialog;
Caption := 'xxx'
end;
end;

[saurn]

Dodakaedr, без изменения BorderStyle и BorderIcons. Иконка в ресурсах. Ненужные кнопки - свернуть и развернуть - отключены.
#ifndef IS_ENHANCED
#error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
PrivilegesRequired=none
IconResource=setup_icon:_IS_SETUP_ICON.ico
OutputDir=...


[code]
#define A = (Defined UNICODE) ? "W" : "A"


const
IMAGE_ICON = 1;

GWL_STYLE = -16;

WS_MINIMIZEBOX = $20000;
WS_MAXIMIZEBOX = $10000;


function LoadImage( hInst: UINT; ImageName: String; ImageType: UINT; X, Y: Integer; Flags: UINT ): THandle; external 'LoadImage{#A}@user32.dll stdcall';
function SetWindowLong( Wnd: HWnd; Index: Integer; NewLong: Longint ): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function GetWindowLong( hWnd: HWND; nIndex: Integer ): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';


procedure InitializeWizard();
var
hIcon: THandle;
begin
SetWindowLong( WizardForm.handle, GWL_STYLE, GetWindowLong( WizardForm.handle, GWL_STYLE ) and ( not WS_MINIMIZEBOX ) and ( not WS_MAXIMIZEBOX ) );

hIcon := LoadImage( HInstance, '_IS_SETUP_ICON', IMAGE_ICON, 16, 16, 0 );
WizardForm.Icon.Handle := hIcon;
end;

В архиве скрипт и иконка

[Dodakaedr]

В архиве скрипт и иконка »
Спасибо! А как указать свое имя иконки? Меняю здесь IconResource=setup_icon:My_icon.ico и здесь hIcon := LoadImage( HInstance, 'My_icon', IMAGE_ICON, 48, 48, 0 );
Не срабатывает.

[saurn]

Dodakaedr, стормозил спросонья)
Если нужно изменить имя иконки, меняйте его в секции Setup
IconResource=setup_icon:My_icon.ico
setup_icon - имя ресурса, его менять не нужно. My_icon.ico - имя иконки(можно указывать так же полный путь к файлу иконки, если он не рядом со скриптом)вот его и меняйте.

А в функции LoadImage должно быть указано имя ресурса( по типу _IS_имяресурса, но не имя иконки, то есть:
hIcon := LoadImage( HInstance, '_IS_SETUP_ICON', IMAGE_ICON, 48, 48, 0 );

P.S
Имя ресурса можно указать любое, например moya_iconka. Только не забудьте указать имя ресурса в функии, в данном случае _IS_MOYA_ICONKA

[diman_21Ru]

Всем привет, кто может дать ботву на кнопки были раньше потерял

[R.i.m.s.k.y.]

глянул в помощь: инно не умеет писать произвольные строки в текстовый файл?
пока выкрутился SetIniString, но может есть функция типа WriteLN() :)

[nik1967]

R.i.m.s.k.y., а чем function SaveStringToFile(const FileName, S: AnsiString; const Append: Boolean): Boolean;
function SaveStringsToFile(const FileName: String; const S: TArrayOfString; const Append: Boolean): Boolean;
function SaveStringsToUTF8File(const FileName: String; const S: TArrayOfString; const Append: Boolean): Boolean; не угодили?

[R.i.m.s.k.y.]

nik1967, я про них не знал

[Dodakaedr]

кто может дать ботву на кнопки »
У меня такой пример есть

[AlekseyPopovv]

Как сделать что бы значение AppId менялось в зависимости от выбранной версии?
То есть у меня в инсталле 4 версии: free, pro, bus, tec. При установке двух версий, в панели управления остаётся только последняя, то есть вторая затирает первую. Как избавиться от этого?

[Dodakaedr]

Как сделать что бы значение AppId менялось в зависимости от выбранной версии? »
Попробуйте так.

[AlekseyPopovv]

Dodakaedr
Спасибо. Я забыл дописать вот это:

[Code]
var
AppId: String;

[diman_21Ru]

Как можно в даннном коде убрать галочку по умолчанию ?

[Tasks]
Name: tweaker; Description: WoT Tweaker Plus; Flags: dontinheritcheck
Name: tweaker\t1; Description: Убрать Отображение облаков; Flags: dontinheritcheck

[Dodakaedr]

Как можно в даннном коде убрать галочку по умолчанию ? »
[Tasks]
Name: tweaker; Description: WoT Tweaker Plus; Flags: dontinheritcheck unchecked
Name: tweaker\t1; Description: Убрать Отображение облаков; Flags: dontinheritcheck unchecked

[diman_21Ru]

Ребята возникла проблема в коде пишет игра не найдена в чем может быть проблема ?

function NextButtonClick(CurPageID: Integer): Boolean;
var
msg, ver: string;
begin
Result := True;

case CurPageID of
wpSelectDir:
begin
msg := '';

if not FileExists( ExpandConstant( '{app}\WorldOfTanks.exe' ) ) then
msg := 'Установка модов невозможна, так как по выбранному пути отсутствует клиент игры World of Tanks. Выберите правильный путь и продолжайте установку!'
else if GetVersionNumbersString( ExpandConstant( '{app}\WorldOfTanks.exe' ), ver) then
if ( ver <> '0.9.3' ) then
msg := 'Моды не будут работать на данной версии игры! Моды предназначены для версии патча 0.9.3 Обновите клиент игры! ';

Result := msg = '';

if not Result then
MsgBox( msg, mbError, MB_OK );
end;
end;
end;

[Dodakaedr]

пишет игра не найдена »
Если она действительно есть, то правильно ли она прописана и соответствует ли версия файла.