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

Компьютерный форум 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

 

Аватара для Dodakaedr

Ветеран


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

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


Как себя будет вести этот код если ярлык перед установкой уже будет существовать?
читать дальше »
Код: Выделить весь код
function PinToStartMenu(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to exe- or lnk-file
// IsPin......: False - unpin from StartMenu, True - pin to StartMenu
var
    hInst: THandle;
    buf: array [0..259] of Char;
    i, res: Integer;
    strLnk, strVerb: String;
    objShell, colVerbs: Variant;
begin
    Result := False;
    if not FileExists(szFilename) then Exit;
    if GetWindowsVersion > $06020000 then Exit; { Window 8 and above }

    { Windows 7 }
    if (GetWindowsVersion >= $06010000) and boolean(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\StartMenu\') + ExtractFileName(strLnk)) then Exit;
    end;

    { String resources }
    if IsPin then
        res := 5381     { Pin to Start Men&u }
    else
        res := 5382;    { Unpin from Start Men&u }

    { Load string resource }
    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');

            { below Windows 7 }
            if GetWindowsVersion < $06010000 then
            begin
                objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).InvokeVerb(strVerb);
                Result := True;
            end;

            { Windows 7 }
            if GetWindowsVersion >= $06010000 then
            begin
                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;
            end;
        except
            Exit;
        end;
    finally
        FreeDLL(hInst);
    end;
end;

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

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

Отправлено: 18:50, 03-07-2014 | #1031



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

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


Аватара для habib2302

Ветеран


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

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


Dodakaedr, а что?если по поводу создания 2 копии, то этого не происходит

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


Отправлено: 18:54, 03-07-2014 | #1032


Аватара для Dodakaedr

Ветеран


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

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


Цитата habib2302:
а что?если по поводу создания 2 копии, то этого не происходит »
Не знаю. Вот и справшиваю? Не будет ли там какой то ошибки???

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

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

Отправлено: 18:57, 03-07-2014 | #1033


Аватара для habib2302

Ветеран


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

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


Цитата Dodakaedr:
Не будет ли там какой то ошибки??? »
Проверил. Нет, не будет!

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


Отправлено: 19:00, 03-07-2014 | #1034


Аватара для Dinvin4ester

Старожил


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

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


Dodakaedr,
Ага,спасибо,там сделаю..,апд заметил что в русс,что в енг все черным .. я имею ввиду выбор - http://i61.fastpic.ru/big/2014/0703/...de2fe6008f.png ?
Как побороть ?

Отправлено: 19:31, 03-07-2014 | #1035


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

Ветеран


Contributor


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

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


Цитата Dodakaedr:
Как себя будет вести этот код если ярлык перед установкой уже будет существовать? »
Dodakaedr, для систем ниже Windows 7 при повторном запуске функции при наличии закрепленного ярлыка ничего не произойдет, даже проверку на наличие не надо делать. Для Windows 7 нужно, чтобы клоны не плодились. В скрипте эта проверка есть, трудно не заметить. Копипаста заменила стремление к получению ответа на вопрос: как это работает?
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:28, 03-07-2014 | #1036


Аватара для Dodakaedr

Ветеран


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

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


Цитата El Sanchez:
при повторном запуске функции при наличии закрепленного ярлыка ничего не произойдет, »
Даже если устанавливать в разные папки?

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


Отправлено: 21:38, 03-07-2014 | #1037


Аватара для habib2302

Ветеран


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

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


Dodakaedr, да. тоже проверил

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

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

Отправлено: 21:59, 03-07-2014 | #1038


Аватара для Dodakaedr

Ветеран


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

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


habib2302, Отлично!

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


Отправлено: 22:00, 03-07-2014 | #1039


Аватара для Dodakaedr

Ветеран


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

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


Цитата Dinvin4ester:
Как побороть ? »
Просто. Замените эту часть кода у себя:
читать дальше »
Код: Выделить весь код
 //Выберите дополнительные задачи  4 страница
  TaskLabel:= TLabel.Create(WizardForm);
with TaskLabel do begin
  Left:= 30;
  Top:= 270;
  Width:= 540;
  Height:= 74;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  //ParentFont := True;
  Parent:= WizardForm;
  Caption:=ExpandConstant('{cm:rusTask}');
end;


#ifdef TaskCheckBox
  #if TaskCheckBox == "4"

hSoftBtn1:=BtnCreate(WizardForm.Handle,60,305,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn1,BtnClickEventID,WrapBtnCallback(@Soft1Click,1));
BtnSetChecked(hSoftBtn1,True);
hSoftBtn2:=BtnCreate(WizardForm.Handle,60,335,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn2,BtnClickEventID,WrapBtnCallback(@Soft2Click,1));
BtnSetChecked(hSoftBtn2,True);
hSoftBtn3:=BtnCreate(WizardForm.Handle,300,305,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn3,BtnClickEventID,WrapBtnCallback(@Soft3Click,1));
BtnSetChecked(hSoftBtn3,True);
hSoftBtn4:=BtnCreate(WizardForm.Handle,300,335,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn4,BtnClickEventID,WrapBtnCallback(@Soft4Click,1));
BtnSetChecked(hSoftBtn4,True);

  Soft1Label:= TLabel.Create(WizardForm);
with Soft1Label do begin
  Left:= 82;
  Top:= 307;
  Width:= 200;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft1LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft1}');
