[Johny777]

Nightwishh,

Использую обычный скрипт с кнопками в формате .bmp »

ни о чём не говорит. Приучись пожалуйста выкладывать код (на музыку в твоём случае) с файлами(библиотеки, картинки и пр.)
концепт реализации через таймер:

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program


[code]
var
  SoundTimer: LongWord;

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure PlaySound;
begin
  KillTimer(WizardForm.Handle, SoundTimer); // убиваем таймер, ведь он уже не нужен

  WizardForm.Color := clGreen;  // заместо этой строки код запуска проигрывания звука 
end;

procedure InitializeWizard;
begin

  SoundTimer := SetTimer(WizardForm.Handle, 5, 4000, CallbackAddr('PlaySound')); // в конце процедуры запускаем таймер. Интервал его обновления 4000 мс = 4 с
end;

procedure DeinitializeSetup();
begin
  KillTimer(WizardForm.Handle, SoundTimer); // если пользователь вышел из инсталла менее чем за 4 секунды после его запуска
end;