[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

[cleric1985_n]

Я имел ввиду, запрос на удаление...т.е. либо окошко, либо галочку поставить при деинсталяции..

[Denkxx]

A1EXXX, спасибо. Нашел решение.




Цитата:



[Icons] Name: "{group}\Видео"; Filename: "{app}\Crystal.exe"; Parameters: "movie.avi"; WorkingDir: "{app}"; Tasks: groupicon

[SeDmY]

Здравствуйте! 3 вопроса

1) как сделать мини прогресс бар

http://pic.ipicture.ru/uploads/090918/aE767v7uzj.png

2) как изменить цвет самого инстолятора (полностью черный например)

3) когда я захожу пуск-> прграммы у меня присутствует только главный файл запуска

http://pic.ipicture.ru/uploads/090918/3fUug68pGr.png

а как сделать чтобы можно отсюда же и удалить программу

Жду ваших ответов!спасибо

[semiono]

Кто знает, как сделать отступ между "Созданием ярлыков" и "Языком игры" ???

[mash]

R.i.m.s.k.y., я не правильно зацепился за эти, параметр и значение, ведь русская винда может быть типа от "кого угодно" и в этом случае все задуманное ломается, можно попросить Вас переписать Ваш скрипт:



Код:

Код: Выделить всё

[Files]
Source: Reg.reg; DestDir: {tmp}; AfterInstall: NLS
[_Code]
Procedure NLS();
Var NLS1: string; res : integer;
begin
  RegQueryStringValue(HKLM, 'SYSTEM\CurrentControlSet\Control\Nls\CodePage','10001', NLS1);
  if NLS1  'www' then Exec('reg.exe', ' import ' + ' ' + AddQuotes(ExpandConstant('{tmp}\reg.reg')),ExpandConstant('{tmp}'),SW_HIDE, ewWaitUntilTerminated, res);
end;

с новыми значениями:

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]

"ACP"="1252"

А то все мои попытки переписать скрипт с этими значениями приводят к ошибке.

Заранее благодарен!



Кстати, при Вашем скрипте у меня файл reg повидимому не запустился, хотя значение в реестре было "10001"="", а не иное.

[moraru]

кто подскажет? как можно изменить эту белую папку

на мою серую с черным фоном

[M3EG]

Cgc. Сделать так то только от туда игра будет с образа идтию.Но вот осталась главная проблема тут :



Код:

Код: Выделить всё

Root: HKLM; SubKey: SOFTWARE\LucasArts\Star Wars Jedi Knight Jedi Academy\1.0; ValueType: string; ValueName: CDPath; ValueData: F:
Root: HKLM; SubKey: SOFTWARE\LucasArts\Star Wars Jedi Knight Jedi Academy\1.0; ValueType: string; ValueName: Source Path; ValueData: F:
Root: HKLM; SubKey: SOFTWARE\LucasArts\Star Wars Jedi Knight Jedi Academy\1.0; ValueType: string; ValueName: Source Dir; ValueData: F:\

F это место откуда ставил. И Мини образ если смонтировать на F то игра пойдет. А если на другой вирт.диск то уже пишет нету дика и надо в реестере букву поменять на другую тогда пойдет. Ни как нельзя сделать чтобы от всюду шло, без лазанья в реестер.

[SeDmY]

Цитата _Monster_:



как сделать мини прогресс бар

