Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8]

« Первая < Предыдущая 107157197205 206 207 208 209 217 Следующая > Последняя »
Закрытая тема
Настройки темы
Скрипты Inno Setup. Помощь и советы [часть 8]

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030


Конфигурация

Профиль | Отправить PM | Цитировать

Изменения
Автор: El Sanchez
Дата: 22-10-2015
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы.

Показать/скрыть: Справка, руководство, примеры:

Показать/скрыть: Ссылки на примеры скриптов:

Показать/скрыть: Дополнительные программы для Inno Setup:
  • ISTool - неплохой редактор скриптов Inno Setup.
    Последняя версия: 5.3.0.1 [29.09.2009] - Скачать | зеркало;

  • Inno Script Generator - генератор скриптов Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.
    Последняя версия: 1.0.3.1 [23.03.2008] - Скачать | зеркало на русифицированную программу;
    Примечание: Родной сайт www.hisoft2000.de более недоступен, поэтому здесь расположены сторонние ссылки.

  • Inno Setup Form Designer - редактор страниц Inno Setup, можно создавать свои страницы.
    Последняя версия: 2.0.8 [12.11.2006] - Скачать;
    Примечание: Родной сайт http://isfd.kaju74.de/index.php?isfd более недоступен, поэтому здесь расположены сторонние ссылки.

  • Inno Setup GameScript Generator - программа генерирует скрипты для Inno Setup . С помощью GameScript Generator и Inno Setup вы сможете быстро создать простенький инсталляционный пакет для любой игры. В инсталлятор можно встроить музыку, слайдшоу и фоновый рисунок. Для специалистов созданный скрипт, возможно, будет неплохой заготовкой для дальнейшей модернизации;

  • ISSkin - Программа для создания и добавления в инсталлятор скинов. Инструкция.
    Последняя версия: 3.0.0.0 [19.01.2010] - Скачать;

  • ISSJoiner - Программа для объединения нескольких скриптов InnoSetup в один.
    Последняя версия: 3.0 [23.07.2009]

  • Converter - Программа конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup).
    Последняя версия: 0.1.4 [13.03.2010] - Скачать;

  • RegExporter - Фриварная утилита для экспорта реестра и конвертации файлов *.reg и *.ini в инсталляционные скрипты Inno Setup и NSIS.
    Последняя версия: 1.2.0 [23.09.2014] - Скачать;


Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах:
Скрипты Inno Setup. Помощь и советы (Archive Pack 1):

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

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

Отправлено: 08:52, 02-02-2015

 

Аватара для TheLeon

Пользователь


Сообщения: 50
Благодарности: 0

Профиль | Отправить PM | Цитировать

Здравствуйте, уважаемые пользователи Oszone.net(Форума). Выскакивает ошибка при компиляции проекта, а именно(причина понятна, но не знаю как решить):
(Решено)

Сам код:
Скрытый текст

[code]
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\steam.exe')) then begin
MsgBox('Ошибка! Вы должны указать путь к папке Steam.', mbError, MB_OK);
Result := False;
end;
end;
end;
procedure SomeProc;
begin
end;
var
DelTmp: TNewCheckBox;
function DelTmpCheck(): boolean;
begin
result := DelTmp.Checked;
end;
procedure InitializeWizard();
begin
WizardForm.RunList.Height := ScaleY(WizardForm.RunList.Height-100);
DelTmp := TNewCheckBox.Create(WizardForm);
DelTmp.Parent := WizardForm.FinishedPage;
DelTmp.Caption := ' Очистить временные файлы игры (рекомендуется)';
DelTmp.Left := ScaleX(180);
DelTmp.Top := ScaleY(170);
DelTmp.Width := ScaleX(300);
DelTmp.Height := ScaleY(15);
DelTmp.Checked := true;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssDone:
begin
if DelTmpCheck then
begin
DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\directx_installer\*'), false, true, true);
DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\csgo_lv\streams\*'), false, true, true);
DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\EmptySteamDepot'), True, true, true);
DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\thirdpartylegalnotices.doc'), false, true, true);
DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\installscript.vdf'), false, true, true);
DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\images'), True, true, true);
DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\maps'), True, true, true);
DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\scripts'), True, true, true);
DelTree(ExpandConstant('{userdocs}\images'), True, true, true);
DelTree(ExpandConstant('{userdocs}\maps'), True, true, true);
DelTree(ExpandConstant('{userdocs}\scripts'), True, true, true);
end;
end;
end;
end;
var
ImagePanel: TPanel;
ComponentsInfoImage: TBitmapImage;

