[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]?