|
|
|
|
| Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » [архив] Inno Setup .:[все вопросы]:. |
|
|
[архив] Inno Setup .:[все вопросы]:.
|
|
Новый участник Сообщения: 6 |
Лимит страниц.
Тема закрыта. продолжаем тут: Inno Setup. Обсуждение установщика Скрипты Inno Setup. Помощь и советы Полезные ресурсы: Официальный сайт| Inno Setup 5.2.3 RU Русская справка |Зеракало 1| Зеракало 2 ISTool 5.30 |Русификатор Русификатор ISTool |Зеркало 1|Зеркало 2 Inno Setup Script Generator |Зеркало 1 Unpaker 2.1 от 21.04.2009 - распаковывает инсталляторы, созданные с помощью Inno Setup, начиная с версии 2.0.18 по 5.2.4. InnoUnpaker 2.6b3 [от valeron87]- можнет просмотривать содержание CompiledCode.bin Unpaker 0.23 - расширенная китайская версия 2008-08-08 ( модификация) Unpacker 0.24 | Зеркало 1 | Зеркало 2 - Inno Setup Unpacker (innounp plus) - расширенная версия распаковщика инсталляторов Inno Setup начиная с версии 2.0.8 по 5.3.0 Beta. Поддерживаются версии Unicode. Русифицирована. Последний релиз: 0.24 [23.05.2009] QuickStart Pack - Inno Setup + Preprocessor (последняя версия ispack-5.2.4-dev) "Всё в одном" от unikum111 Полезные мелочи для Inno Setup: - Converter v.0.1.2 - конвертор REG- файлов в формат скриптов Inno от Serega_ -новая версия - Как убрать страницу приветствия (wpWelcome) в мастере установки приложения: - Примеры скриптов на паскале - Inno Setup Addon 0.07 For Total Commander |
|
|
Отправлено: 21:42, 17-03-2005 |
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать Serega
спасибо я уже разобрался! причины бли таковы: 1. невставил #define TIME_FOR_VIEW 1 в начале думал там нету ничего)) 2. нужен был inno setup с precompressor'ом! и все! |
|
Отправлено: 21:44, 30-06-2009 | #1041 |
|
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать люди добрые пытаюсь изменить шрифт но он не меняеться, увеличиваеться только размер окна)))
[LangOptions] LanguageName=Russian LanguageID=$0419 LanguageCodePage=1251 DialogFontName=Trebuchet MS DialogFontSize=15 WelcomeFontName=Segoe Script WelcomeFontSize=20 TitleFontName=Segoe Script TitleFontSize=10 CopyrightFontName=Segoe Print CopyrightFontSize=10 может кто-нибудь даст нормальные???кстате могу хоть 100 написать не измениться))) и еще кто подскажет как изминить размер окна исталятора я хочу поменьше?! |
|
Отправлено: 22:14, 30-06-2009 | #1042 |
|
Ветеран Сообщения: 1133
|
Профиль | Отправить PM | Цитировать Цитата Tukash:
Код:
 procedure InitializeWizard; begin WizardForm.WelcomeLabel1.Font.Size:= 15; end; |
