Имя пользователя:
Пароль:
 | Правила  

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

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

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

Ветеран


Contributor


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


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

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


Изменения
Автор: El Sanchez
Дата: 16-02-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. Помощь и советы [часть 6]

Отправлено: 11:48, 10-03-2014

 

Аватара для habib2302

Ветеран


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

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


Dodakaedr, как в этом же скрите сделать так, чтобы ярлыки создавались в зависимости от битности файлов и системы

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


Отправлено: 00:55, 27-06-2014 | #981



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

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


Аватара для Dodakaedr

Ветеран


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

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


Цитата habib2302:
как в этом же скрите сделать так, чтобы ярлыки создавались в зависимости от битности файлов и системы »
используйте стандартную функцию "IsWin64" для 64 битных и "not IsWin64" для 32 битных

-------
Inno Setup 5 Ultra Unicode


Отправлено: 01:02, 27-06-2014 | #982


Аватара для habib2302

Ветеран


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

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


Dodakaedr, я так и сделал
Код: Выделить весь код
#define MyAppExeNamex86 "CCleaner.exe"
#define MyAppExeNamex64 "CCleaner64.exe"

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
CreateUninstallRegKey=false

[Files]
Source: CCleaner.exe; DestDir: {app}\bin;
Source: CCleaner64.exe; DestDir: {app}\bin;

[Tasks]
Name: PinToTaskBar; Description: {cm:cTaskBarTxt}; MinVersion: 0,6.0;
Name: PinToStartMenu; Description: {cm:cStartMenuTxt}; MinVersion: 0,6.0;

[Languages]
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "en"; MessagesFile: "compiler:Languages\English.isl"

[CustomMessages]
ru.cTaskBarTxt=Закрепить на панели задач
ru.cStartMenuTxt=Закрепить в меню "Пуск"
en.cTaskBarTxt=Pin to Taskbar
en.cStartMenuTxt=Pin to Start Menu

[ Code]
const
    LOAD_LIBRARY_AS_DATAFILE = $2;

#define A = (Defined UNICODE) ? "W" : "A"

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';

/////////////////////////////////////////////////////////////////////////
function PinToTaskbar(const szFilename: String; TaskBar, IsPin: Boolean): Boolean;
//szFilename: full path to executable file
//TaskBar: False - pin to StartMenu, True - pin to TaskBar
//IsPin: False - unpin from TaskBar/StartMenu, True - pin to TaskBar/StartMenu
var
    hInst: THandle;
    buf: array [0..255] of Char;
    i, res: Integer;
    strLnk, strVerb: String;
    objShell, colVerbs: Variant;
begin
    Result := False;
    if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit;
    if IsPin then
    begin
        if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then
        begin
            while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
            if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
        end;
        if TaskBar then res := 5386 else res := 5381;
    end else if TaskBar then res := 5387 else res := 5382;
    hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
    if hInst <> 0 then
    try
        for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
        try
            objShell := CreateOleObject('Shell.Application');
            colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
            for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
            begin
                colVerbs.Item[i].DoIt;
                Result := True;
                Break;
            end;
        except
            Exit;
        end;
    finally
        FreeDLL(hInst);
    end;
end;
      
procedure CurPageChanged(CurPageID: integer);
begin
  case CurPageID of
        wpFinished:
        begin
      if IsTaskSelected('PinToTaskBar') and not iswin64 then
        PinToTaskbar(ExpandConstant('{#MyAppExeNamex86}'), True, True);
      if IsTaskSelected('PinToStartMenu') and not iswin64 then
        PinToTaskbar(ExpandConstant('{#MyAppExeNamex86}'), False, True);
      if IsTaskSelected('PinToTaskBar') and iswin64 then
        PinToTaskbar(ExpandConstant('{#MyAppExeNamex64}'), True, True);
      if IsTaskSelected('PinToStartMenu') and iswin64 then
        PinToTaskbar(ExpandConstant('{#MyAppExeNamex64}'), False, True);
    end;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  instPath: string;
begin
    case CurUninstallStep of
      usUninstall: begin
      if not iswin64 then
        PinToTaskbar(ExpandConstant('{#MyAppExeNamex86}'), True, False);
        if not iswin64 then
        PinToTaskbar(ExpandConstant('{#MyAppExeNamex86}'), False, False);
        if iswin64 then
        PinToTaskbar(ExpandConstant('{#MyAppExeNamex64}'), True, False);
        if iswin64 then
        PinToTaskbar(ExpandConstant('{#MyAppExeNamex64}'), False, False);
      end;
    end;
end;
но оно не работает

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


