[Oasis]

ZVSRus, спасибо за наводку.

вставил этот скрипт, может кому пригодится

[Files]
Source: Portal_1.bmp; DestDir: {tmp}

[code]
var
MyExit: TSetupForm;

procedure MyExitMessage();
var
OkButton, CancelButton: TButton;
MyIcon: String;
begin
MyExit := CreateCustomForm();
with MyExit do
begin
color := clblack
Position := poScreenCenter;
ClientWidth := WizardForm.Width;
ClientHeight := WizardForm.Height div 2;
Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));

MyIcon := ExpandConstant(AddBackSlash('{tmp}') + 'Portal_1.bmp');
if not FileExists(MyIcon) then
ExtractTemporaryFile(ExtractFileName(MyIcon));

with TBitmapImage.Create(MyExit) do
begin
Left := ScaleX(10);
Top := ScaleY(20);
Width := ScaleX(80);
Height := ScaleY(80);
Bitmap.LoadFromFile(MyIcon);
Parent := MyExit;
end;

with TNewStaticText.Create(MyExit) do
begin
Left := ScaleX(110);
Top := ScaleY(20);
Width := MyExit.Width - ScaleX(115);
Height := MyExit.Height div 2;
AutoSize := False;
WordWrap := True;
Caption := ExpandConstant(SetupMessage(msgExitSetupMessage));
Parent := MyExit;
Font.Name:='Comic Sans MS'
Font.Color:=ClWhite;
end;

CancelButton := TButton.Create(MyExit);
with CancelButton do
begin
Width := WizardForm.CancelButton.Width;
Height := WizardForm.CancelButton.Height;
Left := MyExit.Width - Width - ScaleX(15);
Top := MyExit.Height - Height * 2 - ScaleY(15);
Caption:='Назад';
ModalResult := mrCancel;
Parent := MyExit;
end;

OkButton := TButton.Create(MyExit);
with OkButton do
begin
Width := CancelButton.Width;
Height := CancelButton.Height;
Left := CancelButton.Left - Width - ScaleX(5);
Top := CancelButton.Top;
Caption:='Выйти';
ModalResult := mrOk;
Parent := MyExit;
end;

ActiveControl := CancelButton;
end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
MyExitMessage();

if MyExit.ShowModal() = mrCancel then
Cancel := False;
end;

[ZVSRus]

Oasis, спасибо за наводку.
Забыл сказать, прикрученный скин никак не действует на свои формы (то что вы делаете в коде), только на стандартные окна, форму, по моему так.
Картинку на форме лучше сделать в .png формате, что бы фона не было видно. Прикрути ботву.

[OldGamer]

Всем привет!

Подскажите, пожалуйста, как и где указать задержку появления/старта/начала музыки.
Ботва и басс модуль подключены.

[ZVSRus]

OldGamer, Что бы вам могли подсказать (те кто знает), им нужно что то видеть (в данном случае скрипт).
А так подсказку будете ждать до морковкинова заговенья.

[vadjliss]

ребята подскажите как сделать .exe , что бы он тихо внёс в реестр и в host
что бы он не определялся в программы и компоненты

[Nordek]

внёс в реестр »

Вариант 1:

Код:

[Run]
Filename: REG.exe; Parameters: "ADD ""HKCU\Software\Test"" /v ""Parameter"" /t REG_SZ /d ""Value"" /f"; Flags: runhidden

[UninstallRun]
Filename: REG.exe; Parameters: "DELETE ""HKCU\Software\Test"" /v ""Parameter"" /f"; Flags: runhidden

или

Код:

[Run]
Filename: REG.exe; Parameters: "ADD ""HKCU\Software\Test"" /v ""Parameter"" /t REG_SZ /d ""Value"" /f"; Flags: runhidden

[UninstallRun]
Filename: REG.exe; Parameters: "DELETE ""HKCU\Software\Test"" /f"; Flags: runhidden

Вариант 2:

Код:

[Files]
Source: test.reg; DestDir: {tmp}; Flags: ignoreversion deleteafterinstall

[Run]
Filename: regedit.exe; Parameters: "/s ""{tmp}\test.reg"""

Вариант 3:

Код:

[Registry]
Root: HKCU; SubKey: Software\Test; ValueType: string; ValueName: Parameter; ValueData: Value; Flags: uninsdeletevalue uninsdeletekeyifempty

и в host »

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

Скрытый текст

Код:

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  HostFile: TStringList;
  HostFileName: String;
begin
  HostFile := TStringList.Create;
  HostFileName:=ExpandConstant('{sys}\drivers\etc\hosts');
  try
    with HostFile do
    if CurStep = ssPostInstall then
    begin
      LoadFromFile(HostFileName);
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      DeleteFile(HostFileName);
      SaveToFile(HostFileName);
    end;
  finally
    HostFile.free;
  end;
end;

[OldGamer]

Что бы вам могли подсказать (те кто знает), им нужно что то видеть (в данном случае скрипт). А так подсказку будете ждать до морковкинова заговенья.

Вот, выложил папку со скриптами

P. S. Поясню подробнее: создаю инсталлятор со слайд-шоу.
Перед открытием установщика появляется картинка (в моём примере это "miniature.png"), затем она плавно исчезает и уже открывается окно установщика.
Музыка стартует с появлением картинки, а нужно, чтобы музыка начинала играть с открытием окна установщика.

[ZVSRus]

OldGamer, Вот, выложил скрипты....
Вы выложили скрипт и 2 модуля, а остальное за вас должен кто то искать.
dll'ки, картинки, папку с кнопками. Если уж сделали архив, запихайте туда все!

[ZVSRus]

OldGamer, Вопрос на засыпку!
Вы сами собирали скрипт, музыка + сплеш заставка.
Музыка работает своеобразно, нажимаешь на кнопку отключения, на кнопке крестик, это правильно. Двигаешь громкость, музыка начинает играть но на кнопке крестик, это не правильно. Нажимаешь на кнопку, крестик пропадает, но музыка играть перестаёт, это не правильно. Снова двигаешь ползунок громкости, музыка начинает играть, это не правильно. Замороченный скрипт.

[OldGamer]

ZVSRus, да сам собрал))