[ZVSRus]

Требуется помощь исправления пути под кнопкой Обзор... программной группы.
Скрипт

Скрытый текст

Код:

 #include "Include\botva2.iss"

 #define MyAppName "Comfy File Recovery 3.7"
 #define MyAppVersion "3.7"
 #define MyAppPublisher "Comfy Software"
 #define MyAppURL "http://repaircorruptedfiles.ru/file-repair/how-to.html"
 #define MyAppExeName "Comfy File Recovery.exe"

[Setup]
 AppId={{7C6237DF-DD6A-4CA1-AA8D-62B087CA3D07}
 AppName={#MyAppName}
 AppVersion={#MyAppVersion}
 AppVerName=Comfy File Recovery 3.7
 AppPublisher={#MyAppPublisher}
 AppPublisherURL={#MyAppURL}
 DefaultDirName={pf}\Comfy Software\Comfy File Recovery 3.7
 DefaultGroupName=Comfy Software\Comfy File Recovery 3.7
 OutputBaseFilename=comfy_file_recovery_3.7_setup
 ChangesAssociations=yes
 
 DirExistsWarning=no
 Uninstallable=not PortableCheck
 DisableProgramGroupPage=yes

 WizardImageFile=Include\1.bmp
 WizardSmallImageFile=Include\2.bmp
 SetupIconFile=Include\Icon.ico
 UninstallDisplayIcon={app}\Comfy File Recovery.exe
 UninstallIconFile=Include\Uninstall.ico

 Compression=lzma/ultra64
 SolidCompression=true
 InternalCompressLevel=ultra64
 
 OutputDir=.
 UsePreviousAppDir=no
 UsePreviousGroup=no

[Languages]
 Name: "english"; MessagesFile: "compiler:Languages\English.isl"
 Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[ Code]
var
  ComponentPage: TWizardPage;

  InstallerGroupBox: TNewGroupBox;
  Installer: TNewRadioButton;
  Portable: TNewRadioButton;

  StartMenuIcon: TNewCheckBox;

  DirPageBox: TNewGroupBox;
  ProgramGroupPageBox: TNewGroupBox;
  
  LinkProg: TNewCheckBox;
/////////////////////////////////////////////////////
  dirBrowseForm: TSetupForm;                       //
  dirBrowse, dirOK, dirNO, dirback: TButton;       //
  DirTreeView: TFolderTreeView;                    //
  Edit: TNewEdit;                                  //
  BrowseBevel: TBevel;                             //
  BrowsePanel: TPanel;                             //
  BrowsePanel2: TPanel;                            //
  BrowseBevel2,BrowseBevel3: TBevel;               //
  BrowseForm : TSetupForm;                         //
/////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); //
begin                                                                          //
Confirm:=False;                                                                //  Закрытие без подтверждения
end;                                                                           //
/////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////
function InstallerCheck: Boolean;     //
 begin                                //
   Result := Installer.Checked;       //
 end;                                 //
////////////////////////////////////////
 function PortableCheck: Boolean;     //
 begin                                //
   Result := Portable.Checked;        //
 end;                                 //
////////////////////////////////////////

/////////////////////////////////////////////////////
 procedure CompClick(Sender: TObject);             //
 begin                                             //
  case TNewRadioButton(Sender) of                  //
  Portable:                                        //
 begin                                             //
   WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + 'ComfyFileRecoveryPortable';
   WizardForm.Caption:= FmtMessage(ExpandConstant('Распаковка — %1'), [ExpandConstant('{#SetupSetting("AppName")}')]);  //Распаковка
 end;                                              //
  Installer:                                       //
 begin                                             //
   WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{pf}')) + 'Comfy Software\Comfy File Recovery 3.7';
   WizardForm.Caption:= FmtMessage(SetupMessage(msgSetupWindowTitle), [ExpandConstant('{#SetupSetting("AppName")}')]);  //Установка
  end;                                             //
 end;                                              //
end;                                               //
/////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
 procedure dirOkclick(Sender: TObject);                                       //
  begin                                                                       //
   dirBrowseForm.Close;                                                       //
   WizardForm.Enabled:=True;                                                  //
   WizardForm.DirEdit.Text:=Edit.Text;                                        //
  end;                                                                        //
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////
 procedure dirBackClick(Sender: TObject);                                                    //
 begin                                                                                       //  начало
 if Portable.Checked then begin                                                              //  если Portable.Checked тогда начать
  Edit.Text:=AddBackslash(ExpandConstant('{src}\')+'ComfyFileRecoveryPortable');             //
  DirTreeView.ChangeDirectory(AddBackslash(ExpandConstant('{src}\')), True);                 //
   end else begin                                                                            //  конец еще начать
  Edit.Text:=AddBackslash(ExpandConstant('{pf}\')+'Comfy Software\Comfy File Recovery 3.7'); //
  DirTreeView.ChangeDirectory(AddBackslash(ExpandConstant('{pf}\')), True);                  //
 end;                                                                                        //
end;                                                                                         //  конец
///////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
 procedure dirNOclick(Sender: TObject);                                       //
  begin                                                                       //
   dirBrowseForm.Close;                                                       //
   WizardForm.Enabled:=true;                                                  //
  end;                                                                        //
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////
 procedure DirFolderChange(Sender: TObject);                                                  //
  Begin                                                                                       //
   Edit.Text:=AddBackslash(DirTreeView.Directory) + 'Comfy Software\Comfy File Recovery 3.7'; //
  if Portable.Checked then                                                                    //
   Edit.Text:=AddBackslash(DirTreeView.Directory) + 'ComfyFileRecoveryPortable';              //
  end;                                                                                        //
////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
 procedure FormClosedir(Sender: TObject; var Action: TCloseAction);           //
  begin                                                                       //
   WizardForm.Enabled:=true;                                                  //
  end;                                                                        //
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////
 procedure BrowseClick(Sender: TObject);       //
  begin                                        //
   dirBrowseForm := CreateCustomForm();        //
  with dirBrowseForm do begin                  //
   ClientWidth := ScaleX(352);                 //
   ClientHeight := ScaleY(388);                //
   CenterInsideControl(WizardForm, False);     //
   Caption:='Обзор папок';                     //
   onClose:=@FormClosedir;                     //
///////////////////////////////////////////////////////////////
  with tlabel.create(dirBrowseForm) do begin                 //
   SetBounds(ScaleX(15),ScaleY(15),ScaleX(350),ScaleY(15));  //
   caption:='Выберите папку из списка и нажмите «ОK».';      //
   parent:=dirBrowseForm;                                    //
   Font.Color:=clBlack;                                      //
   Font.Size:=8;                                             //
//////////////////////////////////////////////////////////////////////////
   BrowseBevel := TBevel.Create(WizardForm);                            //
   BrowseBevel.SetBounds(ScaleX(0),ScaleY(40),ScaleX(352),ScaleY(2));   //
   BrowseBevel.parent:=dirBrowseForm;                                   //
                                                                        //
   BrowseBevel3 := TBevel.Create(WizardForm);                           //
   BrowseBevel3.SetBounds(ScaleX(0),ScaleY(342),ScaleX(352),ScaleY(2)); //
   BrowseBevel3.parent:=dirBrowseForm;                                  //
//////////////////////////////////////////////////////////////////////////
   BrowsePanel := TPanel.Create(WizardForm);    //
  with BrowsePanel do                           //
  begin                                         //
   parent:=dirBrowseForm;                       //
   Left := ScaleX(5);                           //
   Top := ScaleY(45);                           //
   Width := ScaleX(342);                        //
   Height := ScaleY(292);                       //
   Caption := '';                               //
  end;                                          //
   BrowsePanel2 := TPanel.Create(WizardForm);   //
  with BrowsePanel2 do                          //
  begin                                         //
   BrowsePanel2.Parent := BrowsePanel;          //
   Left := ScaleX(5);                           //
   Top := ScaleY(5);                            //
   Width := ScaleX(332);                        //
   Height := ScaleY(282);                       //
   BevelOuter := bvLowered;                     //
   Caption := '';                               //
  end;                                          //
   BrowseBevel2 := TBevel.Create(WizardForm);   //
  with BrowseBevel2 do                          //
  begin                                         //
   BrowseBevel2.Parent := BrowsePanel2;         //
   Left := ScaleX(5);                           //
   Top := ScaleY(5);                            //
   Width := ScaleX(322);                        //
   Height := ScaleY(272);                       //
   Style := bsRaised;                           //
  end;                                          //
//////////////////////////////////////////////////////////////////
   Edit:= TNewEdit.Create(dirBrowseForm);                       //
  with edit do begin                                            //
   SetBounds(ScaleX(10),ScaleY(10),ScaleX(311),ScaleY(21));     //
   Text:=WizardForm.DirEdit.text;                               //
   Parent:= BrowsePanel2;                                       //
   Font.Color:=clBlack;                                         //
  end;                                                          //
                                                                //
   DirTreeView:= TFolderTreeView.Create(dirBrowseForm)          //
  with DirTreeView do begin                                     //
   SetBounds(ScaleX(10),ScaleY(35),ScaleX(311),ScaleY(235));    //
   OnChange:=@DirFolderChange;                                  //
   Parent:=BrowsePanel2;                                        //
  end;                                                          //
///////////////////////////////////////////////////////////////////////////////
   dirback:=tbutton.create(dirBrowseForm)                                    //
  with dirback do begin                                                      //
   SetBounds(ScaleX(16),ScaleY(351),ScaleX(100),ScaleY(30));                 //
   parent:=dirBrowseForm;                                                    //
   Caption:='Сброс';                                                         //
   onclick:=@dirBackClick;                                                   //
  end;                                                                       //
///////////////////////////////////////////////////////////////////////////////
   dirok:=tbutton.create(dirBrowseForm)                                      //
  with dirok do begin                                                        //
   SetBounds(ScaleX(126),ScaleY(351),ScaleX(100),ScaleY(30));                //
   parent:=dirBrowseForm;                                                    //
   Caption:='OK';                                                            //
   onclick:=@dirOKclick;                                                     //
  end;                                                                       //
///////////////////////////////////////////////////////////////////////////////
   dirno:=tbutton.create(dirBrowseForm)                                      //
  with dirno do begin                                                        //
   SetBounds(ScaleX(236),ScaleY(351),ScaleX(100),ScaleY(30));                //
   parent:=dirBrowseForm;                                                    //
   Caption:='Отмена';                                                        //
   onclick:=@dirNOclick;                                                     //
  end;                                                                       //
  end;                                                                       //
  end;                                                                       //
///////////////////////////////////////////////////////////////////////////////
   DirTreeView.ChangeDirectory(AddBackslash(WizardForm.dirEdit.Text), true); //
   Edit.Text:=(DirTreeView.Directory);                                       //
   dirBrowseForm.Show;                                                       //
   WizardForm.Enabled:=false;                                                //
  end;                                                                       //
///////////////////////////////////////////////////////////////////////////////

/////////////////////////////////////////////////////////////////////
procedure StartMenuIcon_OnClick(Sender: TObject);                  //
begin                                                              //   Процедура для CheckBox
  WizardForm.NoIconsCheck.Checked:= TNewCheckBox(Sender).Checked;  //  "Не создавать папку в меню Пуск"
end;                                                               //
/////////////////////////////////////////////////////////////////////

procedure CurPageChanged(CurPageID: Integer);  //Изменить Страницу
begin
  case CurPageID of  //делать CurPageID из
    wpSelectDir:
  begin
  if Portable.Checked then  //если Portable.Checked тогда
  begin
      ProgramGroupPageBox.Hide;
      WizardForm.GroupEdit.Hide;
      WizardForm.GroupBrowseButton.Hide;
      StartMenuIcon.Hide;
      WizardForm.SelectGroupBitmapImage.Hide;
      WizardForm.SelectStartMenuFolderLabel.Hide;
      WizardForm.SelectStartMenuFolderBrowseLabel.Hide;
      WizardForm.NextButton.Caption:= 'Распаковать';
      DirPageBox.Caption:= 'Папка распаковки:';
  WizardForm.Caption:= FmtMessage(ExpandConstant('Распаковка — %1'), [ExpandConstant('{#SetupSetting("AppName")}')]);  //Распаковка
  WizardForm.PageNameLabel.Caption:= ExpandConstant('Выбор папки распаковки');
  WizardForm.SelectDirLabel.Caption:= FmtMessage(ExpandConstant('Программа распакует %1 в следующую папку.'), [ExpandConstant('{#SetupSetting("AppName")}')]);
  WizardForm.SelectDirBrowseLabel.Caption:= 'Нажмите «Распаковать», чтобы началась распаковка. Если вы хотите выбрать другую папку, нажмите «Обзор».'
  if Installer.Checked then  //если Installer.Checked тогда
  end else begin  //конец еще начать
      ProgramGroupPageBox.Show;
      WizardForm.GroupEdit.Show;
      WizardForm.GroupBrowseButton.Show;
      StartMenuIcon.Show;
      WizardForm.SelectGroupBitmapImage.Show;
      WizardForm.SelectStartMenuFolderLabel.Show;
      WizardForm.SelectStartMenuFolderBrowseLabel.Show;
      WizardForm.NextButton.Caption:= 'Установить'
      DirPageBox.Caption:= 'Папка установки:';
  WizardForm.Caption:= FmtMessage(ExpandConstant('Установка — %1'), [ExpandConstant('{#SetupSetting("AppName")}')]);  //Установка
  WizardForm.PageNameLabel.Caption:= ExpandConstant('Выбор папки установки');
  WizardForm.SelectDirLabel.Caption:= FmtMessage(ExpandConstant('Программа установит %1 в следующую папку.'), [ExpandConstant('{#SetupSetting("AppName")}')]);
  WizardForm.SelectDirBrowseLabel.Caption:= 'Нажмите «Установить», чтобы началась установка. Если вы хотите выбрать другую папку, нажмите «Обзор».'
  WizardForm.SelectStartMenuFolderBrowseLabel.Caption:= 'Нажмите «Установить», чтобы началась установка. Если вы хотите выбрать другую папку, нажмите «Обзор».'
  end;
end;
    wpInstalling:
  if Installer.Checked then
 begin
  WizardForm.PageNameLabel.Caption:= ExpandConstant('Установка');
 end else begin
  WizardForm.PageNameLabel.Caption:= ExpandConstant('Распаковка');
 end;
    wpFinished:
  if Portable.Checked then
 begin
	WizardForm.FinishedHeadingLabel.Caption:= FmtMessage(ExpandConstant('Завершение распаковки'), [ExpandConstant('{#SetupSetting("AppName")}')]);
	WizardForm.FinishedLabel.Caption:= FmtMessage(ExpandConstant('Программа %1 распакована на Ваш компьютер.'#10#13''#10#13'Нажмите «Завершить», чтобы выйти из программы распаковки.'), [ExpandConstant('{#SetupSetting("AppName")}')]);
 end else begin
   WizardForm.FinishedHeadingLabel.Caption:= FmtMessage(ExpandConstant('Завершение установки'), [ExpandConstant('{#SetupSetting("AppName")}')]);
	 WizardForm.FinishedLabel.Caption:= FmtMessage(ExpandConstant('Программа %1 установлена на Ваш компьютер.'#10#13''#10#13'Нажмите «Завершить», чтобы выйти из программы установки.'), [ExpandConstant('{#SetupSetting("AppName")}')]);
 end;
 end;
 end;

procedure InitializeWizard();
begin
  WizardForm.DiskSpaceLabel.Hide;
  ComponentPage := CreateCustomPage(wpWelcome, 'Выбор типа, компонентов и дополнительных задач', '...');

  InstallerGroupBox := TNewGroupBox.Create(WizardForm);
  with InstallerGroupBox do
  begin
    Parent := ComponentPage.Surface;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(210);
    Height := ScaleY(64);
    Caption := 'Тип установки:';
  end;

  Portable := TNewRadioButton.Create(WizardForm);
  with Portable do
  begin
    Parent := InstallerGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(39);
    Width := ScaleX(195);
    Height := ScaleY(17);
    Caption := 'Распаковка портативной версии';
    OnClick:=@CompClick;
  end;

  Installer := TNewRadioButton.Create(WizardForm);
  with Installer do
  begin
    Parent := InstallerGroupBox;
    Left := ScaleX(10);
    Top := ScaleY(14);
    Width := ScaleX(195);
    Height := ScaleY(17);
    Caption := 'Установка обычной версии';
    OnClick:=@CompClick;
    Checked := True
  end;

 DirPageBox := TNewGroupBox.Create(WizardForm);
 with DirPageBox do
 begin
 Parent := WizardForm.SelectDirPage;
 Left := ScaleX(0);
 Top := ScaleY(0);
 Width := ScaleX(417);
 Height := ScaleY(107);
 Caption := 'Папка установки:';
 end;

 ProgramGroupPageBox := TNewGroupBox.Create(WizardForm);
 with ProgramGroupPageBox do
 begin
 Parent := WizardForm.SelectDirPage;
 Left := ScaleX(0);
 Top := ScaleY(112);
 Width := ScaleX(417);
 Height := ScaleY(107);
 Caption := 'Папка в меню Пуск:';
 end;

 with WizardForm.DirEdit do
 begin
 Left := ScaleX(5);
 Top := ScaleY(78);
 Width := ScaleX(325);
 Parent := DirPageBox;
 end;

 with WizardForm.DirBrowseButton do
 begin
 Left := ScaleX(337);
 Top := ScaleY(77);
 Parent := DirPageBox;
 OnClick:=@BrowseClick;
 end;

 with WizardForm.SelectDirBitmapImage do
 begin
 Left := ScaleX(2);
 Top := ScaleY(15);
 Width := ScaleX(32);
 Height := ScaleY(32);
 Parent := DirPageBox;
 end;

 with WizardForm.SelectDirLabel do
 begin
 Left := ScaleX(34);
 Top := ScaleY(23);
 Width := ScaleX(381);
 Height := ScaleY(14);
 Parent := DirPageBox;
 end;

 with WizardForm.SelectDirBrowseLabel do
 begin
 Left := ScaleX(5);
 Top := ScaleY(48);
 Width := ScaleX(410);
 Height := ScaleY(27);
 Parent := DirPageBox;
 end;

 with WizardForm.GroupEdit do
 begin
 Left := ScaleX(5);
 Top := ScaleY(78);
 Width := ScaleX(325);
 Parent := ProgramGroupPageBox;
 end;

 with WizardForm.GroupBrowseButton do
 begin
 Left := ScaleX(337);
 Top := ScaleY(77);
 Parent := ProgramGroupPageBox;
 OnClick:=@BrowseClick;
 end;

 with WizardForm.SelectGroupBitmapImage do
 begin
 Left := ScaleX(5);
 Top := ScaleY(15);
 Width := ScaleX(32);
 Height := ScaleY(32);
 Parent := ProgramGroupPageBox;
 end;

 with WizardForm.SelectStartMenuFolderLabel do
 begin
 Left := ScaleX(37);
 Top := ScaleY(23);
 Width := ScaleX(378);
 Height := ScaleY(14);
 Parent := ProgramGroupPageBox;
 end;

 with WizardForm.SelectStartMenuFolderBrowseLabel do
 begin
 Left := ScaleX(5);
 Top := ScaleY(48);
 Width := ScaleX(410);
 Height := ScaleY(27);
 Parent := ProgramGroupPageBox;
 end;
/////////////////////////////////////////////////////////////////
 begin                                                         //
  StartMenuIcon:= TNewCheckBox.Create(WizardForm);             //
  with StartMenuIcon do                                        //
  begin                                                        //
	Parent:= WizardForm.SelectDirPage;                           //  "Не создавать папку в меню Пуск"
	SetBounds(ScaleX(10), ScaleY(219), ScaleX(200), ScaleY(17)); //
  Caption := 'Не создавать папку в меню Пуск';                 //
  OnClick:=@StartMenuIcon_OnClick;                             //
  end;                                                         //
/////////////////////////////////////////////////////////////////
end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
 begin
  if (PageID = 8) or(PageID = 10) or(PageID = 14) then 
  Result:= True;                                                                                    
 end;

[vadjliss]

парни что то не могу понять в чём дело не удаляется программа пишет ошибку в справке тоже ни чего не нашёл

[vadjliss]

всё разабрался

[Dodakaedr]

ZVSRus, вопрос не ясен.

[ZVSRus]

вопрос не ясен

В скрипте при нажатии на кнопку Обзор (выбор папки в меню пуск), нет правильного пути установки и возвращении пути по умолчанию.

[vadjliss]

парни вопрос запись в host вот этот код работает только на 32 битной системе а как сделать что бы и на 64 битную записывала
if exist %systemroot%\SysWOW64 (
set hosts=%systemroot%\SysWOW64\drivers\etc\hosts
) else (
set hosts=%systemroot%\System32\drivers\etc\hosts
)
cacls %hosts% /E /G All:F
cacls %hosts% /E /G ‚бҐ:F
attrib -s -r -h %hosts%
(echo.
echo #
echo 127.0.0.1 cap.cyberlink.com
echo 127.0.0.1 activation.cyberlink.com
echo #
)>>%hosts%
cacls %hosts% /E /R All
cacls %hosts% /E /R ‚бҐ
ipconfig /flushdns

[dimantv_wot@vk]

Всем привет может кто скинуть простой скрипт.

[kotyarko@fb]

dimantv_wot@vk, краткость, может быть, и сестра таланта, но не в данном случае.
Вот вам самый простой скрипт:

Код:

[Setup]
AppName=Program
AppVerName=1
DefaultDirName={app}

Какой вопрос - такой ответ.

[dimantv_wot@vk]

kotyarko@fb, почти точто нужно но как можно включить начальную страницу для смены картинки слева сбоку

[kotyarko@fb]

почти точто нужно »

lol.

но как можно включить начальную страницу для смены картинки слева сбоку »

В версиях Inno Setup ниже 5.5.7, WelcomePage по-умолчанию уже включена, и никаких дополнительных действий делать не нужно. Если вы используете 5.5.7, то для отображения этой страницы нужно:

Код:

[Setup]
DisableWelcomePage=no