[архив] Inno Setup .:[все вопросы]:.

Krekerpro · Отправлено: **23:05, 09-06-2009** | #**901**

Есть у кого нибудь get_hw_caps.dll?
При попытки скомпилировать выдаёт следующие http://clip2net.com/clip/m0/1244574459-clip-30kb.png ,я так пологая что надо что то дописать?

Konstantin_555 · Отправлено: **23:12, 09-06-2009** | #**902**

Цитата Serega:

Цитата Konstantin_555:
Как при удалении сделать подобное диалоговое окно? (Т.е. возможность выбора удаляемых компонентов) »
Если необходим выбор удаляемых компонентов, то придётся рисовать новую форму, а уже в ней указывать компоненты. Просто насколько знаю, в сообщении нельзя нарисовать чебоксы... »

Где в Inno Setup рисуется новая форма, можешь подсказать?

Serega · Конфигурация компьютера

Цитата Krekerpro:

При попытки скомпилировать выдаёт »

В самом начале скрипта, запишите:
#define TIME_FOR_VIEW 5

Цитата Konstantin_555:

Где в Inno Setup рисуется новая форма »

В секции кода...

Я просто не знаю, как можно объяснить, так сказать, на пальцах...

Raf-9600 · Отправлено: **23:23, 09-06-2009** | #**904**

Цитата Krekerpro:

Есть у кого нибудь get_hw_caps.dll? »

http://narod.ru/disk/9309585000/dll.rar.html

Krekerpro · Отправлено: **23:24, 09-06-2009** | #**905**

Serega,
Опять ему чтот не нравится http://clip2net.com/clip/m0/1244575423-clip-34kb.png

Konstantin_555 · Отправлено: **23:37, 09-06-2009** | #**906**

Цитата Serega:

Цитата Konstantin_555:Где в Inno Setup рисуется новая форма »
В секции кода... Я просто не знаю, как можно объяснить, так сказать, на пальцах... »

А есть где-то ссылка на подробное описание создания форм? Не найду в гугле..

Serega · Конфигурация компьютера

Цитата Krekerpro:

Опять ему чтот не нравится »

Ух, какой он у вас привередливый...

Попробуйте закомментировать эту строку, должно помочь.

Цитата Konstantin_555:

А есть где-то ссылка на подробное описание создания форм? »

Подробное описание вы не найдёте. Есть коротко написаное описание, в Справке к Inno. Есть пример, в папке Examples, название скрипта не помню. Вот, как-то делал форму авторан:

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Files]
Source: AutoRun.bmp; Flags: dontcopy

[code]
var
  AutoRun: TSetupForm;
  img1: TBitmapImage;
  btn, btn1: TButton;
  btn2: TButton;
  btn3: TButton;
  btn4: TButton;
  btn5: TButton;
  btn6: TButton;
  btn7: TButton;
  btn8: TButton;
  i, t: integer;

procedure btn7Click(Sender: TObject);
begin
  btn7.Height:= 21;
  btn7.Width:= 21;
  btn7.Top:= 325;
  btn7.Font.Style := [fsBold];
  btn8.Height:= 23;
  btn8.Width:= 23;
  btn8.Top:= 324;
  btn8.Font.Style := [];
end;

procedure btn8Click(Sender: TObject);
begin
  btn7.Height:= 23;
  btn7.Width:= 23;
  btn7.Top:= 324;
  btn7.Font.Style := [];
  btn8.Height:= 21;
  btn8.Width:= 21;
  btn8.Top:= 325;
  btn8.Font.Style := [fsBold];
end;


procedure CreateAutoRun;
begin
  //AutoRun
  AutoRun := CreateCustomForm;
  with AutoRun do begin
    Left := 498;
    Top := 75;
    Width := 586;
    Height := 386;
    BorderIcons := [];
    Color := clBtnFace;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    Position := poScreenCenter;
  end;
  //img1
  img1 := TBitmapImage.Create(AutoRun);
  ExtractTemporaryFile('AutoRun.bmp');
  with img1 do begin
    Parent := AutoRun;
    Left := 10;
    Top := 10;
    Width := 220;
    Height := 335;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\AutoRun.bmp'));
  end;
  //btn1
  btn1:= TButton.Create(AutoRun);
  with btn1 do begin
    Parent := AutoRun;
    Left := 248;
    Top := 15;
    Width := 313;
    Height := 22;
    Caption:= 'Начать игру';
    Cursor:= crHand;
  end;
  //btn2
  btn2:= TButton.Create(AutoRun);
  with btn2 do begin
    Parent:= AutoRun;
    Left := 248;
    Top := 75;
    Width := 313;
    Height := 22;
    Caption:= 'Установка';
    Cursor:= crHand;
  end;
  //btn3
  btn3:= TButton.Create(AutoRun);
  with btn3 do begin
    Parent:= AutoRun;
    Left := 248;
    Top := 135;
    Width := 313;
    Height := 22;
    Caption:= 'Техническая поддержка';
    Cursor:= crHand;
  end;
  //btn4
  btn4:= TButton.Create(AutoRun);
  with btn4 do begin
    Parent:= AutoRun;
    Left := 248;
    Top := 195;
    Width := 313;
    Height := 22;
    Caption:= 'Readme';
    Cursor:= crHand;
  end;
  //btn5
  btn5:= TButton.Create(AutoRun);
  with btn5 do begin
    Parent:= AutoRun;
    Left := 248;
    Top := 255;
    Width := 313;
    Height := 22;
    Caption:= 'Веб-сайт';
    Cursor:= crHand;
  end;
  //btn6
  btn6:= TButton.Create(AutoRun);
  with btn6 do begin
    Parent:= AutoRun;
    Left := 248;
    Top := 315;
    Width := 313;
    Height := 22;
    Caption:= 'Выход';
    Cursor:= crHand;
    ModalResult:= mrCancel;
  end;
  //btn7
  btn7:= TButton.Create(AutoRun);
  with btn7 do begin
    Parent := AutoRun;
    Left := 8;
    Top := 324;
    Width := 23;
    Height := 23;
    Cursor := crHand;
    Caption := 'EN';
    Font.Color := clWindowText;
    Font.Height := -5;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    ParentFont := False;
    TabOrder := 6;
    OnClick := @btn7Click;
  end;
  //btn8
  btn8:= TButton.Create(AutoRun);
  with btn8 do begin
    Parent := AutoRun;
    Left := 31;
    Top := 325;
    Width := 21;
    Height := 21;
    Cursor := crHand;
    Caption := 'RU';
    Font.Color := clWindowText;
    Font.Height := -5;
    Font.Name := 'MS Sans Serif';
    Font.Style := [fsBold];
    ParentFont := False;
    TabOrder := 6;
    OnClick := @btn8Click;
  end;
  AutoRun.ShowModal;
end;

procedure InitializeWizard;
begin
  CreateAutoRun;
end;

Krekerpro · Отправлено: **00:08, 10-06-2009** | #**908**

Цитата Serega:

Попробуйте закомментировать эту строку, должно помочь.

Эм,эт как?

Serega · Конфигурация компьютера

Krekerpro, покажите свой код. Ошибка говорит о том, что неизвестная переменная, а она должна задаваться в скрипте.

Krekerpro · Отправлено: **00:33, 10-06-2009** | #**910**

Serega,