end;

  Soft2Label:= TLabel.Create(WizardForm);
with Soft2Label do begin
  Left:= 82;
  Top:= 337;
  Width:= 200;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft2LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft2}');
end;

  Soft3Label:= TLabel.Create(WizardForm);
with Soft3Label do begin
  Left:= 321;
  Top:= 306;
  Width:= 290;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft3LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft3}');
end;

  Soft4Label:= TLabel.Create(WizardForm);
with Soft4Label do begin
  Left:= 321;
  Top:= 336;
  Width:= 300;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft4LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft4}');
end;
#else
#if TaskCheckBox == "3"

hSoftBtn1:=BtnCreate(WizardForm.Handle,70,305,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn1,BtnClickEventID,WrapBtnCallback(@Soft1Click,1));
BtnSetChecked(hSoftBtn1,True);
hSoftBtn2:=BtnCreate(WizardForm.Handle,70,335,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn2,BtnClickEventID,WrapBtnCallback(@Soft2Click,1));
BtnSetChecked(hSoftBtn2,True);
hSoftBtn3:=BtnCreate(WizardForm.Handle,330,315,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn3,BtnClickEventID,WrapBtnCallback(@Soft3Click,1));
BtnSetChecked(hSoftBtn3,True);

  Soft1Label:= TLabel.Create(WizardForm);
with Soft1Label do begin
  Left:= 92;
  Top:= 307;
  Width:= 200;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft1LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft1}');
end;

  Soft2Label:= TLabel.Create(WizardForm);
with Soft2Label do begin
  Left:= 92;
  Top:= 337;
  Width:= 200;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft2LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft2}');
end;

  Soft3Label:= TLabel.Create(WizardForm);
with Soft3Label do begin
  Left:= 351;
  Top:= 317;
  Width:= 290;
  Height:= 30;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft3LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft3}');
end;

#else
#if TaskCheckBox == "2"

hSoftBtn1:=BtnCreate(WizardForm.Handle,70,320,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn1,BtnClickEventID,WrapBtnCallback(@Soft1Click,1));
BtnSetChecked(hSoftBtn1,True);
hSoftBtn2:=BtnCreate(WizardForm.Handle,280,320,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn2,BtnClickEventID,WrapBtnCallback(@Soft2Click,1));
BtnSetChecked(hSoftBtn2,True);

  Soft1Label:= TLabel.Create(WizardForm);
with Soft1Label do begin
  Left:= 90;
  Top:= 322;
  Width:= 200;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft1LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft1}');
end;

  Soft2Label:= TLabel.Create(WizardForm);
with Soft2Label do begin
  Left:= 305;
  Top:= 322;
  Width:= 200;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft2LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft2}');
end;
#else
#if TaskCheckBox == "1"

hSoftBtn1:=BtnCreate(WizardForm.Handle,60,305,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn1,BtnClickEventID,WrapBtnCallback(@Soft1Click,1));
BtnSetChecked(hSoftBtn1,True);
hSoftBtn2:=BtnCreate(WizardForm.Handle,60,335,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn2,BtnClickEventID,WrapBtnCallback(@Soft2Click,1));
BtnSetChecked(hSoftBtn2,True);
hSoftBtn3:=BtnCreate(WizardForm.Handle,300,305,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn3,BtnClickEventID,WrapBtnCallback(@Soft3Click,1));
BtnSetChecked(hSoftBtn3,True);
hSoftBtn5:=BtnCreate(WizardForm.Handle,300,335,20,20,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(hSoftBtn5,BtnClickEventID,WrapBtnCallback(@Soft5Click,1));
BtnSetChecked(hSoftBtn5,True);

  Soft1Label:= TLabel.Create(WizardForm);
with Soft1Label do begin
  Left:= 82;
  Top:= 307;
  Width:= 200;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft1LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft1}');
end;

  Soft2Label:= TLabel.Create(WizardForm);
with Soft2Label do begin
  Left:= 82;
  Top:= 337;
  Width:= 200;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft2LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft2}');
end;

  Soft3Label:= TLabel.Create(WizardForm);
with Soft3Label do begin
  Left:= 321;
  Top:= 306;
  Width:= 290;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft3LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft3}');
end;

  Soft5Label:= TLabel.Create(WizardForm);
with Soft5Label do begin
  Left:= 321;
  Top:= 336;
  Width:= 300;
  Height:= 20;
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  ParentFont := True;
  Parent:= WizardForm;
  OnClick:= @Soft5LabelClick;
  Caption:=ExpandConstant('{cm:rusSoft5}');
end;

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


Отправлено: 22:54, 03-07-2014 | #1040



Компьютерный форум 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




 
Переход