[Rosich]

Подскажите, пожалуйста, как сделать так чтобы перед началом повторной установки программы сначала запускался деинсталлятор в тихом режиме, а затем уже шел сам процесс установки. Пробовал сделать все это через секцию [InstallDelete], но первое, что неудобно постоянно выскакивает предупреждение, что такие-то компоненты будут удалены, а их у меня – экрана не хватит. Пробовал и без секции [InstallDelete], эффект почти тот же самый, только с разницей, что компоненты не будут удалены.
И самое главное, мой инсталлятор делает бекап файлов и к моменту повторного запуска инсталлятора эти файлы должны быть на своих местах, такое через секцию [InstallDelete] никакими средствами не добиться. Голову сломал, а как сделать - не знаю!
Вот мой код.
P.S.
Хотел дать весь код в топике, но при отправке сообщения, ругается, что много символов, пришлось сократить до секции [Code], а затем и полностью на ифолдер перенести.

[Serega]

Так тож я ничего не правил, как было. »

бывает...

Подскажите пожалуйста как такой инсталл сделать, чтоб было такое оформление »

Здесь использовано скинирование - ISSkin, плюс все компоненты переписаны заново.

и были функции удалений сохраненй и игр? »

не поленитесь, почитайте где-то страниц тридцать назад, я приводил пример скрипта с удалением сохранений.

я вытаскивал код, скомпилировал, а картинка сужается. »

Покажите скрипт, так тяжело сказать где поправить.

1. В программе удаления сделать список дополнительных задач (как [tasks] в программе установки; нужно для удаления определённого каталога со все его содержимым) . Показ стандартного (системного) диалога с запросом меня не очень устраивает, т.к. я делаю многоязычный инсталлятор, а в секции [code] {cm:*} не работает... »

Покажите пример, как делаете.

2. На черточке внизу диалогового окна написать текст (копирайт). »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Messages]
BeveledLabel=forum OSzone.net

[Code]
procedure InitializeWizard;
begin
  WizardForm.BeveledLabel.Left:= 20;
end;

3. Во всех диалоговых окнах инсталлятора и деинсталлятора (кроме заголовка окна) сделать отображаение AppVerName вместо AppName. »

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

Или прокатит и предыдущая запись? »

Ну а куда она родимая денется, обязательно прокатит...

Pos(subs,s) - возвращает позицию первой подстроки subs в строке s (или 0 если подстрока не найдена)

вот только я не знаю, что писать вместо того, что я выделил.... »

Вы скрипт покажите, проще будет общаться, а то на пальцах тяжело объяснять.

[A1EXXX]

вот мой скрипт...

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

[code]
var
LogoImage:TBitmapImage;
LogoLabel: TLabel;
LogoPanel: TPanel;