Отправлено: 01:08, 27-06-2014 | #983


Аватара для Dodakaedr

Ветеран


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

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


Цитата habib2302:
но оно не работает »
А так?
читать дальше »
Код: Выделить весь код
#define MyAppExeName "{app}\bin\CCleaner.exe"

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
CreateUninstallRegKey=false

[Files]
Source: CCleaner.exe; DestDir: "{app}\bin"; Check: not IsWin64;
Source: CCleaner64.exe; DestDir: "{app}\bin"; DestName: "CCleaner.exe" Check: IsWin64;

[Tasks]
Name: PinToTaskBar; Description: {cm:cTaskBarTxt}; MinVersion: 0,6.0;
Name: PinToStartMenu; Description: {cm:cStartMenuTxt}; MinVersion: 0,6.0;

[Languages]
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "en"; MessagesFile: "compiler:Languages\English.isl"

[CustomMessages]
ru.cTaskBarTxt=Закрепить на панели задач
ru.cStartMenuTxt=Закрепить в меню "Пуск"
en.cTaskBarTxt=Pin to Taskbar
en.cStartMenuTxt=Pin to Start Menu

[ Code]
const
    LOAD_LIBRARY_AS_DATAFILE = $2;

#define A = (Defined UNICODE) ? "W" : "A"

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';

/////////////////////////////////////////////////////////////////////////
function PinToTaskbar(const szFilename: String; TaskBar, IsPin: Boolean): Boolean;
//szFilename: full path to executable file
//TaskBar: False - pin to StartMenu, True - pin to TaskBar
//IsPin: False - unpin from TaskBar/StartMenu, True - pin to TaskBar/StartMenu
var
    hInst: THandle;
    buf: array [0..255] of Char;
    i, res: Integer;
    strLnk, strVerb: String;
    objShell, colVerbs: Variant;
begin
    Result := False;
    if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit;
    if IsPin then
    begin
        if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then
        begin
            while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
            if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
        end;
        if TaskBar then res := 5386 else res := 5381;
    end else if TaskBar then res := 5387 else res := 5382;
    hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
    if hInst <> 0 then
    try
        for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
        try
            objShell := CreateOleObject('Shell.Application');
            colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
            for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
            begin
                colVerbs.Item[i].DoIt;
                Result := True;
                Break;
            end;
        except
            Exit;
        end;
    finally
        FreeDLL(hInst);
    end;
end;

procedure CurPageChanged(CurPageID: integer);
begin
  case CurPageID of
        wpFinished:
        begin
      if IsTaskSelected('PinToTaskBar') then
        PinToTaskbar(ExpandConstant('{#MyAppExeName}'), True, True);
      if IsTaskSelected('PinToStartMenu') then
        PinToTaskbar(ExpandConstant('{#MyAppExeName}'), False, True);
      if IsTaskSelected('PinToTaskBar') then
        PinToTaskbar(ExpandConstant('{#MyAppExeName}'), True, True);
      if IsTaskSelected('PinToStartMenu') then
        PinToTaskbar(ExpandConstant('{#MyAppExeName}'), False, True);
    end;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  instPath: string;
begin
    case CurUninstallStep of
      usUninstall: begin
      PinToTaskbar(ExpandConstant('{#MyAppExeName}'), True, False);
      PinToTaskbar(ExpandConstant('{#MyAppExeName}'), False, False);
      PinToTaskbar(ExpandConstant('{#MyAppExeName}'), True, False);
      PinToTaskbar(ExpandConstant('{#MyAppExeName}'), False, False);
      end;
    end;
end;

-------
Inno Setup 5 Ultra Unicode


Последний раз редактировалось Dodakaedr, 27-06-2014 в 02:06.


Отправлено: 01:23, 27-06-2014 | #984


Аватара для habib2302

Ветеран


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

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


Dodakaedr, не то

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


Отправлено: 12:26, 27-06-2014 | #985


Аватара для audiofeel

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


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

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


как организовать вот так же как на скрине (при помощи b2p), пробЫвал при помощи CreateBitmapRgn, края получаются какие то рванные, пример был, "потерял"

Последний раз редактировалось audiofeel, 11-10-2014 в 07:11.


Отправлено: 19:12, 27-06-2014 | #986


Аватара для Dodakaedr

Ветеран


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

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


habib2302, Что не так?

-------
Inno Setup 5 Ultra Unicode


Отправлено: 21:35, 27-06-2014 | #987


Аватара для habib2302

Ветеран


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

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


Dodakaedr, все не так

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


Последний раз редактировалось habib2302, 27-06-2014 в 22:55.


Отправлено: 22:45, 27-06-2014 | #988