procedure ComponentsListClickCheck(Sender: TObject);
begin
If IsComponentSelected('LEON\DE_DUST2') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_dust2.bmp')) else
If IsComponentSelected('LEON\DE_INFERNO') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_inferno.bmp')) else
If IsComponentSelected('LEON\DE_MIRAGE') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_mirage.bmp')) else
If IsComponentSelected('LEON\DE_CACHE') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_cache.bmp')) else
If IsComponentSelected('LEON\DE_CBBLE') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_cbble.bmp')) else
If IsComponentSelected('LEON\DE_OVERPASS') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_overpass.bmp')) else
If IsComponentSelected('LEON\CS_ITALY') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_italy.bmp')) else
If IsComponentSelected('LEON\DE_TRAIN') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_train.bmp')) else
If IsComponentSelected('LEON\DE_NUKE') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_nuke.bmp')) else

If IsComponentSelected('FROOSH\DE_DUST2') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_dust2.bmp')) else
If IsComponentSelected('FROOSH\DE_INFERNO') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_inferno.bmp')) else
If IsComponentSelected('FROOSH\DE_MIRAGE') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_mirage.bmp')) else
If IsComponentSelected('FROOSH\DE_CACHE') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_cache.bmp')) else
If IsComponentSelected('FROOSH\DE_CBBLE') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_cbble.bmp')) else
If IsComponentSelected('FROOSH\DE_OVERPASS') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_overpass.bmp')) else
If IsComponentSelected('FROOSH\DE_SEASON') then
ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_season.bmp'));
end;

procedure InitializeWizard();
begin
WizardForm.TYPESCOMBO.Visible:= false;
WizardForm.ComponentsList.Visible := True;
WizardForm.ComponentsList.Height := ScaleX(100);
WizardForm.ComponentsList.Top := ScaleX(47);
WizardForm.ComponentsList.Width := ScaleX(232);
WizardForm.ComponentsDiskSpaceLabel.Visible := False;

ImagePanel := TPanel.Create(WizardForm);
ImagePanel.Parent := WizardForm.SelectComponentsPage;
ImagePanel.Caption := '';
ImagePanel.Top := ScaleX(47);
ImagePanel.Left := ScaleX(240);
ImagePanel.Width := ScaleX(177);
ImagePanel.Height := ScaleX(101);
ImagePanel.BevelInner := bvRaised;
ImagePanel.BevelOuter := bvLowered;

ExtractTemporaryFile('leon_dust2.bmp');
ExtractTemporaryFile('leon_inferno.bmp');
ExtractTemporaryFile('leon_mirage.bmp');
ExtractTemporaryFile('leon_cache.bmp');
ExtractTemporaryFile('leon_cbble.bmp');
ExtractTemporaryFile('leon_overpass.bmp');
ExtractTemporaryFile('leon_italy.bmp');
ExtractTemporaryFile('leon_train.bmp');
ExtractTemporaryFile('leon_nuke.bmp');

ExtractTemporaryFile('froosh_dust2.bmp');
ExtractTemporaryFile('froosh_inferno.bmp');
ExtractTemporaryFile('froosh_mirage.bmp');
ExtractTemporaryFile('froosh_cache.bmp');
ExtractTemporaryFile('froosh_cbble.bmp');
ExtractTemporaryFile('froosh_overpass.bmp');
ExtractTemporaryFile('froosh_season.bmp');

WizardForm.ComponentsList.OnClickCheck:= @ComponentsListClickCheck;
ComponentsInfoImage:= TBitmapImage.Create(WizardForm);
ComponentsInfoImage.Parent:= ImagePanel;
ComponentsInfoImage.Top:= ScaleY(4);
ComponentsInfoImage.Left:= ScaleX(4);
ComponentsInfoImage.Width:= ScaleX(168);
ComponentsInfoImage.Height:= ScaleY(92);
ComponentsInfoImage.Stretch:= True;
ComponentsInfoImage.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpSelectComponents: ComponentsListClickCheck(nil);
end;
end;

