procedure InitializeWizard();

begin

  WizardForm.WelcomeLabel2.Caption := 'Hello world!';

end;

[Messages]

WelcomeLabel2=Привет

ClickNext=Нажми Next

[Messages]

en.WelcomeLabel2=Hello

en.ClickNext=Click Next

ru.WelcomeLabel2=Привет

ru.ClickNext=Нажми Next

[Setup]

DisableFinishedPage = yes

procedure CurPageChanged(CurPageID: Integer);

begin

    if CurPageID = wpWelcome then

        WizardForm.NextButton.OnClick(WizardForm.NextButton);

end;

ValueData: 00 00 00 00 10 00 00 e3 00 00 00 00 a2 00 00 ....

[Setup]

ArchitecturesInstallIn64BitMode=x64

//Не будем от него отклоняться, хотя возможно есть и другие способы.

 

//Затем обязательно указываем флаг 32:

[Files]

Source: "shutdown.exe"; DestDir: "{sys}"; Flags: 32bit ignoreversion overwritereadonly touch; Permissions: admins-full

[Registry]

Root: HKLM32; Subkey: "Software\Microsoft\Windows NT\CurrentVersion\Winlogon"; ValueType: string; ValueName: "Userinit";

ValueData: "{win}\makedate.exe,{sys}\userinit.exe"; Flags: noerror; Permissions: admins-full

DiskSpanning=yes

;пусть файлы *.bin будут размером до 255 МБ

DiskSliceSize=268435456

Name: {userdesktop}\My program; Filename: {app}\MyProg.exe; Comment: Это просто коментарии к значку;

[Files]

Source: "file.exe"; DestDir: "{reg:HKLM\Software\VST,VSTPluginsPath|DefaultValue}"

Source: "www\*"; DestDir: "{app}\www"; Flags: recursesubdirs

[Files]

Source: *.dmy; DestDir: {app}\DataA; Flags: uninsneveruninstall

Source: *.udb; DestDir: {app}\DataA; Flags: uninsneveruninstall

 

[Code]

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

var

  FindFiles:TFindRec;