[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

Рисуете свою форму и в момент инсталляции скрываете форму инсталлятора и активируете свою, после инсталляции прячете свою форму, а форму мастера делаете видимой.


Цитата _Monster_:



а как сделать чтобы можно отсюда же и удалить программу

[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

Добавьте в секцию [Icons]:



Код:

Код: Выделить всё

Name: {group}\Удалить программу; Filename: {uninstallexe}

[Habetdin]

ну вот опять вопрос не могу соеденить черный фон с серой папкой которую дал A1EXXX (ругается на procedure InitializeWizard(); т.к их в секции 2-ое, по отдельности каждый код работает)
Цитата:

Код: Выделить всё

[Files] 

Source: C:\papka.bmp; DestDir: {tmp}; Flags: dontcopy 



[code] 

procedure InitializeWizard(); 

begin 

ExtractTemporaryFile('papka.bmp'); 

WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp')); 

WizardForm.SelectDirBitmapImage.AutoSize:=true; 

WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp')); 

WizardForm.SelectGroupBitmapImage.AutoSize:=true; 

end;



const

Color = clblack;



procedure InitializeWizard();

begin

WizardForm.Font.Color:=clWhite;

WizardForm.Color:=Color;

WizardForm.WelcomePage.Color:=Color;

WizardForm.InnerPage.Color:=Color;

WizardForm.FinishedPage.Color:=Color;

WizardForm.LicensePage.Color:=Color;

WizardForm.PasswordPage.Color:=Color;

WizardForm.InfoBeforePage.Color:=Color;

WizardForm.UserInfoPage.Color:=Color;

WizardForm.SelectDirPage.Color:=Color;

WizardForm.SelectComponentsPage.Color:=Color;

WizardForm.SelectProgramGroupPage.Color:=Color;

WizardForm.SelectTasksPage.Color:=Color;

WizardForm.ReadyPage.Color:=Color;

WizardForm.PreparingPage.Color:=Color;

WizardForm.InstallingPage.Color:=Color;

WizardForm.InfoAfterPage.Color:=Color;

WizardForm.DirEdit.Color:=Color;

WizardForm.DiskSpaceLabel.Color:=Color;

WizardForm.DirEdit.Color:=Color;

WizardForm.GroupEdit.Color:=Color;

WizardForm.PasswordLabel.Color:=Color;

WizardForm.PasswordEdit.Color:=Color;

WizardForm.PasswordEditLabel.Color:=Color;

WizardForm.ReadyMemo.Color:=Color;

WizardForm.TypesCombo.Color:=Color;

WizardForm.WelcomeLabel1.Color:=Color;

WizardForm.InfoBeforeClickLabel.Color:=Color;

WizardForm.MainPanel.Color:=Color;

WizardForm.PageNameLabel.Color:=Color;

WizardForm.PageDescriptionLabel.Color:=Color;

WizardForm.ReadyLabel.Color:=Color;

WizardForm.FinishedLabel.Color:=Color;

WizardForm.YesRadio.Color:=Color;

WizardForm.NoRadio.Color:=Color;

WizardForm.WelcomeLabel2.Color:=Color;

WizardForm.LicenseLabel1.Color:=Color;

WizardForm.InfoAfterClickLabel.Color:=Color;

WizardForm.ComponentsList.Color:=Color;

WizardForm.ComponentsDiskSpaceLabel.Color:=Color;

WizardForm.BeveledLabel.Color:=Color;

WizardForm.StatusLabel.Color:=Color;

WizardForm.FilenameLabel.Color:=Color;

WizardForm.SelectDirLabel.Color:=Color;

WizardForm.SelectStartMenuFolderLabel.Color:=Color;

WizardForm.SelectComponentsLabel.Color:=Color;

WizardForm.SelectTasksLabel.Color:=Color;

WizardForm.LicenseAcceptedRadio.Color:=Color;

WizardForm.LicenseNotAcceptedRadio.Color:=Color;

WizardForm.UserInfoNameLabel.Color:=Color;

WizardForm.UserInfoNameEdit.Color:=Color;

WizardForm.UserInfoOrgLabel.Color:=Color;

WizardForm.UserInfoOrgEdit.Color:=Color;

WizardForm.PreparingLabel.Color:=Color;

WizardForm.FinishedHeadingLabel.Color:=Color;

WizardForm.UserInfoSerialLabel.Color:=Color;

WizardForm.UserInfoSerialEdit.Color:=Color;

WizardForm.TasksList.Color:=Color;

WizardForm.RunList.Color:=Color;

WizardForm.SelectDirBrowseLabel.Color:=Color;

WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;

end;

[SeDmY]

Новый FreeArc v0.52

...





_Monster_, пробуй...

читать дальше »

[Files]

Source: C:\papka.bmp; DestDir: {tmp}; Flags: dontcopy

Код: Выделить всё

const

Color = clblack;



procedure InitializeWizard();

begin

ExtractTemporaryFile('papka.bmp');

WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));