procedure LogoOnClick(Sender: TObject);
var ReturnCode: Integer;
begin
ShellExec('open', 'http://......', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('logo.bmp');
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(5);
Top := ScaleY(320);
Width := ScaleX(165);
Height := ScaleY(35);
BevelOuter := bvNone;
end;

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
Parent := LogoPanel;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
end;

LogoLabel := TLabel.Create(WizardForm);
with LogoLabel do
begin
Parent := LogoPanel;
Width := LogoPanel.Width;
Height := LogoPanel.Height;
Transparent:=True;
Cursor := crHand;
OnClick:=@LogoOnClick;
end;
end;

[Files]
Source: C:\logo.bmp; DestDir: {tmp}; Flags: dontcopy

[Drongo]

Pos(subs,s) - возвращает позицию первой подстроки subs в строке s (или 0 если подстрока не найдена) »

Ааа, понял, функция для работы со строками. Спасибо.

[Serega]

чтобы перед началом повторной установки программы сначала запускался деинсталлятор в тихом режиме, а затем уже шел сам процесс установки. »

Пример

Код:

[Setup]
AppID={{C05D8CDB-417D-4335-A38C-A0659EDFD6B8}
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code]
//проверка устанавливалась ли программа ранее
var
  Error: Integer;
  ResultStr: String;

function InitializeSetup: Boolean;
begin
  Result := True;
    begin
      if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{C05D8CDB-417D-4335-A38C-A0659EDFD6B8}_is1', 'DisplayName', ResultStr) then
       if ResultStr = 'My Program v 1.5' then
        begin
          if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{C05D8CDB-417D-4335-A38C-A0659EDFD6B8}_is1', 'UninstallString', ResultStr) then
          ResultStr:= RemoveQuotes(ResultStr);
          if not Exec(ResultStr, '/silent', '', SW_SHOWNORMAL, ewWaitUntilTerminated, Error) then
          MsgBox('Ошибка удаления. ' #13#13 '' + SysErrorMessage(Error) + '.' #13#13 'Вероятно, деинсталлятор был перемещен, удален или переименован.', mbError, MB_OK);
        end;
    end;
end;

вот мой скрипт... »

Пример

Код:

[Code]
var
  LogoImage: TBitmapImage;
  LogoLabel: TLabel;
  LogoPanel: TPanel;

procedure LogoOnClick(Sender: TObject);
var
  ReturnCode: Integer;
begin
  ShellExec('open', 'http://......', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('logo.bmp');
  LogoPanel := TPanel.Create(WizardForm);
  with LogoPanel do
    begin
      Parent := WizardForm;
      Left := ScaleX(5);
      Top := ScaleY(320);
      Width := ScaleX(165);
      Height := ScaleY(35);
      BevelOuter := bvNone;
    end;

  LogoImage := TBitmapImage.Create(WizardForm);
  with LogoImage do
    begin
      Parent := LogoPanel;
      Left := ScaleX(0);
      Top := ScaleY(0);
      AutoSize:=true;
      ReplaceColor:=clFuchsia;
      ReplaceWithColor:=clBtnFace;
      Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
    end;

  LogoLabel := TLabel.Create(WizardForm);
  with LogoLabel do
    begin
      Parent := LogoPanel;
      Width := LogoPanel.Width;
      Height := LogoPanel.Height;
      Transparent:=True;
      Cursor := crHand;
      OnClick:=@LogoOnClick;
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  LogoPanel.Visible:= True;
  LogoImage.Visible:= True;
  LogoLabel.Visible:= True;
  if CurPageID = wpInstalling then
    begin
      LogoPanel.Visible:= False;
      LogoImage.Visible:= False;
      LogoLabel.Visible:= False;
    end;
end;

[Files]
Source: C:\logo.bmp; DestDir: {tmp}; Flags: dontcopy

[Rosich]

Serega, ВЫ как всегда на высоте, то, что доктор прописал, лучше и не придумаешь, спасибо большое!!!

[user_123]

Во всех диалоговых окнах инсталлятора и деинсталлятора (кроме заголовка окна) сделать отображаение AppVerName вместо AppName

Проблема заключается в том, что у программы достаточно длинное название и внутри диалоговых окон оно смотрится не очень красиво, а если написать сокращённо, то - в заголоке. Данную проблему я решил так: в секции [Messages] написал полное название для заголока, без "%1", а в appname - сокращённое.

[Messages] BeveledLabel=forum OSzone.net [code] procedure InitializeWizard; begin WizardForm.BeveledLabel.Left:= 20; end; »

Спасибо.

В программе удаления сделать список дополнительных задач (как [tasks] в программе установки; нужно для удаления определённого каталога со все его содержимым) »

В программе установки можно сделать доп. задачи, например, создание ярлыка на рабочем столе / в меню быстрого запуска, добавление доп. ключей в реестр и др... А в программе удаление так сделать (чтобы врезультате уставки флага (галочки) удалился определённый каталог), если я не ошибаюсь, нельзя... Конечно, можно что-то в сецию [code] написать, но... я не знаю высокоуровневых языков программирования... если вижу готовый код, то примерно понимаю, о чём речь идёт, а сам написать не могу...

[Rosich]

Мне на ру-боарде подкинули скрипт

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

Код:

var
  UnInstallPath: String;

function GetUnInstallPath( AppID: String ): String;
begin
  RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{C05D8CDB-417D-4335-A38C-A0659EDFD6B8}_is1','UninstallString', UnInstallPath);
  Result := UnInstallPath;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
ResultCode:integer;
begin
 Result:=true;
 if CurPageID = wpSelectComponents
  then
  Exec(UnInstallPath, '/VERYSILENT','', sw_Hide, ewWaitUntilTerminated, ResultCode);
end;

Но он, почему то не работает, как должен работать, может, кто посмотрит. Этот скрипт в идеале должен запускать "тихий деинсталлятор", но не сразу при запуске инсталлятора, а после странице выбора компонентов. У меня вопрос к Serega – можно ли сделать такое в твоем скрипте? И еще очень актуальный вопрос, а точнее три вопроса:
1.). Как убрать вот это табличку: , а то у меня компонентов туча, экрана не хватает.
2.). Как правильно срастить вот этот скрипт

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

Код:

procedure ComponentOnClick(Sender: TObject); 
begin 
if WizardSelectedComponents(False) = '' then 
WizardForm.NextButton.Enabled:= False 
else WizardForm.NextButton.Enabled:= True; 
end; 
procedure InitializeWizard(); 
begin 
WizardForm.ComponentsList.OnClick := @ComponentOnClick; 
end;

с моим скриптом.
3.). Мне на том же форуме, в моем скрипте, изменили процедуру CurPageChanged

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

