![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 5] |
|
Скрипты Inno Setup. Помощь и советы [часть 5]
|
Ветеран Сообщения: 1274 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Inno Setup [все вопросы] часть 1 Inno Setup [все вопросы] часть 2 Скрипты Inno Setup. Помощь и советы [часть 3] Скрипты Inno Setup. Помощь и советы [часть 4] |
|
Отправлено: 03:49, 21-05-2012 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать Цитата El Sanchez:
|
|
------- Отправлено: 13:01, 12-06-2012 | #251 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 1274
|
Профиль | Отправить PM | Цитировать |
Отправлено: 15:20, 12-06-2012 | #252 |
Старожил Сообщения: 238
|
Профиль | Отправить PM | Цитировать Всем привет!
Подскажите код, чтобы картинка (PNG) вылазила за пределы инсталлятора и не было фона? Пример |
------- Отправлено: 16:16, 12-06-2012 | #253 |
Ветеран Сообщения: 649
|
Профиль | Отправить PM | Цитировать Dark_Delphin,
думаю через ботву могу предложить такой вариант ![]() наглядный пример в архиве прозрачный цвет здесь $5а6a50 (фотошоп) $506a5a (инно) |
Последний раз редактировалось Johny777, 26-03-2013 в 15:57. Отправлено: 18:35, 12-06-2012 | #254 |
Старожил Сообщения: 238
|
Профиль | Отправить PM | Цитировать Johny777, Спасибо. Щас буду пробовать)
|
------- Отправлено: 20:40, 12-06-2012 | #255 |
Забанен Сообщения: 7
|
Цитата El Sanchez:
[Setup] AppName=Моё Программное Обеспечение AppVersion=1.5 ;AppVerName=Моё Программное Обеспечение 1.5 DefaultDirName={pf}\Моё Программное Обеспечение DefaultGroupName=Моё Программное Обеспечение OutputDir=. OutputBaseFilename=setup Compression=lzma SolidCompression=yes [Languages] Name: "Russian"; MessagesFile: "compiler:Languages\Russian.isl" [Icons] Name: "{group}\{cm:UninstallProgram,Моё Программное Обеспечение}"; Filename: "{uninstallexe}" [CustomMessages] Russian.Caption=Настройка профиля по умолчанию Russian.Description=Настройте профиль в соответствии с вашим оператором Russian.SettingsProfile=Настройка профиля Russian.Operator=Оператор: Russian.UserName=Имя пользователя: Russian.Password=Пароль: Russian.NumberDial=Номер набора: Russian.APN=Точка доступа: [*Code] var ISCustomPage1: TWizardPage; NewGroupBox1: TNewGroupBox; NewStaticText1: TNewStaticText; NewEdit1: TNewEdit; NewStaticText2: TNewStaticText; NewEdit2: TNewEdit; NewStaticText3: TNewStaticText; NewEdit3: TNewEdit; NewStaticText4: TNewStaticText; NewEdit4: TNewEdit; NewStaticText5: TNewStaticText; NewEdit5: TNewEdit; procedure RedesignWizardForm; begin ISCustomPage1 := CreateCustomPage(wpSelectDir, CustomMessage('Caption'), CustomMessage('Description')); with ISCustomPage1.Surface do begin Name := 'ISCustomPage1'; end; NewGroupBox1 := TNewGroupBox.Create(WizardForm); with NewGroupBox1 do begin Name := 'NewGroupBox1'; Parent := ISCustomPage1.Surface; Left := ScaleX(16); Top := ScaleY(8); Width := ScaleX(377); Height := ScaleY(209); Caption := CustomMessage('SettingsProfile'); end; NewStaticText1 := TNewStaticText.Create(WizardForm); with NewStaticText1 do begin Name := 'NewStaticText1'; Parent := NewGroupBox1; Caption := CustomMessage('Operator'); Left := ScaleX(32); Top := ScaleY(31); Width := ScaleX(100); Height := ScaleY(14); end; NewEdit1 := TNewEdit.Create(WizardForm); with NewEdit1 do begin Name := 'NewEdit1'; Parent := NewGroupBox1; Left := ScaleX(136); Top := ScaleY(28); Width := ScaleX(121); Height := ScaleY(21); Text := ''; end; NewStaticText2 := TNewStaticText.Create(WizardForm); with NewStaticText2 do begin Name := 'NewStaticText2'; Parent := NewGroupBox1; Caption := CustomMessage('UserName'); Left := ScaleX(32); Top := ScaleY(57); Width := ScaleX(100); Height := ScaleY(14); end; NewEdit2 := TNewEdit.Create(WizardForm); with NewEdit2 do begin Name := 'NewEdit2'; Parent := NewGroupBox1; Left := ScaleX(136); Top := ScaleY(53); Width := ScaleX(121); Height := ScaleY(21); Text := ''; end; NewStaticText3 := TNewStaticText.Create(WizardForm); with NewStaticText3 do begin Name := 'NewStaticText3'; Parent := NewGroupBox1; Caption := CustomMessage('Password'); Left := ScaleX(32); Top := ScaleY(80); Width := ScaleX(100); Height := ScaleY(14); end; NewEdit3 := TNewEdit.Create(WizardForm); with NewEdit3 do begin Name := 'NewEdit3'; Parent := NewGroupBox1; Left := ScaleX(136); Top := ScaleY(77); Width := ScaleX(121); Height := ScaleY(21); Text := ''; end; NewStaticText4 := TNewStaticText.Create(WizardForm); with NewStaticText4 do begin Name := 'NewStaticText4'; Parent := NewGroupBox1; Caption := CustomMessage('NumberDial'); Left := ScaleX(32); Top := ScaleY(103); Width := ScaleX(100); Height := ScaleY(14); end; NewEdit4 := TNewEdit.Create(WizardForm); with NewEdit4 do begin Name := 'NewEdit4'; Parent := NewGroupBox1; Left := ScaleX(136); Top := ScaleY(100); Width := ScaleX(121); Height := ScaleY(21); Text := ''; end; NewStaticText5 := TNewStaticText.Create(WizardForm); with NewStaticText5 do begin Name := 'NewStaticText5'; Parent := NewGroupBox1; Caption := CustomMessage('APN'); Left := ScaleX(32); Top := ScaleY(127); Width := ScaleX(100); Height := ScaleY(14); end; NewEdit5 := TNewEdit.Create(WizardForm); with NewEdit5 do begin Name := 'NewEdit5'; Parent := NewGroupBox1; Left := ScaleX(136); Top := ScaleY(124); Width := ScaleX(121); Height := ScaleY(21); Text := ''; end; NewStaticText1.TabOrder := 0; NewEdit1.TabOrder := 1; NewStaticText2.TabOrder := 2; NewEdit2.TabOrder := 3; NewStaticText3.TabOrder := 4; NewEdit3.TabOrder := 5; NewStaticText4.TabOrder := 6; NewEdit4.TabOrder := 7; NewStaticText5.TabOrder := 8; NewEdit5.TabOrder := 9; NewGroupBox1.TabOrder := 0; end; procedure CreateNetworkCfg; begin SaveStringToFile( ExpandConstant('{app}\NetworkCfg.xml'), '<?xml version="1.0" encoding="UTF-8"?>'#13#10 + '<AllNetworkConfigs>'#13#10#9 + '<NetworkConfig isNDIS="0" canbeDelete="1" isPreferred="1">'#13#10#9#9 + '<ConfigFileName>' + NewEdit1.Text + '</ConfigFileName>'#13#10#9#9 + '<UserName>' + NewEdit2.Text + '</UserName>'#13#10#9#9 + '<Password>' + NewEdit3.Text + '</Password>'#13#10#9#9 + '<LoginNumber>' + NewEdit4.Text + '</LoginNumber>'#13#10#9#9 + '<AutoGetAPN>0</AutoGetAPN>'#13#10#9#9 + '<APN>' + NewEdit5.Text + '</APN>'#13#10#9#9 + '<AutoGetDNS>1</AutoGetDNS>'#13#10#9#9 + '<MainDNS>0.0.0.0</MainDNS>'#13#10#9#9 + '<StandbyDNS>0.0.0.0</StandbyDNS>'#13#10#9#9 + '<AutoGetPDP>1</AutoGetPDP>'#13#10#9#9 + '<PDPAddress>0.0.0.0</PDPAddress>'#13#10#9#9 + '<PDPType>IP</PDPType>'#13#10#9#9 + '<AuthType>PAP</AuthType>'#13#10#9#9 + '<AskUserAndPwd>0</AskUserAndPwd>'#13#10#9#9 + '<SaveUserAndPwd>0</SaveUserAndPwd>'#13#10#9 + '</NetworkConfig>'#13#10 + '</AllNetworkConfigs>' , False ); end; function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; case CurPageID of ISCustomPage1.ID: CreateNetworkCfg; end; end; procedure InitializeWizard(); begin RedesignWizardForm; end; |
|
Отправлено: 14:28, 13-06-2012 | #256 |
Ветеран Сообщения: 649
|
Профиль | Отправить PM | Цитировать Открыл для себя классное решение при использовании скина!
при закрытии окна на секунду появляется виндовсовские границы окна, что не есть красиво: поэтому в процедуре деинициализации использую Sleep и Hide код: при сокрытии формы (Hide) вин-границы окна не появляется, а окно плавно исчезает но если сразу после сокрытия выгружать библиотеку, то вин-границы всё же видно поэтому у нас есть ещё и Sleep (у меня настройка на 200 миллисекунд) в итоге библиотека выгружается так же некрасиво, но мы этого уже не видим ! ![]() Мелочь, но классная два наглядных примера на основе Авторана в архиве http://sendfile.su/613062 |
Последний раз редактировалось Johny777, 13-06-2012 в 15:07. Отправлено: 14:55, 13-06-2012 | #257 |
Ветеран Сообщения: 1274
|
Профиль | Отправить PM | Цитировать Цитата Неадекватный:
|
|
Отправлено: 17:18, 13-06-2012 | #258 |
Новый участник Сообщения: 22
|
Профиль | Отправить PM | Цитировать Здравствуйте!
Мне интересен вопрос более высокой скорости распаковки.. Что-то читал за Фриарк, но не совсем понял. Как же ускорить процесс распаковки? Возможно ли использовать какие-либо библиотеки для ускорения процесса распаковки? Или какими методами достичь этого? Прошу расписать в деталях! Заранее благодарю всех, кто поможет. |
Отправлено: 18:49, 13-06-2012 | #259 |
Ветеран Сообщения: 608
|
91892823, Используй IsDone там все подробно расписано...
![]() |
Отправлено: 20:08, 13-06-2012 | #260 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты 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 | |
Скрипты Inno Setup Compiler | QAZAK | Автоматическая установка приложений | 7 | 15-01-2007 17:59 | |
Inno Setup | tradeukraine | Вебмастеру | 3 | 13-06-2006 20:39 |
|