![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 7] |
|
Скрипты Inno Setup. Помощь и советы [часть 7]
|
Ветеран Сообщения: 1274 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы (Archive Pack 1):
Скрипты Inno Setup. Помощь и советы [часть 6] |
|
Отправлено: 11:48, 10-03-2014 |
Ветеран Сообщения: 862
|
Профиль | Отправить PM | Цитировать Dodakaedr, как в этом же скрите сделать так, чтобы ярлыки создавались в зависимости от битности файлов и системы
|
------- Отправлено: 00:55, 27-06-2014 | #981 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
|
|
------- Отправлено: 01:02, 27-06-2014 | #982 |
Ветеран Сообщения: 862
|
Профиль | Отправить 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 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
|
|
------- Последний раз редактировалось Dodakaedr, 27-06-2014 в 02:06. Отправлено: 01:23, 27-06-2014 | #984 |
Ветеран Сообщения: 862
|
Профиль | Отправить PM | Цитировать Dodakaedr, не то
|
------- Отправлено: 12:26, 27-06-2014 | #985 |
Пользователь Сообщения: 128
|
Профиль | Отправить PM | Цитировать как организовать вот так же как на скрине (при помощи b2p), пробЫвал при помощи CreateBitmapRgn, края получаются какие то рванные, пример был, "потерял"
|
Последний раз редактировалось audiofeel, 11-10-2014 в 07:11. Отправлено: 19:12, 27-06-2014 | #986 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать habib2302, Что не так?
|
------- Отправлено: 21:35, 27-06-2014 | #987 |
Ветеран Сообщения: 862
|
Профиль | Отправить PM | Цитировать Dodakaedr, все не так
|
------- Последний раз редактировалось habib2302, 27-06-2014 в 22:55. Отправлено: 22:45, 27-06-2014 | #988 |
Ветеран Сообщения: 862
|
Профиль | Отправить 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 |
![]() Ветеран Сообщения: 863
|
Профиль | Отправить PM | Цитировать Цитата habib2302:
При использовании стандартного компонент листа: |
|
------- Последний раз редактировалось Dodakaedr, 28-06-2014 в 21:12. Отправлено: 20:28, 28-06-2014 | #990 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 |
|