[by_gangster]

saurn, Ну я и нуб, как я сразу не понял...

[by_gangster]

Может кому-нибудь пригодится полезный скрипт.

Перед запуском инсталлятор проверяет на наличие необходимой программы через реестр... В данном случае это игра S.T.A.L.K.E.R Зов Припяти

Код:

function InitializeSetup(): Boolean;
begin
 Result:=True;
 If (not RegKeyExists(HKLM, 'Software\GSC Game World\STALKER-COP')) then
 begin
  MsgBox('Не установлена игра S.T.A.L.K.E.R Зов Припяти', mbError, mb_Ok);
  Result:=False;
end;
end;

[saurn]

by_gangster, можно эффективней, проверить наличие ветки реестра и одновременно наличие некоего файла в папке с игрой(в данном случае ексишника деинсталятора), на случай, если папку с игрой снесли, а хвосты в реестре остались:

Код:

function InitializeSetup(): Boolean;
begin
  Result := FileExists(RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\S.T.A.L.K.E.R._is1,UninstallString}')));
  if not Result then MsgBoxEx(0, 'Игра не установлена.', 'Игра не установленна', MB_OK or MB_ICONWARNING, 0, 0)
end;

[by_gangster]

Скажите пожалуйста как в этом примере можно изменить шрифт ?

[Mailchik]

by_gangster,

Код:

Font.Name := 'бла-бла-бла;

---------------------------------------------------------------------------------------------------------------------------------------

Может кому-нибудь пригодится полезный скрипт. Перед запуском инсталлятор проверяет на наличие необходимой программы через реестр »

Если бы вы читали форумы по инно - здесь на oszone или на ру-борде, вы бы поняли, что эти строчки кода уже перепереезженные, и имеются во всех возможных FAQ'ах к инно. Но нет, вы умеете только орать, дайте мне то, дайте мне это....

[by_gangster]

вы умеете только орать »

Кто орал то ?

[saurn]

Всем привет. Вопрос к знатокам: имеется куча чекбоксов и чтобы не плодить такую же прорву булевных функций думал, как объединить их все в одну, при этом не записывая значения с каждого в отдельную глобальную переменную. Короче, в итоге сваял:

Как-то вот так

Код:

[Code]
function CheckedBoxes(const cNumber: Integer): Boolean;
begin
  case cNumber of
    1: Result := CheckBox_1.Checked;
    2: Result := CheckBox_2.Checked;
    3: Result := CheckBox_3.Checked;
    4: Result := CheckBox_4.Checked;
    5: Result := CheckBox_5.Checked;
    6: Result := CheckBox_6.Checked;
    7: Result := CheckBox_7.Checked;
    8: Result := CheckBox_8.Checked;
  end;
end;

//ну и проверка:

if CheckedBoxes(1) then
if CheckedBoxes(2) then
if CheckedBoxes(3) then
... и т.д.

Обработка проходит корректно, но это можно назвать правильным, или меня куда-то не туда понесло(знаю, что можно использовать чеклистбокс, но как-то удобней мне с простыми чекбоксами)?

[Johny777]

saurn, Осваивай массивы (статичные и динамичные) и работу с ними, мелкий пример:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code  ]
var
    CheckArray: array of TCheckBox; // array [0..16] of TCheckBox;
    

function IndexOfCheckBox(const UCaption: String): Integer;
var
    i: Integer;
begin
    Result := -1;
    for i := GetArrayLength(CheckArray)-1 downto 0 do if CheckArray[i].Caption = UCaption then
    begin
        Result := i;
        Break;
    end;
end;
    

function CaptionOfCheckBox(const UIndex: Integer): String;
var
    i: Integer;
begin
    for i := 0 to GetArrayLength(CheckArray)-1 do if i = UIndex then Result := CheckArray[i].Caption;
end;

function IsChecked(const UIndex: Integer): Boolean;
var
    i: Integer;
begin
    if UIndex > GetArrayLength(CheckArray)-1 then Exit;
    Result := CheckArray[UIndex].Checked;
end;


procedure InitializeWizard();
var
    i: Integer;
begin
    WizardForm.OuterNotebook.Hide;
    
    SetArrayLength(CheckArray, 16);
    
    CheckArray[0] := TCheckBox.Create(WizardForm)
    with CheckArray[0] do
    begin
        Parent := WizardForm;
        Left := ScaleX(7);
        Top := ScaleY(7);
        Caption := IntToStr(0);
    end;
    for i := 1 to GetArrayLength(CheckArray)-1 do
    begin
        CheckArray[i] := TCheckBox.Create(WizardForm)
        with CheckArray[i] do
        begin
            Parent := WizardForm;
            Left := ScaleX(7);
            Top := ScaleY(CheckArray[i-1].Top + 16);
            
            if i mod 2 = 0 then Checked := True;
            
            Caption := IntToStr(i);
        end;
    end;
    
    ///
    if IsChecked(10) then MsgBox('Checked', mbInformation, MB_OK);
    MsgBox(CaptionOfCheckBox(5), mbInformation, MB_OK);
    MsgBox(IntToStr( IndexOfCheckBox('7') ), mbInformation, MB_OK);
end;

[Dinvin4ester]

Ребят , а что делать если ошибку выдает - http://i47.fastpic.ru/big/2013/0515/...2bfcb45e7a.png
Хочу подкоректировать этот скрипт - http://rghost.ru/46018269 - need-for-speedtm-hot-pursuit-1.5 (самый простой, так сказать для начинающих)
И да мне бы только код оформления выдернуть , а если нет подкорректировать - просто хочу инсталлы свои делать .Надеюсь на вашу помощь .

[saurn]

Dinvin4ester, это ошибка ISDone. Означает, что не заданно ни одного архива *.arc для распаковки. Есть в скрипте секция, где задается, какой архив распаковывать, куда распаковывать, и местоположение архива соответственно.

Код:

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data.bin'), ExpandConstant('{app}'),  false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

Тут вам лучше почитать справку к ISDone, она есть в архиве со скриптом. Там все подробно расписанно. Если же нужно только оформление и сжатие внутренними средствами инно, и функции ISDone не нужны соответственно, могу убрать из скрипта ISDone.