|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 9] |
|
Скрипты Inno Setup. Помощь и советы [часть 9]
|
Ветеран Сообщения: 1270 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов!
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы [часть 6] | Скрипты Inno Setup. Помощь и советы [часть 6].7z Скрипты Inno Setup. Помощь и советы [часть 7] | Скрипты Inno Setup. Помощь и советы [часть 7].7z Скрипты Inno Setup. Помощь и советы [часть 8] | Скрипты Inno Setup. Помощь и советы [часть 8].7z |
|
Отправлено: 16:09, 04-04-2018 |
Старожил Сообщения: 440
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Beavimo:
Запросто
|
|
------- Отправлено: 21:07, 06-02-2020 | #531 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 67
|
Профиль | Отправить PM | Цитировать nik1967, вы хотите сказать я качаю з оф сайта Инно 6.0.3, и на нем делаю такой инсталлер, музыка меня не интересует это для детей... я говорю о чистом дистрибутиве безо всяких ботв и прочей лабуды. реально зделать такой как у меня на картинке, ну хотя бы похожый?
Nordek, дружыще мож подскажешь как в один вопрс поместить сразу два или три, ну ето как "if ...... then" выходит типа "если.......тогда" я лично понимаю так а мне нужно зделать так "if яблук=5 и груш=5 then" только тогда выполнять условие.... тоисть два условия в одном вопросе.... надеюсь я понятно выражаюсь , я когда смотрел уроки по паскалю там мелькало что то типа "case" но я так и не вребился..... нельзя ограничиватся одним if.......then |
Отправлено: 21:47, 06-02-2020 | #532 |
Ветеран Сообщения: 978
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Beavimo:
Цитата Beavimo:
|
||
Последний раз редактировалось Gnom_aka_Lexander, 06-02-2020 в 22:19. Отправлено: 22:09, 06-02-2020 | #533 |
Пользователь Сообщения: 67
|
Профиль | Отправить PM | Цитировать иконка на панели задач Виндовс 7 без проблем, а на 10-ке никак. как решыть?
Скрытый текст
[Setup] AppName=ICONKA AppVerName=ICONKA DefaultDirName=C:\ICONKA OutputDir=userdocs:..\Desktop [Tasks] Name: "taskbaricon"; Description: "Create Quick Launch icon"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked [*Code] function PinToTaskbar(const FileName: String; IsPin: Boolean): Boolean; var ShellApp: Variant; Verb: String; begin Result:=False; if not FileExists(FileName) then Exit; try if IsPin then Verb:='taskbarpin' else Verb:='taskbarunpin'; ShellApp:=CreateOleObject('Shell.Application'); ShellApp.Windows.Item.Document.Application.NameSpace(ExtractFileDir(FileName)).ParseName(ExtractFileName(FileName)).InvokeVerb(Verb); Result:=True; except ShowExceptionMessage; end end; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep=ssPostInstall then if IsTaskSelected('taskbaricon') then PinToTaskbar(ExpandConstant('{app}\ICONKA.exe'), True); end; [Files] Source: "ICONKA.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs уже все перерыл |
Отправлено: 13:53, 08-02-2020 | #534 |
Пользователь Сообщения: 67
|
Профиль | Отправить PM | Цитировать кто в курсе, у меня на 10-ке в виртуальной машыне пропадает иконка удалятора из меню пуск, мож кто знает в реальной винде такая же ерунда происходит.... думаю писать из инсталлера удалятор кто таким извращался?
|
Отправлено: 23:31, 08-02-2020 | #535 |
Пользователь Сообщения: 67
|
Профиль | Отправить PM | Цитировать так никто и не ответил на счет ярлыка на панели задач в Windows 10, самое главное что если закрепить ярлык после инсталляции программы в ручную, то при ее удалении ярлык деинсталлируется... а на 7-ке все прекрасно работает
|
Отправлено: 13:44, 09-02-2020 | #536 |
Ветеран Сообщения: 861
|
Профиль | Отправить PM | Цитировать Beavimo,
Код:
[code] //PinToTaskbar function PinToTaskbar(const FileName: string; IsPin: Boolean): Boolean; // FileName : full path to executable file // IsPin : False - unpin from TaskBar, True - pin to TaskBar var ShellApp: Variant; Verb: string; begin Result := False; if not FileExists(FileName) then Exit; try if IsPin then Verb := 'taskbarpin' else Verb := 'taskbarunpin'; ShellApp := CreateOleObject('Shell.Application'); ShellApp.Windows.Item.Document.Application.NameSpace(ExtractFileDir(FileName)).ParseName(ExtractFileName(FileName)).InvokeVerb(Verb); Result := True; except ShowExceptionMessage; end; end; //PinToStartMenu function PinToStartMenu(const FileName: string; const IsPin: Boolean): Boolean; // FileName : full path to exe- or lnk-file // IsPin : False - unpin from StartMenu, True - pin to StartMenu var ShellApp, FolderItem: Variant; Verb, LnkName: string; begin Result := False; if not FileExists(FileName) then Exit; try ShellApp := CreateOleObject('Shell.Application'); FolderItem := ShellApp.Windows.Item.Document.Application.NameSpace(ExtractFileDir(FileName)).ParseName(ExtractFileName(FileName)); if GetWindowsVersion < $06020000 then // below Windows 8 begin if IsPin then Verb := 'startpin' else Verb := 'startunpin'; FolderItem.InvokeVerb(Verb); Result := True; end else // Windows 8 and above begin if not FolderItem.IsLink then begin LnkName := FolderItem.ExtendedProperty('FileDescription'); if LnkName = '' then LnkName := ExtractFileName(FileName); LnkName := ExpandConstant('{commonprograms}\') + ChangeFileExt(LnkName, '.lnk'); if IsPin then Result := not FileExists(LnkName) and FileExists(CreateShellLink(LnkName, '', FileName, '', '', '', 0, SW_SHOWNORMAL)) else Result := DeleteFile(LnkName); end else begin LnkName := ExpandConstant('{commonprograms}\') + ExtractFileName(FolderItem.Path); if IsPin then Result := not FileExists(LnkName) and FileCopy(FolderItem.Path, LnkName, False) else Result := DeleteFile(LnkName); end; end; except ShowExceptionMessage; end; end; |
------- Отправлено: 14:11, 09-02-2020 | #537 |
Ветеран Сообщения: 978
|
Профиль | Сайт | Отправить PM | Цитировать |
------- Отправлено: 14:16, 09-02-2020 | #538 |
Пользователь Сообщения: 67
|
Профиль | Отправить PM | Цитировать habib2302, я и говорю что не работает на 10-ке функция PinToTaskbar зато на 7-ке все хорошо... а вот PinToStartMenu работает прекрасно
548пост |
Последний раз редактировалось Beavimo, 09-02-2020 в 14:40. Отправлено: 14:25, 09-02-2020 | #539 |
Пользователь Сообщения: 67
|
Профиль | Отправить PM | Цитировать Gnom_aka_Lexander, перед тем как писать проверьте ваш совет на работоспособность
|
Отправлено: 14:42, 09-02-2020 | #540 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|