999Kay666
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=Mafia Mod
AppVerName=0.0
DefaultDirName={sd}\MafiaGame
;DisableWelcomePage=yes- эта команда работает начиная с версии 5.5.3, НО в данном случае она не нужна (страница отключена с остальными в коде ниже)
DisableFinishedPage=yes
Uninstallable=no
UninstallDisplayName=no
DirExistsWarning=no
[Components]
Name: textures; Description: Mod; Types: ; Flags:
[_Code]
procedure InitializeWizard();
begin
WizardForm.Caption :='пример.'
WizardForm.SelectDirBitmapImage.Hide;
WizardForm.SelectDirLabel.Hide;
WizardForm.SelectDirBrowseLabel.Hide;
WizardForm.DiskSpaceLabel.Hide;
WizardForm.DirEdit.Top := ScaleY(0);
WizardForm.DirBrowseButton.Top := ScaleY(0);
WizardForm.ComponentsList.Top := ScaleY(30);
WizardForm.ComponentsList.Height := ScaleY(195);
WizardForm.ComponentsList.Parent := WizardForm.SelectDirPage;
end;
// пропуск страниц инсталлятора
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = 1) or (PageID = 7) or(PageID = 10) then
Result:= True;
end;
//отмена установки без вопросов
procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
end;
//изменить имя кнопки NextButton
procedure CurPageChanged(CurPageID: Integer);
begin
If WizardForm.FindComponent('NextButton') is TButton
then
TButton(WizardForm.FindComponent('NextButton')).Caption:='установить';
end;
|
Всего записей: 85 | Зарегистр. 17-06-2008 | Отправлено: 21:35 05-08-2013 | Исправлено: 999Kay666, 22:02 05-08-2013 |
|
