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

[neorom]

del
P.S. Я взяв вашу идею и перелал на свой лад, так я хател из самого начала.
Єсли хто хочет я могу викладь, но скажите как(напишите инструкции) и где.

[Mailchik]

как сделать в inno кнопку с прозрачным фоном? »
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
TransparentButton: TNewSpeedButton;

procedure TestClick(Sender : TObject);
begin
MsgBox('Transparent Button Test', mbInformation, MB_OK);
end;

procedure InitializeWizard;
begin
TransparentButton := TNewSpeedButton.Create(WizardForm);
with TransparentButton do begin
Parent := WizardForm;
Caption := 'Transparent';
OnClick := @TestClick;
Flat := True;
SetBounds(WizardForm.NextButton.Left - WizardForm.NextButton.Width - ScaleX(5), WizardForm.NextButton.Top,
WizardForm.NextButton.Width, WizardForm.NextButton.Height);
end;
end;

[insombia]

проблема с isexec
if i < 2464 then /// задаём количество файлов в папке, в данном случаи их 708 шт!!
задал правильное количество файлов в папке с игрой (у меня 4 архива) а оно все равно ошибку кидает

[Tco 03]

в данном случаи их 708 шт!! »
Если Вы знаете точное колличество файлов, может быть так поможет: if i <> 2464 then (не больше не меньше) :)

[neorom]

del

[sergey3695]

Mailchik, за кнопку спасибо
никто незнает
const
WM_SETREDRAW= ????;

[Mailchik]

никто незнает
const
WM_SETREDRAW= ????; »
WM_SETREDRAW = $000B;

[neorom]

Да , когда я тестировал скрип, я увидел что эсли и не ставить две галочки у окне "Вибора установки ярлика и ПО" ярлики
ставлятся сами и стартуєт програма dxwebsetup.exe сама. Как єто исправить ?
Скрипт з файлами ==> http://us.ua/1068064/

[Crazy Noise]

Здорова!
Народ, подскажите как решить проблему!

Имеется такой код
[код]
function InitializeSetup(): Boolean;
var
NetFrameWorkInstalled: Boolean;
Result1: Boolean;
begin
//NetFrameWorkInstalled := RegKeyExists(HKLM, 'SOFTWARE\Adobe\Adobe ARM\1.0\ARM');
NetFrameWorkInstalled := RegValueExists(HKLM, 'SOFTWARE\Adobe\Adobe ARM\1.0\ARM', 'iCheckReader');

if NetFrameWorkInstalled = false then Result:=True else
begin
Result1 := MsgBox(('Найден ключ $00000000'),
mbConfirmation, MB_OK) = idOk;
end;
end;

Пробовал RegKeyExists, RegValueExists, в справке искал. Не нашёл.

Задача
Запихнуть ключ реестра для проверки, причём весь ключ нужен
Root: HKLM; SubKey: SOFTWARE\Adobe\Adobe ARM\1.0\ARM; ValueType: dword; ValueName: iCheckReader; ValueData: $00000000;
Дело в том, нужно чтоб проверка была ещё по значению ValueData: $00000000.
Как реализовать?

[Mailchik]

Crazy Noise, [Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
function InitializeSetup(): Boolean;
var
NetFrameWorkInstalled, MyResult: Boolean;
MyValueData: Cardinal;
begin
if RegQueryDWordValue(HKLM, 'SOFTWARE\Adobe\Adobe ARM\1.0\ARM', ''iCheckReader'', MyValueData) then
NetFrameWorkInstalled := MyValueData = $00000000;

if not NetFrameWorkInstalled then
Result := True else
MyResult := MsgBox('Найден ключ $00000000', mbConfirmation, MB_OK) = idOk;
end;

[sergey3695]

как избавиться от мигания формы при разворачивании, которая использует isskin?

[neorom]

Да , когда я тестировал скрип, я увидел что эсли и не ставить две галочки у окне "Вибора установки ярлика и ПО" ярлики
ставлятся сами и стартуєт програма dxwebsetup.exe сама. Как єто исправить ?
Скрипт з файлами ==> http://us.ua/1068064/ »
Памагите мне, пажалоста !!!

[insombia]

понимаю вопрос нубский,но все же, как скрыть WizardSmallImage?

[Gnom_aka_Lexander]

WizardSmallImage.Hide; логично вроде?

[insombia]

Gnom_aka_Lexander вроде да,но куда его привильно вписать?

[Mailchik]

Gnom_aka_Lexander вроде да,но куда его привильно вписать? »
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
procedure InitializeWizard;
begin
WizardForm.WizardSmallBitmapImage.Hide;
end;
P.S. insombia
Старожил
Сообщения: 416
Благодарности: 37Вам не стыдно задавать такие вопросы? Я так понимаю, все эти 400 сообщений вы только и делали, что просили чтобы за вас что то сделали.

[saurn]

Да , когда я тестировал скрип, я увидел что эсли и не ставить две галочки у окне "Вибора установки ярлика и ПО" ярлики
ставлятся сами и стартуєт програма dxwebsetup.exe сама. Как єто исправить ? »

Для начала, было бы не плохо самому внимательно изучить свой скрипт. Ну и, в идеале, справку почитать.
Вообщем замените в своем скрипте секции Run и Icons на вот эти:


[Run]
Filename: "{app}\kitserver13\manager.exe"; Flags: postinstall waituntilidle
Filename: "{tmp}\Soft\dxwebsetup.exe"; Flags: shellexec; Check: SoftInstall;

[Icons]
Name: "{group}\Footballsim_Patch_2013"; Filename: "{app}\Footballsim_Patch_2013.exe"; WorkingDir: "{app}\"; IconFilename: "{app}\Uninstall\unins000.exe"; Check: CreateIcons;
Name: "{group}\Footballsim_Patch_2013.(Налаштування)"; Filename: "{app}\settings.exe"; WorkingDir: "{app}\"; IconFilename: "{app}\Uninstall\unins000.exe"; Check: CreateIcons;
Name: "{group}\{cm:UninstallProgram,Footballsim_Patch_2013}"; Filename: "{uninstallexe}"; Check: CreateIcons;
Name: "{commondesktop}\Footballsim_Patch_2013"; Filename: "{app}\Footballsim_Patch_2013.exe"; WorkingDir: "{app}\"; IconFilename: "{app}\Uninstall\unins000.exe"; Check: CreateIcons;
Name: "{commondesktop}\Footballsim_Patch_2013.(Налаштування)"; Filename: "{app}\settings.exe"; WorkingDir: "{app}\"; IconFilename: "{app}\Uninstall\unins000.exe"; Check: CreateIcons;


Жирным шрифтом обозначено то, что я дописал.

[Tco 03]

Для начала, было бы не плохо самому внимательно изучить свой скрипт. Ну и, в идеале, справку почитать. »
Этот товарищ не то что справку не хочет читать, он вообще не желает ни чего понимать. Пост... (http://forum.oszone.net/post-2113144-1897.html)
Далее, уже был отредактирован полностью готовый, РАБОЧИЙ пример: Пост... (http://forum.oszone.net/post-2113861-1914.html)
После чего он пишет:
Я взяв вашу идею и перелал на свой лад »

[neorom]

Этот товарищ не то что справку не хочет читать, он вообще не желает ни чего понимать. Пост...
Далее, уже был отредактирован полностью готовый, РАБОЧИЙ пример: Пост...
После чего он пишет: »
Я только как пару дней начал роботать з Inno Setup , и не знаю толкам что и как, и попросил вас мне помочь, а вы уже начинаэте кретекувать меня.

[insombia]

neorom тебе дали совет,что для начала читай справки во избежание флуда