[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;