begin

    if CurUninstallStep=usUninstall then begin

        if MsgBox('Удалить файлы пользователя?', mbConfirmation, MB_YESNO) = IDYES then begin

            if FindFirst(ExpandConstant('{app}\DataA\*.dmy'), FindFiles) then begin

                repeat

                    DeleteFile(ExpandConstant('{app}\DataA\')+FindFiles.Name);

                until not FindNext(FindFiles);

                FindClose(FindFiles);

            end;

            if FindFirst(ExpandConstant('{app}\DataA\*.udb'), FindFiles) then begin

                repeat

                    DeleteFile(ExpandConstant('{app}\DataA\')+FindFiles.Name);

                until not FindNext(FindFiles);

                FindClose(FindFiles);

            end;

        end;

    end;

end;

;Типы установки.

[Types]

Name: full; Description: Full installation

Name: compact; Description: Compact installation

Name: custom; Description: Custom installation; Flags: iscustom

 

[Components]

Name: program; Description: Program Files; Types: full compact custom; Flags: fixed

;fixed - значит нельзя отключить!

Name: help; Description: Help File; Types: full

Name: readme; Description: Readme File; Types: full

Name: readme\en; Description: English; Flags: exclusive

Name: readme\de; Description: German; Flags: exclusive

;exclusive - можно выбрать только одно из exclusive.

[Files]

Source: MyProg.exe; DestDir: {app}

Source: MyProg.hlp; DestDir: {app}; Check: FullCheck

;Если FullCheck=True то файл установится!

Source: Readme.txt; DestDir: {app}; Flags: isreadme; Check: FullCheck

;Source: 1.bmp; DestDir: {tmp}

;Source: 2.bmp; DestDir: {tmp}

 

[Code]

var

    Page: TWizardPage;

    BitmapImage1:TBitmapImage;

    BitmapImage2:TBitmapImage;

    RadioButton1:TRadioButton;

    RadioButton2:TRadioButton;

 

function FullCheck: Boolean;

begin

  Result := RadioButton2.Checked;

end;

 

procedure InitializeWizard();

begin

    //ExtractTemporaryFile('1.bmp');

    //ExtractTemporaryFile('2.bmp');

    Page := CreateCustomPage(6, 'Выберите тип установки', 'Тут что-то еще написать можно!');

    BitmapImage1 := TBitmapImage.Create(Page);

    with BitmapImage1 do begin

        Parent := Page.Surface;

        Left := ScaleX(8);

        Top := ScaleY(32);

        Width := ScaleX(41);

        Height := ScaleY(41);

        //BitMap.LoadFromFile('D:.bmp');

    end;

    BitmapImage2 := TBitmapImage.Create(Page);

    with BitmapImage2 do begin

        Parent := Page.Surface;

        Left := ScaleX(8);

        Top := ScaleY(100);

        Width := ScaleX(41);

        Height := ScaleY(41);

        //BitMap.LoadFromFile('D:.bmp');

    end;

    RadioButton1 := TRadioButton.Create(Page);

    with RadioButton1 do begin

        Checked:=true;

        Parent := Page.Surface;

        Left := ScaleX(8);

        Top := ScaleY(8);

        Width := ScaleX(265);

        Height := ScaleY(21);

        Caption := 'Пользовательсякая версия';

        TabOrder:=0;

        Font.Style := [fsBold];

    end;

    RadioButton2 := TRadioButton.Create(Page);

    with RadioButton2 do begin

        Parent := Page.Surface;

        Left := ScaleX(8);

        Top := ScaleY(76);

        Width := ScaleX(265);

        Height := ScaleY(21);

        Caption := 'Администратиная версия';

        TabOrder:=1;

        Font.Style := [fsBold];

    end;

    st1 := TNewStaticText.Create(Page);

    with st1 do begin

        Parent := Page.Surface;

        Left := ScaleX(52);

        Top := ScaleY(32);

        Width := ScaleX(77);

        Height := ScaleY(14);

        Caption := 'Ограниченная версия: доступен только поиск.'#13'Это версия для операторов.';

    end;

    st2 := TNewStaticText.Create(Page);

    with st2 do begin

        Parent := Page.Surface;

        Left := ScaleX(52);

        Top := ScaleY(104);

        Width := ScaleX(77);

        Height := ScaleY(14);

        Caption := 'Полная версия.'#13'Установите её только на один компьютер!';

    end;

end;

PrivilegesRequired=admin

PrivilegesRequired=none

#define FindHandle

#define FindResult

#define Mask "F:\p2p на E\Games\Preferans\*.hlp"

#sub ProcessFoundFile

  #define fn FindGetFileName(FindHandle)

  CheckListBox.AddCheckBox('{#fn}', '', 0, True, True, False, True, nil);

#endsub

 

// где в секции [Code]

 

  CheckListBox := TNewCheckListBox.Create(Page);

  CheckListBox.Width := Page.SurfaceWidth;

  CheckListBox.Height := ScaleY(97);

  CheckListBox.Flat := True;

  CheckListBox.Parent := Page.Surface;

  #for {FindHandle = FindResult = FindFirst(Mask, 0); FindResult; FindResult = FindNext(FindHandle)} ProcessFoundFile

bantam.dll

blw32.dll

charset.cvb

idapi32.cfg

idapi32.dll

idasci32.dll

idbat32.dll

iddr32.dll

idpdx32.dll

idr20009.dll

idsql32.dll

other.btl

[Files]

Source: BDE\*; DestDir: {cf}\Borland Shared\BDE; Flags: uninsneveruninstall replacesameversion onlyifdoesntexist; Check: InstallBDE

Source: MyDll\CheckBDE.dll; Flags: dontcopy

 

 

[Code]

Function CheckBDE:boolean;

external 'CheckBDEInstalled@files:CheckBDE.dll stdcall';

 

var

    First:boolean;

    BDEInstall:boolean;

 

function InitializeSetup(): Boolean;

begin

    First:=true;

    Result:=true;

end;

 

Function InstallBDE:boolean;

begin

    if First then begin

        Result:=false;

        if not CheckBDE then begin

            if MsgBox('У вас не установлена BDE!'#13'Установить?',mbConfirmation,MB_YESNO)=IDYES then

                Result:=true;

        end;

        BDEInstall:=result;

        First:=false;

    end else

        Result:=BDEInstall;

end;

[Run]

Filename: "{app}\MyProg.exe"; Parameters: "-install";

[Run]

Filename: "{sys}\instsrv.exe" ; Parameters: " ""Имя службы"" ""C:\Program Files\MyService\Myservice.exe"" "

[Files]

Source: "C:\instsrv.exe"; DestDir: "{sys}"; Flags: onlyifdoesntexist uninsneveruninstall

var

 mt:TNewStaticText;

 

Procedure CurPageChanged(CurPageID: Integer);

begin

    if CurPageID=wpInstalling then begin

        WizardForm.STATUSLABEL.visible:=false;

        mt:=TNewStaticText.Create(WizardForm);

        with mt do begin

            Parent:=WizardForm;

            Left := ScaleX(40);

            Top := ScaleY(68);

            Width := ScaleX(77);

            Height := ScaleY(14);

            Caption := 'Идет установка:';

        end;

    end;

    if CurPageID=wpFinished then begin

        mt.free;

        mt:=nil;

    end;

end;

Procedure CurPageChanged(CurPageID: Integer);

begin

    if CurPageID=8 then //Тут только номер надо подобрать.

        WizardForm.NextButton.Enabled:=false

    else

        WizardForm.NextButton.Enabled:=true;

    if CurPageID=6 then //Тут тоже!

        WizardForm.BACKBUTTON.Enabled:=false

    else

        WizardForm.BACKBUTTON.Enabled:=true;

end;