[маркузяка]

кнопку то я создал в WizardForm Designer название ей дал, а вот как заставить при нажатии показывать сообщение я не знаю. я пробовал сделать нечто подобное скрипту из архива в шапке темы, но кнопки почему то вобще нет на первой странице

[маркузяка]

все, сделал я кнопку путем слепливания секции Code, той что делает редактор форм с той что была в готовом скрипте из архива

Код:

[Setup]
AppName=TestButton
AppVerName=TestButton
DefaultDirName=C:\TestButton

[Code]
procedure TestButtonOnClick(Sender: TObject);
begin
  MsgBox('инфо!', mbInformation, MB_OK)
end;

procedure InitializeWizard();
var
  NewButton1: TNewButton;
  
begin
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do begin
    Left:=40
    Top:=330
    Width:=81
    Height:=22
    Cursor:=crHand
    OnClick:=@TestButtonOnClick
    Parent:=WizardForm
    Caption := 'Инфо';
  end
end;

[nik1967]

маркузяка,
Caption := 'Инфо;
забыл ' поставить:
Caption := 'Инфо';

[R.i.m.s.k.y.]

здесь надо подумать »

Ошибка тут:

Код:

Source: CodeRim\CodeRim\vfw\x264\x264vfw.dll; DestDir: {sys}; BeforeInstall: ChangeCaption('Установка x264vfw'); Flags: ignoreversion recursesubdirs createallsubdirs setntfscompression uninsrestartdelete 32bit; Components: VirtualDub\x264vfw; Check: (not IsWin64); 
Source: CodeRim\CodeRim\vfw\x264\x264vfw.ico; DestDir: {sys}; BeforeInstall: ChangeCaption('Установка x264vfw'); Flags: ignoreversion recursesubdirs createallsubdirs setntfscompression uninsrestartdelete 32bit; Components: VirtualDub\x264vfw; Check: (not IsWin64); 
Source: CodeRim\CodeRim\vfw\x264\x264vfw.dll; DestDir: {syswow64}; BeforeInstall: ChangeCaption('Установка x264vfw'); Flags: ignoreversion recursesubdirs createallsubdirs setntfscompression uninsrestartdelete 64bit; Components: VirtualDub\x264vfw; Check: IsWin64; 
Source: CodeRim\CodeRim\vfw\x264\x264vfw.ico; DestDir: {syswow64}; BeforeInstall: ChangeCaption('Установка x264vfw'); Flags: ignoreversion recursesubdirs createallsubdirs setntfscompression uninsrestartdelete 64bit;Components: VirtualDub\x264vfw; Check: IsWin64;

если убрать либо Check: (not IsWin64);, либо Check: IsWin64, то размер компонентов отображается, но это неправильно. Вопрос: как обойти такой недосмотр со стороны инно? Пока идея только копирнуть эти файлики в {tmp} и оттуда кодом в требуему папку. Удаление делать через [UninstallDelete].

[Serega]

Пока идея только копирнуть эти файлики в {tmp} и оттуда кодом в требуему папку »

Я думаю причина в другом, т.е. вы указываете и флагами и параметром Check проверку на какую систему устанавливаются те или иные файлы. Вполне возможно, что при двойной проверке происходит какой-то глюк, уберите флаги 32bit и 64bit, думаю в таком случае всё решиться.

P.S.
Для лучшего сжатия попробуйте добавить флаги:
sortfilesbyextension sortfilesbyname

[R.i.m.s.k.y.]

уберите флаги 32bit и 64bit »

тогда копируются не в тот system и как кодек не работает

Еще, почему мы не добавить в шапку темы ссылки на скачивание дистров Inno, ISTool, Inno Preprocessor и т.п.?

[маркузяка]

nik1967, уже поставил, хз как она исчезла но в моем скрипте она есть

[Serega]

тогда копируются не в тот system и как кодек не работает »

сделайте тогда так, т.е. вынесите IsWin64 в отдельную функцию, т.е.:

Код:

function GetSys: Boolean;
begin
  Result := IsWin64;
end;

а уже в Check указываете эту функцию, т.е. Check: GetSys и Check: not GetSys

почему мы не добавить в шапку темы ссылки на скачивание дистров Inno, ISTool, Inno Preprocessor и т.п.? »

они есть в этой теме : Inno Setup. Прочие вопросы
Скоро всё равно будет новая тема, в ней я думаю объединю эти две.

[R.i.m.s.k.y.]

а уже в Check указываете эту функцию, т.е. Check: GetSys и Check: not GetSys »

не вижу смысла такой подстановки, а вот в DestDir: {code:getsyspath} можно подставить, где getsyspath возвращает путь system32/syswow64 в зависимости от ОС

[Maks23zr]

У меня вылезла ошибка

Как мне быть?