Последний раз редактировалось TheLeon, 03-09-2017 в 14:47.

Отправлено: 13:49, 03-09-2017 | #2061



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать

Цитата TheLeon:
Выскакивает ошибка при компиляции проекта, а именно: »
В коде Вашего проекта две процедуры с одним и тем же именем «InitializeWizard()».

Отправлено: 14:13, 03-09-2017 | #2062


SHVtYW4=


Сообщения: 3451
Благодарности: 1273

Профиль | Отправить PM | Цитировать

TheLeon, Исправил:
Код: Выделить весь код
[Code]
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  case CurPageID of
    wpSelectDir:
      if not FileExists(ExpandConstant('{app}\steam.exe')) then begin
        MsgBox('Ошибка! Вы должны указать путь к папке Steam.', mbError, MB_OK);
        Result := False;
      end;
  end;
end;
procedure SomeProc;
begin
end;
var
DelTmp: TNewCheckBox;
function DelTmpCheck(): boolean;
begin
  result := DelTmp.Checked;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssDone:
      begin
        if DelTmpCheck then
          begin
            DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\directx_installer\*'), false, true, true);
            DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\csgo_lv\streams\*'), false, true, true);
            DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\EmptySteamDepot'), True, true, true);
            DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\thirdpartylegalnotices.doc'), false, true, true);
            DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\installscript.vdf'), false, true, true);
            DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\images'), True, true, true);
            DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\maps'), True, true, true);
            DelTree(ExpandConstant('{app}\steamapps\common\Counter-Strike Global Offensive\scripts'), True, true, true);
            DelTree(ExpandConstant('{userdocs}\images'), True, true, true);
            DelTree(ExpandConstant('{userdocs}\maps'), True, true, true);
            DelTree(ExpandConstant('{userdocs}\scripts'), True, true, true);
          end;
      end;
  end;
end;
////////////////////////////////////////////////////////////////////////////////////////////////
var
  ImagePanel: TPanel;
  ComponentsInfoImage: TBitmapImage;

procedure ComponentsListClickCheck(Sender: TObject);
begin
  If IsComponentSelected('LEON\DE_DUST2') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_dust2.bmp')) else
  If IsComponentSelected('LEON\DE_INFERNO') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_inferno.bmp')) else
  If IsComponentSelected('LEON\DE_MIRAGE') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_mirage.bmp')) else
  If IsComponentSelected('LEON\DE_CACHE') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_cache.bmp')) else
  If IsComponentSelected('LEON\DE_CBBLE') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_cbble.bmp')) else
  If IsComponentSelected('LEON\DE_OVERPASS') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_overpass.bmp')) else
  If IsComponentSelected('LEON\CS_ITALY') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_italy.bmp')) else
  If IsComponentSelected('LEON\DE_TRAIN') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_train.bmp')) else
  If IsComponentSelected('LEON\DE_NUKE') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\leon_nuke.bmp')) else

  If IsComponentSelected('FROOSH\DE_DUST2') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_dust2.bmp')) else
  If IsComponentSelected('FROOSH\DE_INFERNO') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_inferno.bmp')) else
  If IsComponentSelected('FROOSH\DE_MIRAGE') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_mirage.bmp')) else
  If IsComponentSelected('FROOSH\DE_CACHE') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_cache.bmp')) else
  If IsComponentSelected('FROOSH\DE_CBBLE') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_cbble.bmp')) else
  If IsComponentSelected('FROOSH\DE_OVERPASS') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_overpass.bmp')) else
  If IsComponentSelected('FROOSH\DE_SEASON') then
    ComponentsInfoImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\froosh_season.bmp'));
end;