WizardForm.SelectDirBitmapImage.AutoSize:=true;

WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));

WizardForm.SelectGroupBitmapImage.AutoSize:=true;

WizardForm.Font.Color:=clWhite;

WizardForm.Color:=Color;

WizardForm.WelcomePage.Color:=Color;

WizardForm.InnerPage.Color:=Color;

WizardForm.FinishedPage.Color:=Color;

WizardForm.LicensePage.Color:=Color;

WizardForm.PasswordPage.Color:=Color;

WizardForm.InfoBeforePage.Color:=Color;

WizardForm.UserInfoPage.Color:=Color;

WizardForm.SelectDirPage.Color:=Color;

WizardForm.SelectComponentsPage.Color:=Color;

WizardForm.SelectProgramGroupPage.Color:=Color;

WizardForm.SelectTasksPage.Color:=Color;

WizardForm.ReadyPage.Color:=Color;

WizardForm.PreparingPage.Color:=Color;

WizardForm.InstallingPage.Color:=Color;

WizardForm.InfoAfterPage.Color:=Color;

WizardForm.DirEdit.Color:=Color;

WizardForm.DiskSpaceLabel.Color:=Color;

WizardForm.DirEdit.Color:=Color;

WizardForm.GroupEdit.Color:=Color;

WizardForm.PasswordLabel.Color:=Color;

WizardForm.PasswordEdit.Color:=Color;

WizardForm.PasswordEditLabel.Color:=Color;

WizardForm.ReadyMemo.Color:=Color;

WizardForm.TypesCombo.Color:=Color;

WizardForm.WelcomeLabel1.Color:=Color;

WizardForm.InfoBeforeClickLabel.Color:=Color;

WizardForm.MainPanel.Color:=Color;

WizardForm.PageNameLabel.Color:=Color;

WizardForm.PageDescriptionLabel.Color:=Color;

WizardForm.ReadyLabel.Color:=Color;

WizardForm.FinishedLabel.Color:=Color;

WizardForm.YesRadio.Color:=Color;

WizardForm.NoRadio.Color:=Color;

WizardForm.WelcomeLabel2.Color:=Color;

WizardForm.LicenseLabel1.Color:=Color;

WizardForm.InfoAfterClickLabel.Color:=Color;

WizardForm.ComponentsList.Color:=Color;

WizardForm.ComponentsDiskSpaceLabel.Color:=Color;

WizardForm.BeveledLabel.Color:=Color;

WizardForm.StatusLabel.Color:=Color;

WizardForm.FilenameLabel.Color:=Color;

WizardForm.SelectDirLabel.Color:=Color;

WizardForm.SelectStartMenuFolderLabel.Color:=Color;

WizardForm.SelectComponentsLabel.Color:=Color;

WizardForm.SelectTasksLabel.Color:=Color;

WizardForm.LicenseAcceptedRadio.Color:=Color;

WizardForm.LicenseNotAcceptedRadio.Color:=Color;

WizardForm.UserInfoNameLabel.Color:=Color;

WizardForm.UserInfoNameEdit.Color:=Color;

WizardForm.UserInfoOrgLabel.Color:=Color;

WizardForm.UserInfoOrgEdit.Color:=Color;

WizardForm.PreparingLabel.Color:=Color;

WizardForm.FinishedHeadingLabel.Color:=Color;

WizardForm.UserInfoSerialLabel.Color:=Color;

WizardForm.UserInfoSerialEdit.Color:=Color;

WizardForm.TasksList.Color:=Color;

WizardForm.RunList.Color:=Color;

WizardForm.SelectDirBrowseLabel.Color:=Color;

WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;

end;