Код:

procedure CurPageChanged(CurPageID: Integer);  
begin  
  PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;  
  PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;  
  PageNameLabel1.Caption:= 'Апаратное Обеспечение';  
  PageDescriptionLabel1.Caption:= 'Программа установки обнаружила следуюшие необходимые компоненты';  
  PageNameLabel2.Caption:= WizardForm.PageNameLabel.Caption;  
  PageDescriptionLabel2.Caption:= WizardForm.PageDescriptionLabel.Caption;  
  PageNameLabel3.Caption:= WizardForm.PageNameLabel.Caption;  
  PageDescriptionLabel3.Caption:= WizardForm.PageDescriptionLabel.Caption;  
  PageNameLabel4.Caption:= WizardForm.PageNameLabel.Caption;  
  PageDescriptionLabel4.Caption:= WizardForm.PageDescriptionLabel.Caption;  
  PageNameLabel5.Caption:= WizardForm.PageNameLabel.Caption;  
  PageDescriptionLabel5.Caption:= WizardForm.PageDescriptionLabel.Caption;  
  PageNameLabel6.Caption:= WizardForm.PageNameLabel.Caption;  
  PageDescriptionLabel6.Caption:= WizardForm.PageDescriptionLabel.Caption;  
  PageNameLabel7.Caption:= WizardForm.PageNameLabel.Caption;  
  PageDescriptionLabel7.Caption:= WizardForm.PageDescriptionLabel.Caption;  
  PageNameLabel8.Caption:= WizardForm.PageNameLabel.Caption;  
  PageDescriptionLabel8.Caption:= WizardForm.PageDescriptionLabel.Caption;  
  PageID:=CurPageID;  
  if CurPageID = wpSelectComponents then  
  begin  
  WizardForm.BackButton.Enabled:= false;   
  if CurPageID = wpSelectDir then  
  begin  
    GetNeedSpaceCaption;  
    if FreeMB < NeedSize then  
    WizardForm.NextButton.Enabled:=False;  
      begin  
if CurPageID=wpInstalling  
then  
if CurPageID=wpFinished  
then  
begin  
WizardForm.Width:=497;  
WizardForm.Height:=358;  
WizardForm.Position:=poScreenCenter;  
end  
end;  
end;  
end; 
end;

И теперь кнопка "назад" становиться неактивной на странице выбора компонентов. Вопрос - как мне сделать чтобы кнопка "назад" была неактивна именно вот на этой странице: , то есть на следующей после выбора компонентов?!