procedure InitializeWizard();
begin
  WizardForm.TYPESCOMBO.Visible:= false;
  WizardForm.ComponentsList.Visible := True;
  WizardForm.ComponentsList.Height := ScaleX(100);
  WizardForm.ComponentsList.Top := ScaleX(47);
  WizardForm.ComponentsList.Width := ScaleX(232);
  WizardForm.ComponentsDiskSpaceLabel.Visible := False;

  ImagePanel := TPanel.Create(WizardForm);
  ImagePanel.Parent := WizardForm.SelectComponentsPage;
  ImagePanel.Caption := '';
  ImagePanel.Top := ScaleX(47);
  ImagePanel.Left := ScaleX(240);
  ImagePanel.Width := ScaleX(177);
  ImagePanel.Height := ScaleX(101);
  ImagePanel.BevelInner := bvRaised;
  ImagePanel.BevelOuter := bvLowered;

  ExtractTemporaryFile('leon_dust2.bmp');
  ExtractTemporaryFile('leon_inferno.bmp');
  ExtractTemporaryFile('leon_mirage.bmp');
  ExtractTemporaryFile('leon_cache.bmp');
  ExtractTemporaryFile('leon_cbble.bmp');
  ExtractTemporaryFile('leon_overpass.bmp');
  ExtractTemporaryFile('leon_italy.bmp');
  ExtractTemporaryFile('leon_train.bmp');
  ExtractTemporaryFile('leon_nuke.bmp');

  ExtractTemporaryFile('froosh_dust2.bmp');
  ExtractTemporaryFile('froosh_inferno.bmp');
  ExtractTemporaryFile('froosh_mirage.bmp');
  ExtractTemporaryFile('froosh_cache.bmp');
  ExtractTemporaryFile('froosh_cbble.bmp');
  ExtractTemporaryFile('froosh_overpass.bmp');
  ExtractTemporaryFile('froosh_season.bmp');

  WizardForm.ComponentsList.OnClickCheck:= @ComponentsListClickCheck;
  ComponentsInfoImage:= TBitmapImage.Create(WizardForm);
  ComponentsInfoImage.Parent:= ImagePanel;
  ComponentsInfoImage.Top:= ScaleY(4);
  ComponentsInfoImage.Left:= ScaleX(4);
  ComponentsInfoImage.Width:= ScaleX(168);
  ComponentsInfoImage.Height:= ScaleY(92);
  ComponentsInfoImage.Stretch:= True;
  ComponentsInfoImage.BringToFront;

  WizardForm.RunList.Height := ScaleY(WizardForm.RunList.Height-100);
  DelTmp := TNewCheckBox.Create(WizardForm);
  DelTmp.Parent := WizardForm.FinishedPage;
  DelTmp.Caption := ' Очистить временные файлы игры (рекомендуется)';
   DelTmp.Left := ScaleX(180);
   DelTmp.Top := ScaleY(170);
   DelTmp.Width := ScaleX(300);
   DelTmp.Height := ScaleY(15);
   DelTmp.Checked := true;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpSelectComponents: ComponentsListClickCheck(nil);
  end;
end;
P.S Теперь найдите отличия между своим кодом и из данного сообщения.
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:42, 03-09-2017 | #2063


Аватара для TheLeon

Пользователь


Сообщения: 50
Благодарности: 0

Профиль | Отправить PM | Цитировать

Nordek, спасибо.

Отправлено: 14:45, 03-09-2017 | #2064


SHVtYW4=


Сообщения: 3451
Благодарности: 1273

Профиль | Отправить PM | Цитировать

Не понятно что за "Файл 147853"
Цитата:
Страница не найдена. Если вы уверены, что использовали правильную ссылку, свяжитесь с администрацией
Если прикрепили к сообщению файл, то пусть будет прикреплённым - ненужно самодеятельности.
Если не хватает места для прикрепления например картинок - используйте хостинг картинок.

-------
09a468a9b4293cd82adf6d6c60a9da82 | Tm9yZGVr
В связи со сменой железа и переходом на LInux с полным отказом от Windows - посещение на форуме будет редким.

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:46, 03-09-2017 | #2065


Аватара для TheLeon

Пользователь


Сообщения: 50
Благодарности: 0

Профиль | Отправить PM | Цитировать

Nordek, "Файл 147853" - это был весь проект(на всякий если кому-нибудь понадобится для проверки), но решил удалить.

Отправлено: 14:54, 03-09-2017 | #2066


Аватара для ErikPshat

Пользователь


Сообщения: 54
Благодарности: 11

Профиль | Отправить PM | Цитировать

Помогите пожалуйста, знаю наверняка 100500 раз это спрашивали, но никак не могу найти подходящую формулу.
Нужно, перед установкой программы, проверить, установлена ли до этого данная программа и, если установлена, то запустить её стандартную деинсталляцию. После удаления продолжить инсталляцию.

