![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8] |
|
Скрипты Inno Setup. Помощь и советы [часть 8]
|
Ветеран Сообщения: 1274 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Отправлено: 08:52, 02-02-2015 |
Забанен Сообщения: 96
|
как сделать что бы программа закрепилась на панели задач
|
Отправлено: 21:48, 07-03-2016 | #1421 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 00:12, 08-03-2016 | #1422 |
Забанен Сообщения: 96
|
что то не получается
|
Отправлено: 07:00, 08-03-2016 | #1423 |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать Цитата vadjliss:
Пример
#define MyAppName "My Program" #define MyAppVersion "1.5" [Setup] AppName={#MyAppName} AppVersion={#MyAppVersion} DefaultDirName={pf}\{#MyAppName} DefaultGroupName={#MyAppName} OutputBaseFilename=setup [Files] Source: "{#compilerpath}Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion [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; IsPin: Boolean): Boolean; // szFilename : full path to executable file // IsPin......: False - unpin from TaskBar, True - pin to TaskBar 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; { below Windows 7 } { String resources } 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; res := 5386; { Pin to Tas&kbar } end else res := 5387; { Unpin from Tas&kbar } { 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'); 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; { Pin } procedure CurStepChanged(CurStep: TSetupStep); begin case CurStep of ssPostInstall: PinToTaskbar( ExpandConstant( '{app}\MyProg.exe' ), True ); end; end; { UnPin } procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); begin case CurUninstallStep of usUninstall: PinToTaskbar( ExpandConstant( '{app}\MyProg.exe' ), False ); end; end; |
|
Отправлено: 14:20, 08-03-2016 | #1424 |
Забанен Сообщения: 96
|
saurn
благодарю теперь всё ок |
Отправлено: 18:00, 08-03-2016 | #1425 |
Новый участник Сообщения: 7
|
Удалил, всё равно помощи никакой...
|
Последний раз редактировалось Bartron, 17-03-2016 в 11:17. Отправлено: 16:49, 15-03-2016 | #1426 |
Новый участник Сообщения: 20
|
Профиль | Сайт | Отправить PM | Цитировать Как в компонентах сделать что бы при выборе компонента ставилась галочка или кружок не нажимания на них а нажимая на текст
|
Отправлено: 20:11, 15-03-2016 | #1427 |
Новый участник Сообщения: 5
|
Профиль | Отправить PM | Цитировать
Многоуважаемые знатоки! Прошу Вас помочь мне внести исправления в мой скрипт и довести его до ума (это мой первый скрипт (делал программой inno setup compiler 5.5.8(а)), поэтому прошу строго не судить), он рабочий только на ХР, проверял на 8 и 10 не работает инсталлятор, он запускается, загружается Splash, затем должна включиться музыка, но она не включается, выводится это сообщение http://prnt.sc/afvdjr, на скриншоте в окне установки в самом низу после первой кнопки должны появится: вторая кнопка (отключения звука) и за ней третьей - регулятор громкости, но их нет, к сожалению моего микроума не хватает, чтобы довести до ума инсталлятор, поэтому еще раз прошу Вашей помощи, заранее благодарен, скрипт прилагаю (к сожалению он не вмещается здесь на форуме):
|
||||
Отправлено: 12:22, 16-03-2016 | #1428 |
Новый участник Сообщения: 20
|
Профиль | Сайт | Отправить PM | Цитировать Как Указать в скрипте путь для установке шрифтов в папку Windows
|
Отправлено: 19:48, 16-03-2016 | #1429 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата dimantv_wot@vk:
Цитата dimantv_wot@vk:
Ferling, попробуйте тоже расширенную версию inno setup |
||
------- Последний раз редактировалось Dodakaedr, 16-03-2016 в 22:43. Отправлено: 22:24, 16-03-2016 | #1430 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|