|
|
------- Отправлено: 22:30, 30-06-2009 | #1043 |
|
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать Serega
спасибо, а как-нибудь можно размер инсталятора изменить? |
|
Отправлено: 22:32, 30-06-2009 | #1044 |
|
Ветеран Сообщения: 1133
|
Профиль | Отправить PM | Цитировать Цитата Tukash:
Код:
WizardForm.ClientHeight:= 360; WizardForm.ClientWidth:= 498; |
|
|
------- Отправлено: 22:47, 30-06-2009 | #1045 |
|
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать Serega
что-то нефига не выходит, я это в [code] вношу или не туда? и можно целиком а то begin и end бесят... Код:
procedure InitializeWizard; begin WizardForm.WelcomeLabel1.Font.Size:= 15; end;  сори за нубство  |
|
Отправлено: 23:52, 30-06-2009 | #1046 |
|
Ветеран Сообщения: 1133
|
Профиль | Отправить PM | Цитировать |
|
------- Отправлено: 00:07, 01-07-2009 | #1047 |
|
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать Serega
огромное спасибо!!!! |
|
Отправлено: 00:08, 01-07-2009 | #1048 |
|
Пользователь Сообщения: 109
|
Профиль | Отправить PM | Цитировать еще вопрос назрел) я наверно надоел!
как сделать что-бы показывало сколько места свободно на HDD! заранее спасибо! вот покажите пожалуйста что надо здесь исправить что-бы убрать как убрать это? Код:
type
TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);
var
WelcomeLabel1,WelcomeLabel2,FinishedHeadingLabel,RunLabel,
FinishedLabel,PageNameLabel,PageDescriptionLabel:TLabel;
RunMyProg: TCheckBox;
TimerID: LongWord;
currTime: Integer;
SplashImage: TBitmapImage;
function WrapTimerProc(callback:TProc; paramcount:integer):longword;
external 'wrapcallback@files:InnoCallback.dll stdcall';
function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord;
external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord;
external 'KillTimer@user32.dll stdcall';
procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
currTime := currTime + 1;
case currTime of
1{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\2.bmp')) end;
2{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\3.bmp')) end;
3{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\4.bmp')) end;
4{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\5.bmp')) end;
5{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\6.bmp')) end;
6{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\7.bmp')) end;
7{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\8.bmp')) end;
8{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\9.bmp')) end;
end;
if CurrTime = 2*{#TIME_FOR_VIEW} then CurrTime := -1;
end;
procedure RLabelOnClick(Sender: TObject);
begin
if RunMyProg.Checked=false then
begin
RunMyProg.Checked := true;
end else
RunMyProg.Checked := false;
end;
// функция для запуска программы если отмечен чебокс
procedure CurStepChanged(CurStep: TSetupStep);
var
ErrorCode: Integer;
begin
if CurStep = ssDone then
begin
if RunMyProg.Checked then
///Exec(ExpandConstant('{app}\MyProg.exe'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
end;
procedure InitializeWizard();
begin
ExtractTemporaryFile('1.bmp')
ExtractTemporaryFile('2.bmp')
ExtractTemporaryFile('3.bmp')
ExtractTemporaryFile('4.bmp')
ExtractTemporaryFile('5.bmp')
ExtractTemporaryFile('6.bmp')
ExtractTemporaryFile('7.bmp')
ExtractTemporaryFile('8.bmp')
ExtractTemporaryFile('9.bmp')
currTime := 0;
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;
// низнаю почему, но Hide не действует. Поэтому просто уменьшил размер
WizardForm.RunList.Height := 0;
WizardForm.RunList.Width := 0;
WizardForm.FilenameLabel.Hide;
WizardForm.StatusLabel.Parent := WizardForm;
WizardForm.StatusLabel.Top := ScaleY(315);
WizardForm.StatusLabel.Left := ScaleX(10);
WizardForm.StatusLabel.Width := ScaleX(200);
WizardForm.StatusLabel.Hide;
WizardForm.ProgressGauge.Parent := WizardForm;
WizardForm.ProgressGauge.Top := ScaleY(330);
WizardForm.ProgressGauge.Left := ScaleX(10);
WizardForm.ProgressGauge.Width := ScaleX(380);
WizardForm.ProgressGauge.Height := ScaleX(18);
WizardForm.ProgressGauge.Hide;
SplashImage := TBitmapImage.Create(WizardForm);
SplashImage.Top := 0;
SplashImage.Left := 0;
SplashImage.Width := WizardForm.MainPanel.Width;
SplashImage.Height := WizardForm.Bevel.Top;
SplashImage.Parent := WizardForm.InnerPage;
SplashImage.Stretch := True;
SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
SplashImage.Hide;
WizardForm.WizardBitmapImage.Align:=true;
WizardForm.WizardBitmapImage2.Align:=true;
WizardForm.WizardSmallBitmapImage.Align:=true;
WelcomeLabel1:=TLabel.Create(WizardForm);
WelcomeLabel1.Left:=ScaleX(150);
WelcomeLabel1.Top := ScaleY(15);
WelcomeLabel1.Width := ScaleX(320);
WelcomeLabel1.Height := ScaleY(75);
WelcomeLabel1.AutoSize := False;
WelcomeLabel1.WordWrap := True;
WelcomeLabel1.Font.Color := clBlack;
// здесь можно поиграть шрифтом
// WelcomeLabel1.Font.Style := [fsBold];
// WelcomeLabel1.Font.Name:='MS Sans Serif';
WelcomeLabel1.Font.Size := 25;
WelcomeLabel1.Transparent := True;
WelcomeLabel2:=TLabel.Create(WizardForm);
WelcomeLabel2.Left := ScaleX(150);
WelcomeLabel2.Top := ScaleY(90);
WelcomeLabel2.Width := ScaleX(320);
WelcomeLabel2.Height := ScaleY(200);
WelcomeLabel2.AutoSize := False;
WelcomeLabel2.WordWrap := True;
WelcomeLabel2.Font.Color := clred;
WelcomeLabel2.Font.Size := 12;
WelcomeLabel2.Transparent := True;
PageNameLabel := TLabel.Create(WizardForm);
PageNameLabel.Left := ScaleX(25);
PageNameLabel.Top := ScaleY(10);
PageNameLabel.Width := ScaleX(300);
PageNameLabel.Height := ScaleY(14);
PageNameLabel.AutoSize := False;
PageNameLabel.WordWrap := True;
PageNameLabel.Font.Color := clRed;
PageNameLabel.Font.Style := [fsBold];
PageNameLabel.Transparent := True;
PageDescriptionLabel := TLabel.Create(WizardForm);
PageDescriptionLabel.Left := ScaleX(40);
PageDescriptionLabel.Top := ScaleY(25);
PageDescriptionLabel.Width := ScaleX(475);
PageDescriptionLabel.Height := ScaleY(30);
PageDescriptionLabel.AutoSize := False;
PageDescriptionLabel.WordWrap := True;
PageDescriptionLabel.Font.Color := clBlack;
PageDescriptionLabel.Transparent := True;
FinishedHeadingLabel:=TLabel.Create(WizardForm);
FinishedHeadingLabel.Left := ScaleX(150);
FinishedHeadingLabel.Top := ScaleY(15);
FinishedHeadingLabel.Width := ScaleX(320);
FinishedHeadingLabel.Height := ScaleY(75);
FinishedHeadingLabel.AutoSize := False;
FinishedHeadingLabel.WordWrap := True;
FinishedHeadingLabel.Font.Color := clRED;
// здесь тоже можно поиграть шрифтом
// FinishedHeadingLabel.Font.Style := [fsBold];
FinishedHeadingLabel.Font.Name:='Segoe UI';
FinishedHeadingLabel.Font.Size := 14;
FinishedHeadingLabel.Transparent := True;
FinishedLabel:=TLabel.Create(WizardForm);
FinishedLabel.Left := ScaleX(150);
FinishedLabel.Top := ScaleY(90);
FinishedLabel.Width := ScaleX(320);
FinishedLabel.Height := ScaleY(200);
FinishedLabel.AutoSize := False;
FinishedLabel.WordWrap := True;
FinishedLabel.Font.Color := clBlack;
FinishedLabel.Font.Size := 12;
FinishedLabel.Transparent := True;
RunMyProg := TCheckBox.Create(WizardForm);
RunMyProg.Parent := WizardForm.FinishedPage;
RunMyProg.Left := ScaleX(150);
RunMyProg.Top := ScaleY(152);
RunMyProg.Width := ScaleX(14);
RunMyProg.Height := ScaleX(14);
// RunMyProg.Checked := true; // чтоб чебокс был отмечен, раскоментируй строку
RunLabel:=TLabel.Create(WizardForm);
RunLabel.Left := ScaleX(170);
RunLabel.Top := ScaleY(150);
RunLabel.Width := ScaleX(200);
RunLabel.Height := ScaleY(20);
RunLabel.AutoSize := False;
RunLabel.WordWrap := True;
RunLabel.Font.Color := clBlack;
RunLabel.Font.Size := 10;
RunLabel.OnClick := @RLabelOnClick;
RunLabel.Transparent := True;
RunLabel.Parent := WizardForm.FinishedPage;
end;
procedure CurPageChanged(CurPageID: Integer);
var
pfunc: LongWord;
begin
WelcomeLabel1.Caption := WizardForm.WelcomeLabel1.Caption;
WelcomeLabel2.Caption := WizardForm.WelcomeLabel2.Caption;
PageNameLabel.Caption := WizardForm.PageNameLabel.Caption;
PageDescriptionLabel.Caption := WizardForm.PageDescriptionLabel.Caption;
FinishedHeadingLabel.Caption := WizardForm.FinishedHeadingLabel.Caption;
FinishedLabel.Caption := WizardForm.FinishedLabel.Caption;
// здесь придётся вручную вводить требуемый текст
//RunLabel.Caption := 'Запустить программу';
if (CurPageID = wpInstalling) then
begin
pfunc := WrapTimerProc(@OnTimer, 4);
TimerID := SetTimer(0, 0, 1000, pfunc);
WizardForm.InnerNotebook.Hide;
WizardForm.Bevel1.Hide;
WizardForm.MainPanel.Hide;
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
WizardForm.ProgressGauge.Show;
WizardForm.StatusLabel.Show;
SplashImage.Show;
end
else
begin
WizardForm.ProgressGauge.Hide;
WizardForm.StatusLabel.Hide;
SplashImage.Hide;
if (CurPageID > wpInstalling) and (CurPageID < wpFinished) then
begin
WizardForm.InnerNotebook.Show;
WizardForm.Bevel1.Show;
WizardForm.MainPanel.Show;
WizardForm.PageNameLabel.Show;
WizardForm.PageDescriptionLabel.Show;
end;
end;
end;
procedure DeinitializeSetup();
begin
KillTimer(0, TimerID);
end;
|
|
Последний раз редактировалось Tukash, 01-07-2009 в 11:19. Отправлено: 11:08, 01-07-2009 | #1049 |
Новый участник Сообщения: 44
|
Профиль | Отправить PM | Цитировать |
|
Отправлено: 12:16, 01-07-2009 | #1050 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| Inno Setup. Прочие вопросы | El Sanchez | Автоматическая установка приложений | 653 | 09-01-2023 20:13 | |
| Утилиты - [addon] Inno Setup | CrOsP | Наборы обновлений для Windows XP/2003/Windows 7 | 33 | 11-05-2011 16:03 | |
| Inno Setup 5.3.6 | OSZone Software | Новости программного обеспечения | 0 | 15-11-2009 17:30 | |
| [Архив] Твики реестра .: [все вопросы] :. | Vadikan | Автоматическая установка Windows 2000/XP/2003 | 1431 | 26-01-2008 08:51 | |
| Inno Setup | tradeukraine | Вебмастеру | 3 | 13-06-2006 20:39 | |
|
|
Время: 05:37. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. |