Я нарыл такой код, но он у меня никак не проявляет себя:
Код: Выделить весь код
[Code]
var
  ResultCode: Integer;
function InitializeSetup(): Boolean; 
begin
  // вызов деинсталяции перед установкой
  Exec(ExpandConstant('{uninstallexe}'), '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
  Result := True;
end;

Отправлено: 01:27, 10-09-2017 | #2067


Аватара для habib2302

Ветеран


Сообщения: 862
Благодарности: 102

Профиль | Отправить PM | Цитировать

Доброе время суток. Помогите решить проблему. Указал минимальную версию 0,6.4 (Win 10) в Setup'е, но при запуске выдает ошибку о том, что программа не может быть установлена

-------
Помог? От "Полезное сообщение" не откажусь!!!

Отправлено: 02:25, 10-09-2017 | #2068


Аватара для habib2302

Ветеран


Сообщения: 862
Благодарности: 102

Профиль | Отправить PM | Цитировать

ErikPshat,
Код: Выделить весь код
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
AppId=wwwwwwwwwwwwww

[code]

function UninstallMyApp(): Boolean;
var
    Buff: String;
    i: Integer;
begin
    Result := not RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1', 'UninstallString', Buff );
    if not Result then Result := not FileExists(RemoveQuotes(Buff));
    if not Result then if MsgBox('Перед установкой необходимо удалить предыдущую версию приложения. Продолжить?', mbError, MB_YESNO) = IDYES then
    try
        Exec(RemoveQuotes(Buff), '', ExtractFilePath(RemoveQuotes(Buff)), SW_SHOW, ewWaitUntilTerminated, i);
    finally
        Result := not RegQueryStringValue( HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1', 'UninstallString', Buff );
        if not Result then MsgBox('Удаление завершилось неудачей, бывай!', mbError, MB_OK);
    end;
end;



function InitializeSetup(): Boolean;
begin
    Result := UninstallMyApp();
end;

-------
Помог? От "Полезное сообщение" не откажусь!!!

Это сообщение посчитали полезным следующие участники:

Отправлено: 02:45, 10-09-2017 | #2069


SHVtYW4=


Сообщения: 3451
Благодарности: 1273

Профиль | Отправить PM | Цитировать

Цитата habib2302:
Указал минимальную версию ... (Win 10) »
Скрытый текст
What browser am I using? Is my browser up to date?
What browser am I using?
Mr. Whoer

Windows NT
Код: Выделить весь код
Mozilla/5.0 (Windows NT 6.4; Win64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.79 Safari/537.36
Windows 10 (Реальность)
Код: Выделить весь код
Mozilla/5.0 (Windows NT 10.0; Win64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.79 Safari/537.36


Цитата habib2302:
Указал минимальную версию 0,6.4 (Win 10) »
Windows 10 кривая, определяет и как Windows 8.1 и как Windows 10 уже с MinVersion 6.3, вы же замахнулись аж на MinVersion 6.4.
Указав MinVersion 6.3 - уже будет блокировать Windows 10.

Укажите:
Код: Выделить весь код
MinVersion=0,6.2

Последний раз редактировалось Nordek, 10-09-2017 в 14:03.

Это сообщение посчитали полезным следующие участники:

Отправлено: 05:06, 10-09-2017 | #2070

« Первая < Предыдущая 107157197205 206 207 208 209 217 Следующая > Последняя »


Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8]

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Скрипты Inno Setup. Помощь и советы [часть 7] El Sanchez Автоматическая установка приложений 2499 02-02-2015 08:59
Скрипты Inno Setup. Помощь и советы [часть 6] El Sanchez Автоматическая установка приложений 2494 10-03-2014 11:51
Скрипты Inno Setup. Помощь и советы [часть 5] El Sanchez Автоматическая установка приложений 1999 28-03-2013 19:09
Скрипты Inno Setup. Помощь и советы [часть 4] El Sanchez Автоматическая установка приложений 2099 22-05-2012 23:16
Скрипты Inno Setup. Помощь и советы [часть 3] Serega Автоматическая установка приложений 3755 26-10-2011 17:58


« Предыдущая тема | Следующая тема »


 
Переход