Аватара для habib2302

Ветеран


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

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


Всем привет. Мне давали код для изменения пути установки в зависимости от компонента и не работает команда /DIR
Код: Выделить весь код
procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpSelectProgramGroup:
    begin
      if IsComponentSelected('AIDA642') then
      begin
        WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}')) + '{#AIDA642}';
        WizardForm.GroupEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultGroupName")}')) + '{#AIDA642}';
      end else begin
        WizardForm.DirEdit.Text := ExpandConstant('{#SetupSetting("DefaultDirName")}');
        WizardForm.GroupEdit.Text := ExpandConstant('{#SetupSetting("DefaultGroupName")}');
      end;
    end;
  end;
end;

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


Последний раз редактировалось habib2302, 28-06-2014 в 19:50.


Отправлено: 18:43, 28-06-2014 | #989


Аватара для Dodakaedr

Ветеран


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

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


Цитата habib2302:
Всем привет. Я хочу сократить команды например для тихой установки. . . т.е убрать »
Ну что-то типа этого:
читать дальше »
Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: "compiler:Languages\Russian.isl"; DestDir: "{app}"; DestName: "aida64.isl"; Check: aida64check;
Source: "compiler:Default.isl"; DestDir: "{app}"; DestName: "aida32.isl"; Check: aida32check;

[Components]
Name: rut; Description: rupol;

[ Code]
var
  ComponentsList: TNewCheckListBox;

function CheckParam(s: string): boolean;
var
i: integer;
begin
  for i := 0 to ParamCount do begin
    Result := ParamStr(i) = s;
    if Result then Break;
  end;
end; 

function IsComponent(CompIndex: Integer): Boolean;
var
  i: Integer;
  begin
  Result := False;
  for i := 0 to ComponentsList.ItemCount - 1 do
  begin
    if CompIndex <= (ComponentsList.ItemCount - 1) then
      Result := ComponentsList.Checked[CompIndex];
   end;
end;

function aida64check: Boolean;
begin
if CheckParam('/AIDA64') or CheckParam('/AIDA32') then
  Result := CheckParam('/AIDA64')
else
  Result := IsComponent(1);
end;

function aida32check: Boolean;
begin
if CheckParam('/AIDA64') or CheckParam('/AIDA32') then
  Result := CheckParam('/AIDA32')
else
  Result := IsComponent(2);
end;

procedure RedesignWizardForm;
begin
ComponentsList := TNewCheckListBox.Create(WizardForm);
  with ComponentsList do
  begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(0), ScaleY(61), ScaleX(417), ScaleY(169));
    AddCheckBox('Версия', '', 0, True, False, False, True, nil);
      AddRadioButton('AIDA64', '1.5 GB', 1, true, True, nil);
      AddRadioButton('AIDA32', '0.8 GB', 1, false, True, nil);
    end;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
   case CurPageID of
   wpSelectcomponents:
   begin
   WizardForm.ComponentsList.Hide;
   WizardForm.TypesCombo.Hide;
   end;
  end;
 end;


При использовании стандартного компонент листа:
читать дальше »
Код: Выделить весь код
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Components]
Name: "aida64"; Description: "AIDA64"; Flags: exclusive
Name: "aida32"; Description: "AIDA32"; Flags: exclusive

[Files]
Source: "compiler:Languages\Russian.isl"; DestDir: "{app}"; DestName: "aida64.isl"; Check: aida64check;
Source: "compiler:Default.isl"; DestDir: "{app}"; DestName: "aida32.isl"; Check: aida32check;

[ Code]
function CheckParam(s: string): boolean;
var
i: integer;
begin
  for i := 0 to ParamCount do begin
    Result := ParamStr(i) = s;
    if Result then Break;
  end;
end;

function aida64check: Boolean;
begin
if CheckParam('/AIDA64') or CheckParam('/AIDA32') then
  Result := CheckParam('/AIDA64')
else
  Result := WizardForm.ComponentsList.Checked[0];
end;

function aida32check: Boolean;
begin
if CheckParam('/AIDA64') or CheckParam('/AIDA32') then
  Result := CheckParam('/AIDA32')
else
  Result := WizardForm.ComponentsList.Checked[1];
end;

-------
Inno Setup 5 Ultra Unicode


Последний раз редактировалось Dodakaedr, 28-06-2014 в 21:12.

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

Отправлено: 20:28, 28-06-2014 | #990



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Скрипты 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
[архив] Скрипты Inno Setup. Помощь и советы [часть 2] Serega Автоматическая установка приложений 2651 08-11-2010 18:34




 
Переход