Re: Inno Setup GameScript Generator
Добавлено: 19.02.2008, 08:58
Ща скачаю,посмотримс...итересно в чем был баг
Крупнейшее русскоязычное Steam сообщество
https://forum.csmania.ru/
баг был в моей невнимательности. когда переписывал процедуру формирования скрипта, секции [Icons] и [Run] по непонятной мне самому причине остались в старом варианте :?DimonCJ писал(а):итересно в чем был баг
плеер управляет как mp3 включенными в инсталлятор, так и теми, которые выберет пользователь во время инсталляции. инфа о текущем треке может выводится также в обоих случаях. плеер и фоновая музыка - все опционально и может быть включено как все вместе, так и по отдельности. инфу о треке можно включить, если выбран хотя бы один файл для фоновой музыки или если включен плеер.DimonCJ писал(а):не.диза гут!оставь...а имеется виду это для мп3шек специально включеных в инсталл для этого?
Код: Выделить всё
const
Indent=10;
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
function GetSystemMetrics(nIndex:Integer):integer; external '[email protected]" target="_blank" target="_blank" target="_blank stdcall delayload';
procedure ShowMP3Panel(hMainFrm:HWND;StartVolume:integer;DefMP3Dir,BASSDir,MLabel:PChar;IsShowMP3Info,IsBkgFrmVisible:boolean;ShowTimeMP3Info:integer;dBottom:integer);external 'ShowMP3Panel@files:isgsg.dll stdcall';
procedure KillMP3Panel;external 'KillMP3Panel@files:isgsg.dll stdcall';
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('02. welcome.mp3');
ExtractTemporaryFile('09 - Final Countdown.mp3');
ExtractTemporaryFile('sandra_-_around_my_heart.mp3');
ExtractTemporaryFile('bass.dll');
Result:=True;
end;
procedure InitializeWizard;
begin
WizardForm.Position:=poScreenCenter;
ExtractTemporaryFile('splash.bmp');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\splash.bmp',1000,3000,1000,0,255,False,$FFFFFF);
ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'Sanchez Media Player',True,False,5000,Indent);
end;
procedure DeinitializeSetup;
begin
KillMP3Panel;
end;
[b]ЗЫ: Я вот толькошто с другом тестировал )) он нашел эту ветку в реестре и удалил ...эфекта 0....но когда я удалил у себя ветку у меня сбросились все настройки :crazy:[/b]