|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 8] |
|
Скрипты Inno Setup. Помощь и советы [часть 8]
|
Ветеран Сообщения: 1270 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Отправлено: 08:52, 02-02-2015 |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 18:34, 17-02-2016 | #1341 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать Цитата kotyarko@fb:
А как записать вот сюда ? Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Valve\Half-Life\Settings] "ValveKey"="AAAAA-AAAAA-AAAAA-AAAAA-AAAAA" Мне ключ нужно именно передач вот этому параметру И напишите пожалуйста куда именно нужно это нужно писать |
|
Отправлено: 18:57, 17-02-2016 | #1342 |
Старожил Сообщения: 398
|
Профиль | Отправить PM | Цитировать Нашёл вроде бы неплохой код для проверки на наличие определённого обновления Windows https://theroadtodelphi.wordpress.co...i-wmi-and-wua/
function ISHotFixID_Installed(const HotFixID : string): Boolean; var updateSession : OleVariant; updateSearcher : OleVariant; updateEntry : OleVariant; updateSearchResult : OleVariant; UpdateCollection : OleVariant; oEnum : IEnumvariant; iValue : LongWord; begin result:=False; updateSession:= CreateOleObject('Microsoft.Update.Session'); updateSearcher := updateSession.CreateUpdateSearcher; //this line improves the performance , the online porperty indicates whether the UpdateSearcher goes online to search for updates. so how we are looking for already installed updates we can set this value to false updateSearcher.online:=False; updateSearchResult:= updateSearcher.Search(Format('IsInstalled = 1 and Type=%s',[QuotedStr('Software')])); UpdateCollection := updateSearchResult.Updates; oEnum := IUnknown(UpdateCollection._NewEnum) as IEnumVariant; while oEnum.Next(1, updateEntry, iValue) = 0 do begin Result:=Pos(HotFixID,updateEntry.Title)>0; updateEntry:=Unassigned; if Result then break; end; end; |
Отправлено: 20:14, 17-02-2016 | #1343 |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать Цитата Reyesahydo:
|
|
------- Отправлено: 20:29, 17-02-2016 | #1344 |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать Цитата kotyarko@fb:
|
|
Отправлено: 20:35, 17-02-2016 | #1345 |
Ветеран Сообщения: 517
|
Профиль | Отправить PM | Цитировать Цитата Hantunyaha:
procedure _CancelClick ( const Sender: TObject ); begin WizardForm.CancelButton.OnClick ( Sender ); end; Цитата Reyesahydo:
|
||
Отправлено: 21:39, 17-02-2016 | #1346 |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать |
Отправлено: 11:37, 18-02-2016 | #1347 |
Старожил Сообщения: 212
|
Профиль | Отправить PM | Цитировать Цитата Reyesahydo:
|
|
------- Отправлено: 11:54, 18-02-2016 | #1348 |
Новый участник Сообщения: 1
|
Профиль | Отправить PM | Цитировать Мне нужно добавить много EXE-файлов создать для них ярлыки
Вопрос: Правильно ли я делаю ? Сомневаюсь в правильности скрипта P.S Через мастер скриптов можно только один добавить Скрытый текст
#define MyAppName "My Program" #define MyAppVersion "1.5" #define MyAppPublisher "My Company, Inc." #define MyAppURL "http://www.example.com/" [Setup] AppId={{BEC44BB3-44D5-412E-B193-EBDAB39F9CDE} AppName={#MyAppName} AppVersion={#MyAppVersion} ;AppVerName={#MyAppName} {#MyAppVersion} AppPublisher={#MyAppPublisher} AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} DefaultDirName={pf}\{#MyAppName} DefaultGroupName={#MyAppName} OutputBaseFilename=setup Compression=lzma SolidCompression=yes [Languages] Name: "english"; MessagesFile: "compiler:Default.isl" [Tasks] Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked [Files] Source: "C:\TEST\EXE1.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\TEST\EXE2.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\TEST\EXE3.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\TEST\EXE4.exe"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\TEST\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs [Icons] Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE1.exe" Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE2.exe" Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE3.exe" Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE4.exe" Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE1"; Tasks: desktopicon Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE2"; Tasks: desktopicon Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE3"; Tasks: desktopicon Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE4"; Tasks: desktopicon |
Отправлено: 16:54, 19-02-2016 | #1349 |
Ветеран Сообщения: 860
|
Профиль | Отправить PM | Цитировать Oasahelola, почти, пишите разные имена ярлыков
[Icons] Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE1.exe" Name: "{group}\{#MyAppName}2"; Filename: "{app}\EXE2.exe" Name: "{group}\{#MyAppName}3"; Filename: "{app}\EXE3.exe" Name: "{group}\{#MyAppName}4"; Filename: "{app}\EXE4.exe" Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE1"; Tasks: desktopicon Name: "{commondesktop}\{#MyAppName}2"; Filename: "{app}\EXE2"; Tasks: desktopicon Name: "{commondesktop}\{#MyAppName}3"; Filename: "{app}\EXE3"; Tasks: desktopicon Name: "{commondesktop}\{#MyAppName}4"; Filename: "{app}\EXE4"; Tasks: desktopicon |
------- Отправлено: 17:39, 19-02-2016 | #1350 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|