|
|
|
|
| Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 4] |
|
|
Скрипты Inno Setup. Помощь и советы [часть 4]
|
Ветеран
Сообщения: 1273 |
Внимание! Данная тема предназначена только для обсуждения написания скриптов !
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Inno Setup [все вопросы] часть 1 Inno Setup [все вопросы] часть 2 Скрипты Inno Setup. Помощь и советы [часть 3] Продолжение обсуждения Скрипты Inno Setup. Помощь и советы [часть 5] |
|
|
Отправлено: 18:01, 29-08-2011 |
|
Забанен Сообщения: 216
|
|
|
Последний раз редактировалось Devils Night, 25-11-2011 в 08:53. Отправлено: 08:14, 25-11-2011 | #241 |
|
Новый участник Сообщения: 16
|
Профиль | Отправить PM | Цитировать Всё заработало! Убрал не нужное....
Код:
 [Setup] DiskSpanning=yes DiskSliceSize=max Ты н ругайся я еще в этом чайнк имею дела с этой прогой всего лишь неделю  |
|
Отправлено: 08:27, 25-11-2011 | #242 |
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать MarkusEVO
1) Я не ругаюсь, просто хотелось бы чтобы люди читали справку перед задаванием вопросов в шапке темы есть русская справка по инно, староватая но сгодится 2) Старайся писать просто и грамотно, не бойся знаков препинания, это помогает тебя понять. 3) Дави "полезное сообщение" если сообщение помогло спасибо за внимание! |
|
------- Отправлено: 08:32, 25-11-2011 | #243 |
|
Новый участник Сообщения: 16
|
Профиль | Отправить PM | Цитировать Народ подскажите как можно сделать, чтобы при нажатие "У Вас 64bit Система" потемнела строка "У Вас 32bit Система" и была не доступна и наоборот!?
Вот скрин на мой Инстал:  R.i.m.s.k.y., друг я сразу же нажал на полезное сообщение  Спасибо тебе еще раз! Может и в этом сообщение поможешь, тогда точно будет царить в этом мире счастье  |
|
Последний раз редактировалось MarkusEVO, 25-11-2011 в 08:43. Отправлено: 08:33, 25-11-2011 | #244 |
|
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать MarkusEVO, по сабжу - для систем х64 надо ставить и х32 компоненты тоже, так что х32 компоненты засвечивать в системах х64 не нужно
а так есть системная функция IsWin64 - возвращает True если инсталлер запущен под виндой х64 более детально нужен кусок кода который рисует это окно но с кодовым оформлением я не помощник, я его не знаю и вообще пустая трата времени |
|
------- Отправлено: 08:44, 25-11-2011 | #245 |
|
Новый участник Сообщения: 16
|
Профиль | Отправить PM | Цитировать Ну вобщем вот код отвечающий з эту страничку в инстале:
Код:
////////////////////// SelectTasksPade //////////////////////
SelectTasksPage := CreateCustomPage(wpSelectProgramGroup, ExpandConstant('{cm:TasksName}'), ExpandConstant('{cm:TasksDescription}'));
SelectTasksLabel := TLabel.Create(WizardForm);
with SelectTasksLabel do begin
AutoSize:=False;
SetBounds(ScaleX(120), ScaleY(250), ScaleX(600), ScaleY(50));
WordWrap:= True;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:SelectTasksLabel}');
Parent := WizardForm;
end;
DesktopCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(303),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(DesktopCheck,BtnClickEventID,WrapBtnCallback(@DesktopClick,1));
BtnSetEvent(DesktopCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(DesktopCheck,GetSysCursorHandle(32649));
DesktopLabel := TLabel.Create(WizardForm);
with DesktopLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(310), ScaleX(265), ScaleY(17));
OnClick:= @DesktopLabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:Desktop}');
Parent := WizardForm;
end;
QuickLaunchCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(333),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(QuickLaunchCheck,BtnClickEventID,WrapBtnCallback(@QuickLaunchClick,1));
BtnSetEvent(QuickLaunchCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(QuickLaunchCheck,GetSysCursorHandle(32649));
QuickLaunchLabel := TLabel.Create(WizardForm);
with QuickLaunchLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(340), ScaleX(345), ScaleY(17));
OnClick:= @QuickLaunchLabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:QuickLaunch}');
Parent := WizardForm;
end;
SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(SystimeBitx32Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx32Click,1));
BtnSetEvent(SystimeBitx32Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(SystimeBitx32Check,GetSysCursorHandle(32649));
SystimeBitx32Label := TLabel.Create(WizardForm);
with SystimeBitx32Label do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(370), ScaleX(155), ScaleY(17));
OnClick:= @SystimeBitx32LabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:SystimeBitx32}');
Parent := WizardForm;
end;
SystimeBitx64Check:=BtnCreate(WizardForm.Handle,ScaleX(285),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(SystimeBitx64Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx64Click,1));
BtnSetEvent(SystimeBitx64Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(SystimeBitx64Check,GetSysCursorHandle(32649));
SystimeBitx64Label := TLabel.Create(WizardForm);
with SystimeBitx64Label do begin
AutoSize:=False;
SetBounds(ScaleX(325), ScaleY(370), ScaleX(155), ScaleY(17));
OnClick:= @SystimeBitx64LabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:SystimeBitx64}');
Parent := WizardForm;
end;
LanguageLabel := TLabel.Create(WizardForm);
with LanguageLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(410), ScaleX(400), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=clLime;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Language}');
Parent := WizardForm;
end;
LngNameLbl := TLabel.Create(WizardForm);
with LngNameLbl do begin
AutoSize:=False;
SetBounds(ScaleX(300), ScaleY(410), ScaleX(100), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=clLime;
Font.Style:=[fsBold, fsItalic];
Parent := WizardForm;
end;
LanguageButton[1]:=BtnCreate(WizardForm.Handle,ScaleX(395),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\us.png'),0,True);
BtnSetEvent(LanguageButton[1],BtnClickEventID,WrapBtnCallback(@SelectLanguage,1));
BtnSetEvent(LanguageButton[1],BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(LanguageButton[1],GetSysCursorHandle(32649));
BtnSetChecked(LanguageButton[1],True);
////////////////////// SelectTasksPade //////////////////////
 и если нажать не создавать получается, что кнопка обзор и строка пути, она темнеет и становится не доступной:  |
|
Отправлено: 08:49, 25-11-2011 | #246 |
|
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать MarkusEVO,
ну не обещаю что сработает советую проверить на вин32 и вин64 а про обзор ничего не скажу, ну не знаю я оформление инно, и прекрасно себя чуйствую Код:
////////////////////// SelectTasksPade //////////////////////
SelectTasksPage := CreateCustomPage(wpSelectProgramGroup, ExpandConstant('{cm:TasksName}'), ExpandConstant('{cm:TasksDescription}'));
SelectTasksLabel := TLabel.Create(WizardForm);
with SelectTasksLabel do begin
AutoSize:=False;
SetBounds(ScaleX(120), ScaleY(250), ScaleX(600), ScaleY(50));
WordWrap:= True;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:SelectTasksLabel}');
Parent := WizardForm;
end;
DesktopCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(303),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(DesktopCheck,BtnClickEventID,WrapBtnCallback(@DesktopClick,1));
BtnSetEvent(DesktopCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(DesktopCheck,GetSysCursorHandle(32649));
DesktopLabel := TLabel.Create(WizardForm);
with DesktopLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(310), ScaleX(265), ScaleY(17));
OnClick:= @DesktopLabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:Desktop}');
Parent := WizardForm;
end;
QuickLaunchCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(333),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(QuickLaunchCheck,BtnClickEventID,WrapBtnCallback(@QuickLaunchClick,1));
BtnSetEvent(QuickLaunchCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(QuickLaunchCheck,GetSysCursorHandle(32649));
QuickLaunchLabel := TLabel.Create(WizardForm);
with QuickLaunchLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(340), ScaleX(345), ScaleY(17));
OnClick:= @QuickLaunchLabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:QuickLaunch}');
Parent := WizardForm;
end;
SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(SystimeBitx32Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx32Click,1));
BtnSetEvent(SystimeBitx32Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(SystimeBitx32Check,GetSysCursorHandle(32649));
SystimeBitx32Label := TLabel.Create(WizardForm);
with SystimeBitx32Label do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(370), ScaleX(155), ScaleY(17));
OnClick:= @SystimeBitx32LabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:SystimeBitx32}');
Parent := WizardForm;
end;
//скрываем лейбл х64 на вин-х32
if IsWin64 then begin
SystimeBitx64Check:=BtnCreate(WizardForm.Handle,ScaleX(285),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(SystimeBitx64Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx64Click,1));
BtnSetEvent(SystimeBitx64Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(SystimeBitx64Check,GetSysCursorHandle(32649));
SystimeBitx64Label := TLabel.Create(WizardForm);
with SystimeBitx64Label do begin
AutoSize:=False;
SetBounds(ScaleX(325), ScaleY(370), ScaleX(155), ScaleY(17));
OnClick:= @SystimeBitx64LabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:SystimeBitx64}');
Parent := WizardForm;
end;
end; //if IsWin64
LanguageLabel := TLabel.Create(WizardForm);
with LanguageLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(410), ScaleX(400), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=clLime;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Language}');
Parent := WizardForm;
end;
LngNameLbl := TLabel.Create(WizardForm);
with LngNameLbl do begin
AutoSize:=False;
SetBounds(ScaleX(300), ScaleY(410), ScaleX(100), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=clLime;
Font.Style:=[fsBold, fsItalic];
Parent := WizardForm;
end;
LanguageButton[1]:=BtnCreate(WizardForm.Handle,ScaleX(395),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\us.png'),0,True);
BtnSetEvent(LanguageButton[1],BtnClickEventID,WrapBtnCallback(@SelectLanguage,1));
BtnSetEvent(LanguageButton[1],BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(LanguageButton[1],GetSysCursorHandle(32649));
BtnSetChecked(LanguageButton[1],True);
////////////////////// SelectTasksPade //////////////////////
|
|
------- Последний раз редактировалось R.i.m.s.k.y., 25-11-2011 в 09:15. Отправлено: 09:09, 25-11-2011 | #247 |
|
Новый участник Сообщения: 16
|
Профиль | Отправить PM | Цитировать R.i.m.s.k.y., то есть ты сделал так, чтобы автоматически скрывалась?
Сейчас проверим! R.i.m.s.k.y., всё осталось как и прежне. |
|
Последний раз редактировалось MarkusEVO, 25-11-2011 в 09:25. Отправлено: 09:18, 25-11-2011 | #248 |
|
Ветеран Сообщения: 1640
|
Профиль | Отправить PM | Цитировать MarkusEVO, значит венда х64
я ж выше написал что для вин-х64 надо ставить и х32 компоненты тоже я поставил просто проверку на вин64, вот и все, лейблы не скрываются, а не_создаются, это две разные разницы если хочешь сделать неправильно Код:
if (not IsWin64) then begin
SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(SystimeBitx32Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx32Click,1));
BtnSetEvent(SystimeBitx32Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(SystimeBitx32Check,GetSysCursorHandle(32649));
SystimeBitx32Label := TLabel.Create(WizardForm);
with SystimeBitx32Label do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(370), ScaleX(155), ScaleY(17));
OnClick:= @SystimeBitx32LabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := ExpandConstant('{cm:SystimeBitx32}');
Parent := WizardForm;
end;
end; //if (not IsWin64)
|
|
------- Отправлено: 09:30, 25-11-2011 | #249 |
|
Новый участник Сообщения: 16
|
Профиль | Отправить PM | Цитировать  R.i.m.s.k.y., ладно не буду тебя мучить, может кто другой поможет! Всё равно спасибо тебе. А вот код страницы про создание папки в меню Пуск: Код:
////////////////////// SelectProgramGroupPage //////////////////////
SelectStartMenuFolderBrowseLabel := TLabel.Create(WizardForm);
with SelectStartMenuFolderBrowseLabel do begin
AutoSize:=False;
SetBounds(ScaleX(120), ScaleY(250), ScaleX(600), ScaleY(50));
WordWrap:= True;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold, fsItalic];
Caption:= WizardForm.SelectStartMenuFolderBrowseLabel.Caption;
Parent := WizardForm;
end;
GroupEditLabel := TLabel.Create(WizardForm);
with GroupEditLabel do begin
AutoSize:=False;
SetBounds(ScaleX(127), ScaleY(308), ScaleX(446), ScaleY(15));
WordWrap:= True;
ShowAccelChar := False;
Transparent:=True;
Font.Name:= 'Arial'
Font.Size:= 9;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold];
Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
Parent := WizardForm;
end;
NoIconsCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(430),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(NoIconsCheck,BtnClickEventID,WrapBtnCallback(@NoIconsClick,1));
BtnSetEvent(NoIconsCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(NoIconsCheck,GetSysCursorHandle(32649));
NoIconsLabel := TLabel.Create(WizardForm);
with NoIconsLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(437), ScaleX(275), ScaleY(17));
OnClick:= @NoIconsLabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := WizardForm.NoIconsCheck.Caption;
Parent := WizardForm;
end;
WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text;
WizardForm.GroupEdit.OnChange := @GroupChange;
////////////////////// SelectProgramGroupPage //////////////////////
|
|
Отправлено: 09:43, 25-11-2011 | #250 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| Test | ferget | Тест-форум | 0 | 24-08-2011 01:25 | |
| test | ! ! Aaa ! ! | Тест-форум | 0 | 23-04-2011 11:29 | |
| test | Santa aka Snt | Тест-форум | 0 | 16-04-2011 22:35 | |
| test | xolod. | Программное обеспечение Linux и FreeBSD | 0 | 19-04-2009 21:03 | |
| Test memory | KEugeNik | Хочу все знать | 11 | 23-11-2003 23:11 | |
|
|
Время: 09:56. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
