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

[AlekseyPopovv]

saurn,

http://i63.fastpic.ru/big/2014/1002/...cb17e62c21.png

И

http://i63.fastpic.ru/big/2014/1002/...c432639227.png

заменил, ошибка осталась.

[AlekseyPopovv]

Цитата Dinvin4ester:



заменил, ошибка осталась.

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

Без конструкции case of. По сути она там и не нужна.

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

Код:

Код: Выделить всё

procedure TButtonOnClick( Sender: TObject );
var
    iForm: Tform;
begin
    iForm := TForm.Create( nil );
    with iForm do
    try
        BorderIcons := [];
        ClientWidth := ScaleX( 300 );
        ClientHeight := ScaleY( 300 );
        Caption := 'Информация';
        Position := poScreenCenter;
        with TBevel.Create( nil ) do
        begin
            Parent := iForm;
            SetBounds( ScaleX( 8 ), ScaleY( 8 ), ScaleX( 284 ), ScaleY( 249 ) );
            Shape := bsFrame;
        end;
        with TNewStaticText.Create( nil ) do
        begin
            Parent := iForm;
            SetBounds( ScaleX( 12 ), ScaleY( 12 ), ScaleX( 276 ), ScaleY( 241 ) );
            AutoSize := False;
            Caption := 'Информация:' + #13#10 +
                       'Версия:'     + #13#10 +
                       'И т.д.';
            WordWrap := True;
        end;
        with TNewButton.Create( nil ) do
        begin
            Parent := iForm;
            SetBounds( ScaleX( 112 ), ScaleY( 266 ), ScaleX( 76 ), ScaleY( 25 ) );
            ModalResult := mrOk;
            Caption := 'Закрыть';
        end;
            ModalResult := ShowModal();
        finally
            Free;
        end;
end;

[diman_21Ru]

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

[Tasks]

Name: tweaker; Description: WoT Tweaker Plus; Flags: dontinheritcheck

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

[Dodakaedr]

Цитата Dinvin4ester:



Как сделать выбор установки русского и английского языка ?

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

Код:

Код: Выделить всё

[Languages]
Name: en; MessagesFile: "compiler:Default.isl"
Name: ru; MessagesFile: "compiler:Languages\Russian.isl"
[Messages]
en.BeveledLabel=English
ru.BeveledLabel=Русский
[CustomMessages]
//сообщения для en
en.MyDescription=My description
en.MyAppName=My Program
en.MyAppVerName=My Program %1
//сообщения для ru
ru.MyDescription=Мое описание
ru.MyAppName=Моя программа
ru.MyAppVerName=Моя программа %1

Стандартные Messages переводить не требуется, кроме BeveledLabel. А кастомные сообщения нужно будет писать отдельно для каждого языка. en. и ru. в скрипте - это указатели на необходимый язык в секции Languages.

[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]

diman_21Ru,



Код:

Код: Выделить всё

procedure InitializeWizard();
begin
  with TNewButton.Create(WizardForm) do
  begin
    Parent := WizardForm;
    Left := ScaleX(8);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'NewButton1';
  end;
end;

[Dodakaedr]

saurn, А кликабельность как добавить к нему

[diman_21Ru]

Цитата diman_21Ru:



А кликабельность как добавить к нему

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

Код:

Код: Выделить всё

procedure btnOnClick(Sender: TObject);
begin
    MsgBox( 'Click', mbInformation, MB_OK );
end;
procedure InitializeWizard();
begin
  with TNewButton.Create(WizardForm) do
  begin
    Parent := WizardForm;
    Left := ScaleX(8);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'NewButton1';
    OnClick := @btnOnClick;
  end;
end;

[diman_21Ru]

Dodakaedr, Не знаешь как прозрачность вернуть если сталкивался с windows 8.1 с проблемами

[diman_21Ru]

Народ подскажите как исправить вот это посмотрите оба скрина первый запускается на Windows 7 второй на windows 8.1