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

Johny777 · Конфигурация компьютера

AndreY33_80,
из твоего кода видно что строке в секции значков и так не присвоена задача, те по любому значок создастся вне зависимости
от того поставишь ты там (напротив надписи " Создать значёк на рабочем столе ") галку или нет
секцию задач ([Tasks]) или задачу сотри

t16bz,
не совсем понимаю что именно ты хочешь свернуть
у тебя развёрнуто то, что в строке жирным шрифтом прописано в качестве примера

AndreY33_80 · Конфигурация компьютера

Если стереть секцию задач или сами задачи в ней, то при компиляции выскакивает ошибка.

У меня сейчас при запуске Setup появляется только вот это окно, в котором уже стоит галочука, остаётся только нажать далее...

Нельзя ли как нибудь иммитировать нажатие этой кнопки ?

Johny777 · Конфигурация компьютера

Цитата AndreY33_80:

Если стереть секцию задач или сами задачи в ней, то при компиляции выскакивает ошибка. »

у меня не выскакивает

у тебя страница приветствия скрывается так:

проще будет через встроенную функцию ShouldSkipPage
а ещё проще через дерективу в секции [Setup]
DisableWelcomePage=yes

Цитата AndreY33_80:

Нельзя ли как нибудь иммитировать нажатие этой кнопки ? »

дополнил пример из шапки "Спрятать окно инсталлятора" примером South "скрыть с панели задач"

вот тебе полностью тихая установка

(ты ведь её хотел?)

Код:

[Setup]
AppId={{639F03DD-4D24-4F21-9960-58D7944DAE91}
AppName=CCleaner
AppVersion=3.16
;AppVerName=CCleaner 3.16
DefaultDirName={pf}\CCleaner
DefaultGroupName=CCleaner
DisableDirPage=yes
DisableProgramGroupPage=yes
ShowLanguageDialog=no
DisableWelcomePage=yes
DisableReadyPage=yes
DisableFinishedPage=yes
OutputBaseFilename=CCleaner
Compression=lzma/ultra
SolidCompression=yes

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

[Files]
;Source: "C:\Program Files\CCleaner\CCleaner.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "C:\Program Files\CCleaner\CCleaner.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "C:\Program Files\CCleaner\ccleaner.ini"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "C:\Program Files\CCleaner\uninst.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: "C:\Program Files\CCleaner\winapp2.ini"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: "{group}\CCleaner"; Filename: "{app}\CCleaner.exe"



[code]
{ отобpажает или пpячет окно обpазом, указанным паpаметpом в nCmdShow }
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external 'ShowWindow@user32.dll stdcall';

const
  { обычный клик }
  BM_CLICK = $00F5;

procedure CurPageChanged(CurPageID: Integer);
{ на старых версиях IS достаточно было указать
  WizardForm.NextButton.OnClick(WizardForm.NextButton);
  сейчас же стопориться на странице wpReady, обходится это таким образом }
begin
  { использую для скрытия окна мастера, в противном случае видно страницу wpInstalling }
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), SW_HIDE);
  { здесь нажимаем кнопку... }
  PostMessage(WizardForm.NextButton.Handle, BM_CLICK, 0, 0);
end;

////// прячем с панели задач /// начало
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint;external 'GetWindowLongA@user32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint;external 'SetWindowLongA@user32.dll stdcall';
//function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external 'ShowWindow@user32.dll stdcall';  // есть сверху

procedure InitializeWizard;
var
  TAppHandle: HWND;
begin
  TAppHandle:=GetWindowLong(MainForm.Handle,-8);                       //получаем хэндл Application'a
  // *** убираем окно с экрана
  WizardForm.BorderStyle:=bsNone;
  WizardForm.Width:=0;
  WizardForm.Height:=0;
  // ****
  ShowWindow(TAppHandle,0);                                            //скрываем с панели задач
  SetWindowLong(TAppHandle,-20,GetWindowLong(TAppHandle,-20) or $80);  //скрываем от Alt+Tab
end;

/// конец

не забудь раскомментировать строки в секции файлов (удали толчки с запятыми перед каждой строкой)

И убери пожалуйста свой код выше в [more][code] твой код [/code][/more] ,чтобы было компактнее

AndreY33_80 · Конфигурация компьютера

В принципе всё срабатывает, единственное что, ярлык на рабочем столе не создаётся и при попытке деинсталяции пишет "Внутренняя ошибка: Cannot find utCompiledCode record for this version of the uninstalller"

El Sanchez · Конфигурация компьютера

Цитата AndreY33_80:

ярлык на рабочем столе не создаётся »

AndreY33_80, добавьте в секцию [Icons]:

Код:

;ярлык для пользователя, запустившего инсталлятор
Name: {userdesktop}\CCleaner; Filename: {app}\CCleaner.exe

