[saurn]

Dinvin4ester, смотрим на вашу секцию файлов и что мы там видим:

Код:

[Files]
Source: iconka.ico; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "InstallFiles\*"; Flags: DontCopy;
Source: "E:\Приколы\Игры\Flaming Ball\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
;Source: Slides\*; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: Slides\1.jpg; DestDir: {tmp}; Flags: dontcopy
Source: InstallFiles\isSlideShow.dll; DestDir: {tmp}; Flags: dontcopy
Source: InstallFiles\InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy
Source: InstallFiles\WizardImage.jpg; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system
Source: InstallFiles\botva2.dll; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system
Source: InstallFiles\ProgressBackground.png; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system
Source: InstallFiles\ProgressImg.png; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system
Source: InstallFiles\Button.png; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system
Source: InstallFiles\Tiger.cjstyles; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system
Source: InstallFiles\ISSkin.dll; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system
Source: InstallFiles\InnoCallback.dll; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system

Эти файлы копируются в папку установки, потому что они дальше по скрипту используются деинсталятором, а папка пустая, потому что у файлов атрибут "Скрытый"

[Dinvin4ester]

saurn,
Получается не убрать это ?

[saurn]

Получается не убрать это ? »

Ну почему же, можно запихнуть все файлы в ексишник, то есть в ресурсы, но особой нужды в этом нет. Это не является ошибкой, просто папка содержит файлы, необходимые для работы деинстала. Добавьте в скрипт вот это:

Код:

[Dirs]
Name: {app}\InstallFiles; attribs: hidden; Flags: uninsalwaysuninstall

И папка не будет мозолить вам глаза.

[Dinvin4ester]

saurn,
Благодарю , все получилось .

[Dinvin4ester]

Ребята, помогите убрать эффекты в слайдшоу и если не сложно сказать, что за чёрная полоса торчит в последнем окне инсталлятора - http://i46.fastpic.ru/big/2013/0702/...a65deeb16b.png
Сам скрипт= http://sendfile.su/833659 .
Заранее спасибо .

[saurn]

Ребята, помогите убрать эффекты в слайдшоу »

Строка 571 в скрипте, булевное значение True замените на False

Код:

InitializeSlideShow(BackgroundForm.Handle, 0, 0, GetSystemMetrics(0), GetSystemMetrics(1), False, 1);

На счет черной полосы: это может быть пустой лейбл(скорее всего), контрол, который забыли спрятать или еще что. Нужен скрипт с минимальным набором файлов.

[vint56]

Dinvin4ester я и могу ошибаться
мне кажется LabelTime3 не скрыт он скрыт при ошибке а не скрыт при нормальной установки
wpFinished:эти там есть
begin
LabelTime3.Hide; добавь это

[Dinvin4ester]

saurn,
Вот скрипт с установочным файлом - http://sendfile.su/834007
Эффект "растворения" в слайдшоу еще можно как-то прописать ? И если не сложно вы ранее мне давали как прописать на рус и т.д , так вот посмотрите правильно прописал , а то у меня не русифицирует,но переписывает файлы куда надо,да и просто, видать, версии не совпадают.Мне именно важно знать, в таблетках, русике, озвучках флаги какие должны быть.

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

Crazy Noise,
1.

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

Код:

Exec('netsh.exe', 'wlan set hostednetwork mode=allow ssid="Home" key="12345678" keyUsage=persistent', '', SW_SHOW, ewNoWait, ResultCode)

2.

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

Код:

[Run]
Filename: "netsh.exe"; Parameters: "wlan set hostednetwork mode=allow ssid=""Home"" key=""12345678"" keyUsage=persistent"; Flags: nowait;