[passstrada]

Помогите пожалуйста как прописать два раза команду:procedure InitializeWizard(); »

Попробуй в конце InitializeWizard добавить

Код:

begin
RedesignWizardForm;
end
end;

Тоисть:

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

Код:

procedure InitializeWizard();
begin
ExtractTemporaryFile('bass.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('volmax.png');
ExtractTemporaryFile('volmin.png');
ExtractTemporaryFile('voldote.png')
ExtractTemporaryFile('volpb.png')
ExtractTemporaryFile('MusicButton.png');
ExtractTemporaryFile('music.mp3');

BASS_Init('{tmp}\music.mp3')
BASS_CreateMediaPlayer(WizardForm, '{tmp}\volmax.png', '{tmp}\volmin.png', '{tmp}\volpb.png', '{tmp}\voldote.png', 70, 325)
	begin
	RedesignWizardForm;
	end
end;

procedure DeinitializeSetup();
begin
Bass_DeInit;
gdipShutdown
end;