P.S.
Забыл сразу написать: у меня для этой игры есть два официальных патча, но установить их можно, только если в игре стоят оригинальные файлы, с которых я делаю бекап. То есть реально установка этих патчей должна начаться сразу после "тихой деинсталляции" до установки основных файлов и только по одному - сначала файл myprogram v. 1.1, после завершения установки этого файла, идет установка файла myprogram v. 1.2 и только после того как установится второй файл должна начаться установка основных файлов.
КАК это сделать?!

Заранее СПАСИБО!!!

[Serega]

Но он, почему то не работает, как должен работать, может, кто посмотрит. Этот скрипт в идеале должен запускать "тихий деинсталлятор", но не сразу при запуске инсталлятора, а после странице выбора компонентов. »

Записал в процедуре CurPageChanged, которую привёл ниже...

Как убрать вот это табличку: »

Добавьте в секции [Components] ко всем компонентам флаг disablenouninstallwarning

Как правильно срастить вот этот скрипт »

1. Берете вашу процедуру:

Код:

procedure ComponentOnClick(Sender: TObject);
begin
  if WizardSelectedComponents(False) = '' then
    WizardForm.NextButton.Enabled:= False
  else WizardForm.NextButton.Enabled:= True;
end;

и добавляете её в свой скрипт, в любое место, главное перед процедурой InitializeWizard.
2. Добавляете эту строку:

Код:

  WizardForm.ComponentsList.OnClick := @ComponentOnClick;

в самое начало процедуры InitializeWizard, после begin.

Мне на том же форуме, в моем скрипте, изменили процедуру CurPageChanged »

исправил

Код:

procedure CurPageChanged(CurPageID: Integer);
var
  ResultCode: Integer;
  UnInstallPath: string;
begin
  PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel1.Caption:= 'Апаратное Обеспечение';
  PageDescriptionLabel1.Caption:= 'Программа установки обнаружила следуюшие необходимые компоненты';
  PageNameLabel2.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel2.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel3.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel3.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel4.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel4.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel5.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel5.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel6.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel6.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel7.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel7.Caption:= WizardForm.PageDescriptionLabel.Caption;
  PageNameLabel8.Caption:= WizardForm.PageNameLabel.Caption;
  PageDescriptionLabel8.Caption:= WizardForm.PageDescriptionLabel.Caption;
  if CurPageID = wpSelectComponents then
    begin
      RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{C05D8CDB-417D-4335-A38C-A0659EDFD6B8}_is1','UninstallString', UnInstallPath);
      UnInstallPath:= RemoveQuotes(UnInstallPath);
      Exec(UnInstallPath, '/verysilent','', SW_HIDE, ewWaitUntilTerminated, ResultCode);
    end;
  if CurPageID = wpSelectDir then
    begin
      GetNeedSpaceCaption;
      if FreeMB < NeedSize then
      WizardForm.NextButton.Enabled:= False;
    end;
  if CurPageID = wpReady then
    WizardForm.BackButton.Enabled:= False;
  if CurPageID = wpFinished then
    begin
      WizardForm.Width:= 497;
      WizardForm.Height:= 358;
      WizardForm.Position:= poScreenCenter;
    end
end;

[VitHAK]

Привет! У меня есть скрипт авторана на Inno Setup Script.
В нём есть кнопка:

Код:

  btn2:= TButton.Create(AutoRun);
  with btn2 do begin
    Parent:= AutoRun;
    Left := 280;
    Top := 185;
    Width := 270;
    Height := 22;
    Caption:= 'Начать игру';
    Cursor:= crHand;
    OnClick := @btn2Click;
  end;

Эта кнопка запускает процедуру:

Код:

procedure btn2Click(Sender: TObject);
var
  CurPageID: Integer;
begin
  Exec(ExpandConstant('{src}\Setup.exe'),'','',SW_SHOW,ewNoWait,ResultCode)
  AutoRun.Close;
  PostMessage(WizardForm.CancelButton.Handle, BM_CLICK, 0, 0);
end;

Как сделать чтоб эта кнопка была неактивная при отсутствии {src}\Setup.exe ?

P.S. Я знаю что это делается процедурой:

Код:

begin 
btn2.Enabled := False; 
end

Но как сделать проверку наличия файла {src}\Setup.exe ?