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

[Farser21]

El Sanchez, благодарю за помощь.

[ShadeUa]

Здраствуйте как такое реализовать , и есть возможноость на 3 -4 языка ?
https://yadi.sk/i/-sJv0Rd0eZshJ

[Kashtan007]

Привет всем.
Как сделать, чтобы после деинсталяции компонентов, по заданному пути создавалась папка?
Заранее спасибо за ответы!

[kotyarko@fb]

Как сделать, чтобы после деинсталяции компонентов, по заданному пути создавалась папка? »
Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usDone then
CreateDir(ExpandConstant('{app}\New folder');
end;

[Kashtan007]

kotyarko@fb, все я разобрался, спасибо за помощь.

[Okta_333]

Скажите пожалуйста, а какие вообще цвета поддерживает Inno Setup? А то ставлю синий, а отображается жёлтый.

[ROMKA-1977]

Okta_333, наверное прописал цвет в RGB? В инно BGR - цвета используются, меняй первые два знака с последними.

[diman_21Ru]

Всем привет в чем может быть проблема выходит ошибка radio item cannot have disabled child items

[Shift85]

Скажите пожалуйста, а какие вообще цвета поддерживает Inno Setup? А то ставлю синий, а отображается жёлтый. »

Okta_333, Вот немножко... :tongue:

clScrollBar = $80000000;
clBackground = $80000001;
clActiveCaption = $80000002;
clInactiveCaption = $80000003;
clMenu = $80000004;
clWindow = $80000005;
clWindowFrame = $80000006;
clMenuText = $80000007;
clWindowText = $80000008;
clCaptionText = $80000009;
clActiveBorder = $8000000A;
clInactiveBorder = $8000000B;
clAppWorkSpace = $8000000C;
clHighlight = $8000000D;
clHighlightText = $8000000E;
clBtnFace = $8000000F;
clBtnShadow = $80000010;
clGrayText = $80000011;
clBtnText = $80000012;
clInactiveCaptionText = $80000013;
clBtnHighlight = $80000014;
cl3DDkShadow = $80000015;
cl3DLight = $80000016;
clInfoText = $80000017;
clInfoBk = $80000018;
clHotLight = $8000001A;

clBlack = $000000;
clMaroon = $000080;
clGreen = $008000;
clOlive = $008080;
clNavy = $800000;
clPurple = $800080;
clTeal = $808000;
clGray = $808080;
clSilver = $C0C0C0;
clRed = $0000FF;
clLime = $00FF00;
clYellow = $00FFFF;
clBlue = $FF0000;
clFuchsia = $FF00FF;
clAqua = $FFFF00;
clLtGray = $C0C0C0;
clDkGray = $808080;
clWhite = $FFFFFF;
clNone = $1FFFFFFF;
clDefault = $20000000;

Всем привет в чем может быть проблема выходит ошибка radio item cannot have disabled child items »
diman_21Ru, Телепаты в отпуске.:jester:

[diman_21Ru]

Shift85, так я сам не пойму из за чего она компиляция проходит успешно

[ShadeUa]

Здраствуйте ,у меня возникла така проблема , походу неправильно скрипт соеденил https://yadi.sk/i/6SaACTKeeavWa
помогите пожайлуста.

[ShadeUa]

Ребята , помогите реализовать ету шнягу (

[Shift85]

Здраствуйте ,у меня возникла така проблема , походу неправильно скрипт соеденил https://yadi.sk/i/6SaACTKeeavWa
помогите пожайлуста. »

Ребята , помогите реализовать ету шнягу ( »

ShadeUa, Скрипт кто давать будет? Пушкин да. :hi: :bow:

[Dodakaedr]

Подскажите кто знает, используется вот такая функция Root: HKCR; Subkey: "Pro.Session\DefaultIcon"; ValueType: String; ValueData: "{code:GetExeShortPath},0"; Flags: uninsdeletevalue

и она создает вот такую запись C:\PROGRA~1\EXAMDI~1\ExeName.exe,0
Как создать короткий путь в inno?

[ShadeUa]

ShadeUa, Скрипт кто давать будет? Пушкин да. »
Спасибо что откликнулись , сейчас лазью скрипт ))

ShadeUa, Скрипт кто давать будет? Пушкин да »
В архиве 3 папки ,
Скрипты - ето основной мой скрипт
1- ето то что я хочу реализовать
w- ето то что я хочу получить в финале ( на основе готового скрипта )( ето не обезательно но если знаете как сделать помогите новечку , буду очень благодарен ))
https://yadi.sk/d/zJHtiYE1ecUEh

[diman_21Ru]

Всем привет как можно категорию Tasks изменять в размере, вот скрин : http://s47.radikal.ru/i115/1502/b3/8eab69b26246.png

[Dodakaedr]

diman_21Ru, WizardForm.TasksList.SetBounds(ScaleX(100), ScaleY(10), ScaleX(WizardForm.TasksList.Width), ScaleY(WizardForm.TasksList.Height));

[diman_21Ru]

Dodakaedr, а куда можно прикруть именно ?

[Shift85]

а куда можно прикруть именно ? »
diman_21Ru, :fool:

Сюда:

with WizardForm.TasksList do
begin
SetBounds(ScaleX(100), ScaleY(10), ScaleX(WizardForm.TasksList.Width), ScaleY(WizardForm.TasksList.Height));
end;

[Dodakaedr]

а куда можно прикруть именно ? »
сюда можно:procedure InitializeWizard();
begin
WizardForm.TasksList.SetBounds(ScaleX(100), ScaleY(10), ScaleX(WizardForm.TasksList.Width), ScaleY(WizardForm.TasksList.Height));
end;