|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » [архив] Скрипты Inno Setup. Помощь и советы [часть 2] |
|
[архив] Скрипты Inno Setup. Помощь и советы [часть 2]
|
Ветеран Сообщения: 1133 |
Профиль | Отправить PM | Цитировать
Лимит страниц.
Тема закрыта. Продолжение по ссылке Скрипты Inno Setup. Помощь и советы [часть 3] Внимание! Данная тема предназначена только для обсуждения написания скриптов ! Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Ссылка на архив предыдущей темы (также можно скачать из вложения) |
|
------- Отправлено: 22:06, 23-08-2009 |
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать A1EXXX
оо скажи почему в рестоле в визардформ десинджер не все двигаються объекты??? |
Отправлено: 19:17, 25-01-2010 | #991 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 178
|
Профиль | Отправить PM | Цитировать Tukash, что именно? По-моему, всё что может и должно двигаться, смещается одним кликом мыши
|
Отправлено: 19:22, 25-01-2010 | #992 |
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать A1EXXX
НИХРИНА) я уже минут 20 двигаю, а она стоит, все что рядом с ней двигаеться а она на месте((( поможешь с меня бутылка |
Отправлено: 19:27, 25-01-2010 | #993 |
Пользователь Сообщения: 65
|
Профиль | Отправить PM | Цитировать serg aka lain, спасибо
|
Отправлено: 19:39, 25-01-2010 | #994 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать Здравствуйте. Подскажите кто-нить как в Inno Setup реализовать функцию подсчёта времени до завершения инсталляции. Было бы великолепно если бы кто-то выложил часть скрипта с кодом сией функции. Заранее спасибо.
|
Отправлено: 19:42, 25-01-2010 | #995 |
Пользователь Сообщения: 65
|
Профиль | Отправить PM | Цитировать |
Отправлено: 20:35, 25-01-2010 | #996 |
Старожил Сообщения: 163
|
Профиль | Отправить PM | Цитировать |
------- Последний раз редактировалось YURSHAT, 25-01-2010 в 21:07. Отправлено: 20:54, 25-01-2010 | #997 |
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать блииин 2 часа сидел красоту наводил, сделал что хотел, и ничего не получилось, не принимает он код и все, будт нет его и вовсе...
вот скрипт может кто-то что-нибудь придумает... [code][ISFormDesigner] 8656967687402F309466F6E742E4E616D65060747656F726769610A466F6E742E5374796C650B066673426F6C64086673497 4616C6963000C4578706C696369744C65667402460D4578706C69636974576964746803850100000000F110544E65774E6F7 465626F6F6B506167650C46696E69736865645061676505436F6C6F720707636C426C61636B0D4578706C696369745769647 4680359020E4578706C6963697448656967687403400100F10C544269746D6170496D6167651257697A6172644269746D617 0496D6167653205576964746803CC00064865696768740342010D4578706C69636974576964746803CC000E4578706C69636 9744865696768740342010000F10F544E6577526164696F427574746F6E074E6F526164696F044C65667403100103546F700 319010C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650 A466F6E742E5374796C650B066673426F6C64000A506172656E74466F6E74080C4578706C696369744C6566740310010B457 8706C69636974546F700319010000F10F544E6577526164696F427574746F6E08596573526164696F044C656674031001035 46F700301010A466F6E742E436F6C6F720707636C57686974650A506172656E74466F6E74080C4578706C696369744C65667 40310010B4578706C69636974546F700301010000F110544E6577436865636B4C697374426F780752756E4C697374044C656 67403D80003546F70039100055769647468037D010648656967687402600C4578706C696369744C65667403D8000B4578706 C69636974546F700391000D4578706C696369745769647468037D010E4578706C6963697448656967687402600000F10E544 E6577537461746963546578740D46696E69736865644C6162656C044C65667403D80003546F70026F055769647468036D010 648656967687403820005436F6C6F720707636C426C61636B0C466F6E742E43686172736574070F5255535349414E5F43484 1525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402F409466F6E742E4E616D65060 B5365676F65205072696E740A466F6E742E5374796C650B066673426F6C64000B506172656E74436F6C6F72080A506172656 E74466F6E74080C4578706C696369744C65667403D8000B4578706C69636974546F70026F0D4578706C69636974576964746 8036D010E4578706C696369744865696768740382000000F10E544E6577537461746963546578741446696E6973686564486 56164696E674C6162656C044C65667403D00003546F70020805576964746803850106486569676874024F05436F6C6F72070 7636C426C61636B0C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C5 7686974650B466F6E742E48656967687402E809466F6E742E4E616D65061041646F6265204361736C6F6E2050726F0A466F6 E742E5374796C650B0866734974616C6963000B506172656E74436F6C6F72080C4578706C696369744C65667403D0000B457 8706C69636974546F7002080D4578706C6963697457696474680385010E4578706C69636974486569676874024F000000000 0 { RedesignWizardFormBegin } // Don't remove this line! // Don't modify this section. It is generated automatically. var NewMemo1: TNewMemo; procedure RedesignWizardForm; begin with WizardForm do begin ClientHeight := ScaleY(354); ClientWidth := ScaleX(603); Color := clBlack; end; with WizardForm.CancelButton do begin Left := ScaleX(484); Font.Name := 'Segoe UI'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.NextButton do begin Left := ScaleX(383); Font.Name := 'Segoe UI'; Font.Style := [fsBold, fsItalic]; ParentFont := False; end; with WizardForm.BackButton do begin Left := ScaleX(284); Font.Name := 'Segoe UI'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.OuterNotebook do begin Width := ScaleX(601); Height := ScaleY(320); end; with WizardForm.WelcomePage do begin Color := clBlack; end; with WizardForm.WizardBitmapImage do begin Top := ScaleY(-4); Width := ScaleX(204); Height := ScaleY(322); end; with WizardForm.WelcomeLabel2 do begin Left := ScaleX(216); Top := ScaleY(119); Width := ScaleX(389); Height := ScaleY(199); Color := clBlack; Font.Color := clWhite; Font.Height := -13; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentColor := False; ParentFont := False; end; with WizardForm.WelcomeLabel1 do begin Left := ScaleX(208); Width := ScaleX(389); Color := clBlack; Font.Color := clWhite; Font.Height := -24; Font.Name := 'Adobe Caslon Pro'; Font.Style := [fsItalic]; ParentColor := False; end; with WizardForm.InnerPage do begin Color := clBlack; end; with WizardForm.Bevel1 do begin Left := ScaleX(-10); Width := ScaleX(611); Height := ScaleY(0); end; with WizardForm.InnerNotebook do begin Left := ScaleX(144); end; with WizardForm.LicensePage do begin ShowHint := True; end; with WizardForm.LicenseNotAcceptedRadio do begin Left := ScaleX(32); Top := ScaleY(212); Width := ScaleX(321); Font.Height := -12; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.LicenseAcceptedRadio do begin Left := ScaleX(32); Top := ScaleY(192); Width := ScaleX(273); Font.Color := clRed; Font.Height := -12; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.LicenseMemo do begin Left := ScaleX(10); Top := ScaleY(29); Width := ScaleX(391); Height := ScaleY(164); end; with WizardForm.LicenseLabel1 do begin Left := ScaleX(2); Width := ScaleX(399); Font.Color := clWhite; Font.Height := -12; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.PasswordEdit do begin Top := ScaleY(117); end; with WizardForm.PasswordEditLabel do begin Top := ScaleY(101); end; with WizardForm.InfoBeforeMemo do begin Top := ScaleY(0); end; with WizardForm.InfoBeforeClickLabel do begin Top := ScaleY(208); Width := ScaleX(409); Height := ScaleY(30); Font.Color := clWhite; Font.Height := -12; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.UserInfoSerialEdit do begin Left := ScaleX(88); Width := ScaleX(289); end; with WizardForm.UserInfoSerialLabel do begin Left := ScaleX(-16); end; with WizardForm.UserInfoOrgEdit do begin Left := ScaleX(88); Width := ScaleX(289); end; with WizardForm.UserInfoOrgLabel do begin Left := ScaleX(-16); end; with WizardForm.UserInfoNameEdit do begin Left := ScaleX(8); Top := ScaleY(24); end; with WizardForm.UserInfoNameLabel do begin Left := ScaleX(-16); end; { NewMemo1 } NewMemo1 := TNewMemo.Create(WizardForm); with NewMemo1 do begin Parent := WizardForm.UserInfoPage; Left := ScaleX(-184); Top := ScaleY(24); Width := ScaleX(209); Height := ScaleY(89); Color := clBlack; Lines.Text := 'NewMemo1'; end; NewMemo1.TabOrder := 6; with WizardForm.SelectDirPage do begin Tag := 9; end; with WizardForm.SelectDirBitmapImage do begin Left := ScaleX(8); Top := ScaleY(17); end; with WizardForm.DiskSpaceLabel do begin Left := ScaleX(16); Top := ScaleY(208); Width := ScaleX(353); Font.Color := clWhite; ParentFont := False; end; with WizardForm.DirBrowseButton do begin Left := ScaleX(8); Top := ScaleY(116); Font.Height := -15; Font.Name := 'Segoe UI'; Font.Style := [fsBold, fsItalic]; ParentFont := False; end; with WizardForm.DirEdit do begin Left := ScaleX(85); Top := ScaleY(118); Width := ScaleX(324); end; with WizardForm.SelectDirBrowseLabel do begin Left := ScaleX(8); Top := ScaleY(60); Width := ScaleX(393); Height := ScaleY(46); Font.Color := clWhite; Font.Height := -12; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.SelectDirLabel do begin Left := ScaleX(49); Top := ScaleY(17); Width := ScaleX(360); Height := ScaleY(45); Font.Color := clWhite; Font.Height := -13; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.ComponentsDiskSpaceLabel do begin Left := ScaleX(8); Height := ScaleY(22); Font.Color := clWhite; Font.Name := 'Segoe Print'; ParentFont := False; end; with WizardForm.ComponentsList do begin Top := ScaleY(69); Color := clBtnShadow; end; with WizardForm.TypesCombo do begin Top := ScaleY(45); Color := cl3DDkShadow; end; with WizardForm.SelectComponentsLabel do begin Width := ScaleX(433); Height := ScaleY(35); Font.Color := clWhite; Font.Name := 'Segoe Print'; ParentFont := False; end; WizardForm.ComponentsList.TabOrder := 1; WizardForm.TypesCombo.TabOrder := 2; WizardForm.ComponentsDiskSpaceLabel.TabOrder := 3; with WizardForm.SelectGroupBitmapImage do begin Left := ScaleX(9); Top := ScaleY(8); end; with WizardForm.NoIconsCheck do begin Left := ScaleX(9); Top := ScaleY(143); Font.Color := clWhite; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.GroupBrowseButton do begin Left := ScaleX(0); Top := ScaleY(100); Font.Name := 'Segoe UI'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.GroupEdit do begin Left := ScaleX(85); Top := ScaleY(100); end; with WizardForm.SelectStartMenuFolderBrowseLabel do begin Left := ScaleX(9); Top := ScaleY(76); Font.Color := clWhite; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.SelectStartMenuFolderLabel do begin Left := ScaleX(56); Top := ScaleY(25); Height := ScaleY(38); Font.Height := -12; Font.Name := 'Segoe Print'; ParentFont := False; end; with WizardForm.TasksList do begin Top := ScaleY(45); end; with WizardForm.SelectTasksLabel do begin Height := ScaleY(43); Font.Color := clWhite; Font.Name := 'Segoe Print'; ParentFont := False; end; with WizardForm.ReadyMemo do begin Top := ScaleY(14); Height := ScaleY(223); end; with WizardForm.ReadyLabel do begin Height := ScaleY(20); Font.Color := clWhite; Font.Name := 'Segoe Print'; ParentFont := False; end; with WizardForm.PreparingErrorBitmapImage do begin Left := ScaleX(417); Width := ScaleX(0); Height := ScaleY(0); end; with WizardForm.PreparingLabel do begin Left := ScaleX(8); Top := ScaleY(64); Font.Color := clWhite; Font.Name := 'Segoe Print'; ParentFont := False; end; with WizardForm.StatusLabel do begin Left := ScaleX(8); Top := ScaleY(40); Height := ScaleY(40); Font.Color := clWhite; Font.Height := -15; Font.Name := 'Monotype Corsiva'; Font.Style := [fsBold, fsItalic]; ParentFont := False; end; with WizardForm.ProgressGauge do begin Top := ScaleY(90); end; with WizardForm.InfoAfterClickLabel do begin Left := ScaleX(16); Height := ScaleY(22); Font.Color := clWhite; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.MainPanel do begin Left := ScaleX(-2); Width := ScaleX(603); BevelOuter := bvSpace; Color := clBlack; ParentBackground := False; end; with WizardForm.WizardSmallBitmapImage do begin Left := ScaleX(532); Top := ScaleY(0); end; with WizardForm.PageDescriptionLabel do begin Left := ScaleX(70); Width := ScaleX(341); Font.Color := clWhite; Font.Height := -13; Font.Name := 'Georgia'; Font.Style := [fsItalic]; ParentFont := False; end; with WizardForm.PageNameLabel do begin Left := ScaleX(70); Width := ScaleX(389); Font.Color := clWhite; Font.Height := -13; Font.Name := 'Georgia'; Font.Style := [fsBold, fsItalic]; end; with WizardForm.FinishedPage do begin Color := clBlack; end; with WizardForm.WizardBitmapImage2 do begin Width := ScaleX(204); Height := ScaleY(322); end; with WizardForm.NoRadio do begin Left := ScaleX(272); Top := ScaleY(281); Font.Color := clWhite; Font.Style := [fsBold]; ParentFont := False; end; with WizardForm.YesRadio do begin Left := ScaleX(272); Top := ScaleY(257); Font.Color := clWhite; ParentFont := False; end; with WizardForm.RunList do begin Left := ScaleX(216); Top := ScaleY(145); Width := ScaleX(381); Height := ScaleY(96); end; with WizardForm.FinishedLabel do begin Left := ScaleX(216); Top := ScaleY(111); Width := ScaleX(365); Height := ScaleY(130); Color := clBlack; Font.Color := clWhite; Font.Height := -12; Font.Name := 'Segoe Print'; Font.Style := [fsBold]; ParentColor := False; ParentFont := False; end; with WizardForm.FinishedHeadingLabel do begin Left := ScaleX(208); Top := ScaleY(8); Width := ScaleX(389); Height := ScaleY(79); Color := clBlack; Font.Color := clWhite; Font.Height := -24; Font.Name := 'Adobe Caslon Pro'; Font.Style := [fsItalic]; ParentColor := False; end; { ReservationBegin } // This part is for you. Add your specialized code here. { ReservationEnd } end; // Don't modify this section. It is generated automatically. { RedesignWizardFormEnd } // Don't remove this line! |
Последний раз редактировалось Tukash, 25-01-2010 в 21:30. Отправлено: 20:55, 25-01-2010 | #998 |
Пользователь Сообщения: 65
|
Профиль | Отправить PM | Цитировать YURSHAT, вот спасибо, пришел настоящий спец..))
|
Отправлено: 21:07, 25-01-2010 | #999 |
Пользователь Сообщения: 131
|
Профиль | Сайт | Отправить PM | Цитировать Народ, ахтунг! как сделать что бы во время распаковки 7zip sfx архива его окна не было видно, а в строке состояния писалось что-то типа "Идет русификация файла"?
---- Jerichoman, я тут пролистал предыдущие сообщения - если у тебя до сих пор проблемы с инталлом попробуй качни этот архив http://rghost.ru/888810 (там все что я использовал, кроме музыки). Заливал я его другому пользователю, но и тебе он пригодится |
------- Последний раз редактировалось Sotonisto, 25-01-2010 в 21:36. Отправлено: 21:07, 25-01-2010 | #1000 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты Inno Setup. Помощь и советы [часть 3] | Serega | Автоматическая установка приложений | 3755 | 26-10-2011 17:58 | |
[архив] Inno Setup .:[все вопросы]:. | Mchik | Автоматическая установка приложений | 1329 | 23-08-2009 20:13 | |
[архив - Часть 2] AutoIt скрипты | Vadikan | AutoIt | 985 | 21-01-2008 09:58 | |
Скрипты Inno Setup Compiler | QAZAK | Автоматическая установка приложений | 7 | 15-01-2007 17:59 | |
[Архив - Часть 1.1] AutoIt скрипты | EgOrus | AutoIt | 335 | 04-02-2006 16:58 |
|