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

[Krekerpro]

Serega,

При попытки компиляции выявляет ошибку:

http://clip2net.com/clip/m0/1244493206-clip-47kb.png

[Serega]

Цитата Serega:



Цитата Konstantin_555:

Как при удалении сделать подобное диалоговое окно? (Т.е. возможность выбора удаляемых компонентов) »

Если необходим выбор удаляемых компонентов, то придётся рисовать новую форму, а уже в ней указывать компоненты. Просто насколько знаю, в сообщении нельзя нарисовать чебоксы...

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

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

[Krekerpro]

Цитата Krekerpro:



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

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

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

#define TIME_FOR_VIEW 5




Цитата Konstantin_555:



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

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

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

[Serega]

Цитата Krekerpro:



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

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

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

[Krekerpro]

Serega,

Спасибо,ошибка пропала,но если я не ошибаюсь,то на другом компьютере установка будет не возможна

[Serega]

Цитата Serega:



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

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

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

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

[Krekerpro]

Цитата Krekerpro:



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

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

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

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




Цитата Konstantin_555:



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

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

Подробное описание вы не найдёте. Есть коротко написаное описание, в Справке к 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]

Цитата Serega:



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



Эм,эт как?

[lLancer]

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

[lLancer]

Вопрос, может и повторяюсь чей-то, но как-то не нашел...

Каким образом сделать при деинсталле - типа опции - галочку - удалять настройки из реестра или нет?



lLancer



Код:

Код: Выделить всё

[Tasks]
Name: desktopicon; Description: Создать ярлык на Рабочем Столе; GroupDescription: {cm:AdditionalIcons}
Name: startmenu; Description: Создать ярлыки в меню Пуск; GroupDescription: {cm:AdditionalIcons}
[Icons]
Name: {userdesktop}\Прога; Filename: {app}\exe.exe; WorkingDir: {app}; Tasks: desktopicon; IconIndex: 0
Name: {group}\Прога; Filename: {app}\exe.exe; WorkingDir: {app}; IconFilename: {app}\exe.exe; Tasks: startmenu; IconIndex: 0