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

Cipso · Отправлено: **02:03, 29-10-2013** | #**1381**

Привет!
Есть код

Код:

[_Cоde]
var
  CustomPage1: TWizardPage;
  Edit1: TNewEdit;
  Button1: TNewButton;

procedure Button1Click(Sender: TObject); forward;

procedure InitializeWizard();
begin
  CustomPage1 := CreateCustomPage(wpSelectDir, 'Caption', 'Description');

  Edit1 := TNewEdit.Create(WizardForm);
  with Edit1 do
  begin
    Parent := CustomPage1.Surface;
    Left := ScaleX(0);
    Top := ScaleY(68);
    Width := ScaleX(332);
    Height := ScaleY(21);
  end;

  Button1 := TNewButton.Create(WizardForm);
  with Button1 do
  begin
    Parent := CustomPage1.Surface;
    Left := ScaleX(342);
    Top := ScaleY(67);
    Width := ScaleX(75);
    Height := ScaleY(23);
    Caption := 'Button';
    OnClick := @Button1Click;
  end;
end;

procedure Button1Click(Sender: TObject);
begin

end;

Как сделать чтоб при нажатии кнопки Button, можно было выбрать папку а в TNewEdit выводился путь выбранной папки?
В выходе то что на странице CustomPage1 нужно чтоб все было тоже самое как на странице SelectDirPage, т.е через Button выбиралась папка, в TNewEdit выводился путь, только выбиралось это для записи в реестр, т.е при установке записывалось значение в реестр выбранной папки

Код:

Root: HKCU; SubKey: Software\Mini-Game\Game\Share paths; ValueType: string; ValueName: ShareFolder; ValueData: """{app}\Mini-Game\Game\"","; Flags: uninsdeletevalue uninsdeletekeyifempty

Антон_Мураткин@vk · Отправлено: **07:31, 29-10-2013** | #**1382**

Всем доброе утро! Подскажите пожалуйста скрипт на установку dxwebsetup и vcredist_x86 Заранее благодарю.
З.Ы. Если можно то желательно можно было выбирать в меню и устанавливалось в конце установки перед нажатием кнопки завершить. Очень нужно, помогите пожалуйста!!!

Cipso · Отправлено: **11:31, 29-10-2013** | #**1383**

Цитата Антон_Мураткин@vk:

скрипт на установку dxwebsetup и vcredist_x86 »

Взято из примера

Mafia_forever · Отправлено: **18:15, 29-10-2013** | #**1384**

Всем Привет . Я хочу обратиться вам за маленькой помощью , у меня есть файл compiledcode.bin , мне сказали что я могу извлечь этот код с помощью BinDump или же ISOFORCE , я не смог найти данные файлы (утилиты) нигде , решил обратиться сюда , может кто нибудь знает как найти эти так сказать утилиты , если да то дать прямую ссылку на скачивание. Заранее спасибо за внимание :-)

Антон_Мураткин@vk · Отправлено: **18:18, 29-10-2013** | #**1385**

Cipso, Так этот код мне не даёт что именно мне надо.

В независимости выберишь ты эти дополнение установки они всё равно устанавливаются автоматом.

А мне надо как у репакеров это делается. Кто знает подскажите

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

Цитата Антон_Мураткин@vk:

Так этот код мне не даёт что именно мне надо. »

Антон_Мураткин@vk, Чем ответ от Cipso не угодил?
Так используй IStool, Inno Script Studio, InnoIDE, они умеют это делать.

Вот через IStool накидал

Код:

[Tasks]
Name: a; Description: Дополнительно
Name: a/dx; Description: DirectX
Name: a/vc; Description: Visual C++

[Run]
Filename: {src}\vcredist.exe; Parameters: /q; StatusMsg: Установка Visual C++; Tasks: a/vc
Filename: {src}\DirectX.exe; Parameters: /silent; StatusMsg: Установка DirectX; Tasks: a/dx

Могу ещё десяток таких набить.

Цитата Антон_Мураткин@vk:

всё равно устанавливаются автоматом. »

А ты действительно уверен в том что установка происходит?
Заметь, там присутствует флаг skipifdoesntexist

Код:

Flags: skipifdoesntexist;

который в случае отсутствия файла, пропускает его выполнение т.е в таком случае не выводит предупреждение о том что файл не существует.

Cipso · Отправлено: **12:24, 30-10-2013** | #**1387**

Цитата Cipso:

Как сделать

Помогите решить

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

Цитата Cipso:

Как сделать чтоб при нажатии кнопки Button, можно было выбрать папку а в TNewEdit выводился путь выбранной папки? »

Cipso,

Код:

procedure BrowseButton(Sender: TObject);
var
    szDir: String;
begin
    if BrowseForFolder('', szDir, True) then Edit1.Text := szDir;
end;

Цитата Cipso:

через Button выбиралась папка, в TNewEdit выводился путь, только выбиралось это для записи в реестр, т.е при установке записывалось значение в реестр выбранной папки »

Cipso,

Код:

[Registry]
Root: HKCU; SubKey: Software\Mini-Game\Game\Share paths; ValueType: string; ValueName: ShareFolder; ValueData: {code:SetValueData|}; Flags: uninsdeletevalue uninsdeletekeyifempty

[code]
function SetValueData(Param: String): String;
begin
    Result := Format('"%s\,"', [Edit1.Text]);
end;

Cipso · Отправлено: **19:59, 30-10-2013** | #**1389**

Цитата El Sanchez:

Код: »

Огромное спасибо! Очень выручили.
Вопрос, получается полный код будет таким

Код:

[Registry]
Root: HKCU; SubKey: Software\Mini-Game\Game\Share paths; ValueType: string; ValueName: ShareFolder; ValueData: {code:SetValueData|}; Flags: uninsdeletevalue uninsdeletekeyifempty

[_Code]
var
  CustomPage1: TWizardPage;
  Edit1: TNewEdit;
  Button1: TNewButton;
  szDir: String;

procedure BrowseButton(Sender: TObject); forward;

    
procedure InitializeWizard();
begin
  CustomPage1 := CreateCustomPage(wpSelectDir, 'Caption', 'Description');

  Edit1 := TNewEdit.Create(WizardForm);
  with Edit1 do
  begin
    Parent := CustomPage1.Surface;
    Left := ScaleX(0);
    Top := ScaleY(68);
    Width := ScaleX(332);
    Height := ScaleY(21);
  end;

  Button1 := TNewButton.Create(WizardForm);
  with Button1 do
  begin
    Parent := CustomPage1.Surface;
    Left := ScaleX(342);
    Top := ScaleY(67);
    Width := ScaleX(75);
    Height := ScaleY(23);
    Caption := 'Button';
    OnClick := @BrowseButton;
  end;
end;

procedure BrowseButton(Sender: TObject);
begin
    if BrowseForFolder('', szDir, True) then Edit1.Text := szDir;
end;

function SetValueData(Param: String): String;
begin
    Result := Format('"%s\,"', [Edit1.Text]);
end;

???

Все верно я вставил?

tuz-veta · Отправлено: **22:53, 30-10-2013** | #**1390**

ребята подскажите как добавить кнопки вот здесь