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

[Crazy Noise]

Имеется скрипт

читать дальше »

Код:

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

[Setup]
AppName=My Program
AppVersion=1.5
AppPublisher=My Company, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Icons]
Name: {group}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}
[Run]
Filename: {app}\MyProg.exe; Description: {cm:LaunchProgram,My Program}; Flags: nowait postinstall skipifsilent
[Code]
var
  NewButton1: TNewButton;
  ResultCode: Integer;
procedure NewButton1Click(Sender: TObject); forward;
procedure NewButton1Click(Sender: TObject);
begin
   Exec(ExpandConstant('{src}\setup.exe'),'','',SW_SHOW,ewNoWait,ResultCode)
end;
procedure InitializeWizard();
begin
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(16);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'NewButton1';
    OnClick := @NewButton1Click;
  end;
  NewButton1.TabOrder := 5;
end;

Вопрос первый:

Как прописать команду выполнения

читать дальше »

Код:

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

netsh.exe wlan set hostednetwork mode=allow ssid="Home" key="12345678" keyUsage=persistent

в



Код:

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

Exec(ExpandConstant('{src}\setup.exe'),'','',SW_SHOW,ewNoWait,ResultCode)

?





Второй вопрос:

Можно ли как-то

эту секцию кода

читать дальше »

Код:

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

procedure NewButton1Click(Sender: TObject);
begin
   Exec(ExpandConstant('{src}\setup.exe'),'','',SW_SHOW,ewNoWait,ResultCode)
end;

запускать по кнопке через [Run]?

[Mailchik]

Цитата Mat_y:



если у меня разных компонента требуют копирования одной и той же папки

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

Код:

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

if IsComponentSelected('copyfolder') or IsComponentSelected('copyfolder2') then CopyFolder(ExpandConstant('{app}\1'), ExpandConstant('{app}\2'), True);

Цитата Mat_y:



А Если у меня 2 разных компонента требуют копирования 2-х разных папок независимо?

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

Код:

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

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
      ssPostInstall:
      begin
          if IsComponentSelected('copyfolder') then CopyFolder(ExpandConstant('{app}\1'), ExpandConstant('{app}\2'), True);
          if IsComponentSelected('copyfolder2') then CopyFolder(ExpandConstant('{app}\2'), ExpandConstant('{app}\3'), True);
      end;
  end;
end;

[habib2302]

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

было так C:\Program Files (x86)\Universal Share Downloader\USDownloader.exe

а стало так "C:\Program Files (x86)\Universal Share Downloader\USDownloader.exe"

[saurn]

а кто что пишет в батнике для SrepInside&

[Crazy Noise]

Ребята, выходные?

[Dinvin4ester]

А мне не поможете ?

[habib2302]

Fakt_37
Цитата Fakt_37:



Ребят может вы поможете, возникла такая проблема через SrepInside жму файлы, в батнике пишу arc.exe a -ep1 -dses --dirs -s; -lc- -di -i2 -r -msrep:l256+lzma:a1:mfbt4:d200m:fb128:mc1000:lc8 data.arc packeddata\* (как обычно я делал) но теперь выдаёт ошибку ISDone.dll

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

, попробуй новую версию SrepInside0.32 =

http://rghost.ru/47598085

и плюс Dll ки от этой версии ISDone 0.6final - for FreeArc Alpha 2012 =

http://krinkels.org//downloads.php?do=file&id=110

[saurn]

Цитата audiofeel:



попробуй новую версию SrepInside0.32

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

дело было совсем в другом, я всё это уже пробовал, надо было всего лишь UAC на компе включить)

[Johny777]

audiofeel, смотри в function ImgPBCreate

if Length(pb)>0 then Result.img1:=ImgLoad(hParent,pb,Result.Left,Result.Top,Result.Width,Result.Height,True,True) else Result.img1:=0;

if Length(bk)>0 then Result.img2:=ImgLoad(hParent,bk,Left,Top,Width,Height,True,False) else Result.img2:=0;

Последнее значение в ImgLoad

//IsBkg - если IsBkg=True, изображение будет выведено на фоне формы,

// поверх него будут отрисованы графические объекты (TLabel, TBitmapImage и т.д.),

// затем поверх всего будут выведены изображения с флагом IsBkg=False

[habib2302]

как сделать фон BeveledLabel прозрачным