;...или для всех пользователей
Name: {commondesktop}\CCleaner; Filename: {app}\CCleaner.exe

Цитата AndreY33_80:

при попытке деинсталяции пишет "Внутренняя ошибка: Cannot find utCompiledCode record for this version of the uninstalller" »

AndreY33_80, удалите из папки установки лог-файл деинсталлятора unins000.dat, установите программу поверх существующей установки (будет создан новый лог), пробуйте удалять.

AndreY33_80 · Конфигурация компьютера

С ярлыком разобрался, работает. По деинсталятору получается только как вы сказали... Возможно, не надо добавлять лог-файл деинсталлятора unins000.dat в мастер Inno Setup ?

AndreY33_80 · Конфигурация компьютера

С деинсталятором тоже разобрался, достаточно не брать unins000.dat и unins000.exe.

Но теперь другая проблемма. Программа после установки только на английском языке.

AndreY33_80 · Конфигурация компьютера

Всётаки въехал как все надо делать

я взял правда другую программу - CDBurnerXP

после долгих поисков у меняя получился следующий скрипт:

t16bz · Отправлено: **05:28, 17-07-2012** | #**429**

Цитата Johny777:

не совсем понимаю что именно ты хочешь свернуть
у тебя развёрнуто то, что в строке жирным шрифтом прописано в качестве примера »

Есть окно, на нем TFolderTreeView и кнопка "OK" и "Отмена", если в TFolderTreeView разверну какую-нибудь директорию и нажму на кнопку "Отмена", то при повторном открытии эта директория будет открыта, а мне нужно сделать так, чтобы только была открыта директория указанная в WizardForm.DirEdit.

Johny777 · Конфигурация компьютера

t16bz,
держи:

Код:

[Setup]
AppName=DisksInfo
VersionInfoVersion=5.0
AppVerName=DisksInfo
DefaultDirName={pf}\My program
DefaultGroupName=New_Folder
AllowNoIcons=yes

[Icons]
Name: {group}\Тествый значок; Filename: calc.exe Check: not No_Start_Icons

[code]
var
  StartMenuTreeView : TStartMenuFolderTreeView;
  
function No_Start_Icons: Boolean; 
begin
    Result := WizardForm.NoIconsCheck.Checked;
end;
  
procedure GrpEditOnChange(Sender: TObject);
begin
  if WizardForm.GroupEdit.Text <> '{#SetupSetting("DefaultGroupName")}' then StartMenuTreeView.ChangeDirectory(ExpandConstant(WizardForm.GroupEdit.Text), True);
end;

procedure ObjectOnClick(Sender: TObject);
begin
  case Sender of
  
    StartMenuTreeView: if StartMenuTreeView.Directory <> '' then  WizardForm.GroupEdit.Text := StartMenuTreeView.Directory

    WizardForm.NoIconsCheck:
    begin
      with WizardForm do
      begin
        GroupEdit.Enabled := not NoIconsCheck.Checked;
        StartMenuTreeView.Enabled := not NoIconsCheck.Checked;
        GroupBrowseButton.Enabled := not NoIconsCheck.Checked;
      end;
    end;
    
  end;
end;


Procedure InitializeWizard;
begin
  with WizardForm do
  begin
    with NoIconsCheck do
    begin
      SetBounds(WizardForm.DiskSpaceLabel.Left + 96, WizardForm.DiskSpaceLabel.Top + 1, WizardForm.NoIconsCheck.Width, WizardForm.NoIconsCheck.Height
      OnClick:= @ObjectOnClick
    end;
    
    GroupEdit.OnChange := @GrpEditOnChange;
  end;

  StartMenuTreeView := TStartMenuFolderTreeView.Create(WizardForm)
  with StartMenuTreeView do
  begin
    SetPaths(ExpandConstant('{userprograms}'), ExpandConstant('{commonprograms}'), ExpandConstant('{userstartup}'), ExpandConstant('{commonstartup}'));
    SetBounds(ScaleX(0), ScaleY(110), ScaleX(400), ScaleY(100))
    Parent:= WizardForm.SelectProgramGroupPage
    Cursor:= crHand
    Directory := '{#SetupSetting("DefaultGroupName")}'
    OnChange:=@ObjectOnClick
  end;
	
  StartMenuTreeView.ChangeDirectory(ExpandConstant(WizardForm.GroupEdit.Text), True);
end;

при изменении эдита папки меню пуск меняется директория TFolderTreeView в и наоборот

Это глючный пример. Не использовать!
При редактировании эдита обновляется TStartMenuFolderTreeView и наоборот. Получается порочный круг жутких багов
(пробовал исправить по всякому в пределах своих ничтожных знаний и возможностей)
Кто допилит, тот будет удостоен похвалы, всеобщего признания и звания героя труда!

)