Popular channels

RVS Script TaketoGames(BotonBass+Boton Website+BotonAcerca)



Aqui veran unas capturas de como queda el script ya compilado.......

SplashScreen



Welcome Page



Components



Progress Bar + Slides




Finish Page



He decidido colocar el codigo y no las imagenes para que pueda ser copiado con facilidad, aqui va el codigo:

///////////////////////////////////////////////////////Script RVS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

//////////////////////////////////////////////////Code By TaketoGames.tk\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

////////////////////////////////////////////////////Based Code By Jv7\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

//////////////////////////////////////////////////SlideShow Code Added\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

///////////////////////////////////////////////New Boton Bass Music Library\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

////////////////////////////////////////////////////New Splash Code\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

/////////////////////////////////////////////Boton About & Boton Website Code\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

; Script generado por el Asistente de Creación.
; CONSULTE LA DOCUMENTACIÓN DE INFORMACIÓN SOBRE CÓMO CREAR ARCHIVOS DE SCRIPT INNO SETUP!

//Scripts Funciones y Procedimientos//
#include "{scripts}skin.iss"
#include "{scripts}bass.iss"
#include "{scripts}slide.iss"

//Definiendo Funciones del Instalador//
#define MyAppName "RVS Script"
#define MyAppVersion "1.5"
#define MyAppPublisher "TaketoGames.tk, Inc."
#define MyAppURL "https://sites.google.com/site/taketogamestk/ "
#define MyAppExeName "MyProg.exe"



; NOTA: El valor de AppId identifica de forma única esta aplicación.
; No utilice el mismo valor en AppId instaladores para otras aplicaciones.
; (Para generar un nuevo GUID, haga clic en Herramientas | Generar GUID en el interior del IDE.)
AppId={{86C10809-3FCC-4583-A072-4FDC79DD1D17}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
InfoBeforeFile=C:UsersAlan MiguelDesktopRVS Script{app}acuerdo.txt
InfoAfterFile=C:UsersAlan MiguelDesktopRVS Script{app}about.txt
OutputDir=C:UsersAlan MiguelDesktopRVS ScriptOutput
OutputBaseFilename=setup
SetupIconFile=C:UsersAlan MiguelDesktopRVS Script{images}M2WF.ico
Compression=lzma
SolidCompression=yes
WizardSmallImageFile={images}wizardsmall.bmp
WizardImageFile={images}wizardimage.bmp



//Titulo de Cambio de Discos (Vease Default.isl)//
ChangeDiskTitle=El Programa de Instalación Necesita el Siguiente Disco

//Mensaje de Error cuando falta un archivo x en el disco o se encuentra en otro lugar//
SelectDiskLabel2=Por favor, inserte el Disco y haga clic en Aceptar.%n%nSi los archivos pueden ser hallados en una carpeta diferente a la indicada abajo, introduzca la ruta correcta o haga clic en Examinar.

//Etiqueta del directorio o Path//
PathLabel=&Ruta:

//Mensaje de archivo No Encontrado//
FileNotInDir2=El archivo no se ha podido hallar. Por favor, inserte el disco correcto o seleccione otra carpeta.

//Etiqueta de Seleccion de Directorio//
SelectDirectoryLabel=Por favor, especifique la ubicación del siguiente disco.



Name: "spanish"; MessagesFile: "compiler:LanguagesSpanish.isl"



Name: Tasks0; Description: Instalar software adicional:; Flags: unchecked
Name: Tasks0Tasks3; Description: DirectX [Requiere Conexion a Internet] ; GroupDescription: """Instalar software adicional:"""
Name: Tasks0Tasks2; Description: Microsoft Visual C++ Redist; GroupDescription: """Instalar software adicional:"""
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1



//Programa y Acceso Directo//
Source: "C:UsersAlan MiguelDesktopRVS Script{app}MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:UsersAlan MiguelDesktopRVS Script{app}*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

//SplashScreen//
Source: {source}IsUtilsHb.dll; DestDir: {app}; Flags: dontcopy
Source: {images}splash.png; DestDir: {app}; Flags: dontcopy

//Librerias del Slide y Imagenes *.bmp//
Source: {images}*.bmp; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: {source}isSlideShow.dll; DestDir: {tmp}; Flags: dontcopy
Source: {source}InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy
Source: {images}.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}1.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}2.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}3.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}4.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}5.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}6.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}7.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}8.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}9.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}10.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}11.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}12.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}13.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}14.bmp; DestDir: {tmp}; Flags: dontcopy
Source: {images}15.bmp; DestDir: {tmp}; Flags: dontcopy

//Music y Bass//
Source: "{source}Bass.dll"; Flags: dontcopy
Source: "{source}music.mp3"; Flags: dontcopy
; NOTA: No use "Flags: ignoreversion" en los archivos compartidos del sistema


Name: "{group}{#MyAppName}"; Filename: "{app}{#MyAppExeName}"
Name: "{group}{cmrogramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"
Name: "{group}{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}{#MyAppName}"; Filename: "{app}{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}MicrosoftInternet ExplorerQuick Launch{#MyAppName}"; Filename: "{app}{#MyAppExeName}"; Tasks: quicklaunchicon


{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
var
NewButton1: TNewButton;
NewButton2: TNewButton;

procedure NewButton1Click(Sender: TObject); forward;
procedure NewButton2Click(Sender: TObject); forward;

procedure RedesignWizardForm;
begin
with WizardForm do
begin
AutoScroll := False;
ClientHeight := ScaleY(383);
end;

with WizardForm.CancelButton do
begin
Top := ScaleY(354);
end;

with WizardForm.NextButton do
begin
Top := ScaleY(354);
end;

with WizardForm.BackButton do
begin
Top := ScaleY(354);
end;

with WizardForm.WizardBitmapImage do
begin
Width := Scale500);
end;

with WizardForm.WelcomeLabel2 do
begin
Visible := False;
end;

with WizardForm.WelcomeLabel1 do
begin
Visible := False;
end;

with WizardForm.ProgressGauge do
begin
Height := ScaleY(29);
end;

with WizardForm.WizardSmallBitmapImage do
begin
Left := Scale0);
Width := Scale495);
end;

with WizardForm.PageDescriptionLabel do
begin
Visible := False;
end;

with WizardForm.PageNameLabel do
begin
Visible := False;
end;

with WizardForm.WizardBitmapImage2 do
begin
Width := Scale500);
end;

with WizardForm.RunList do
begin
Top := ScaleY(-185);
end;

with WizardForm.NoRadio do
begin
Top := ScaleY(-54);
end;

with WizardForm.YesRadio do
begin
Top := ScaleY(-45);
end;

with WizardForm.FinishedLabel do
begin
Visible := False;
Top := ScaleY(-102);
end;

with WizardForm.FinishedHeadingLabel do
begin
Visible := False;
Top := ScaleY(-82);
end;

{ NewButton1 }
NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do
begin
Name := 'NewButton1';
Parent := WizardForm;
Left := Scale174);
Top := ScaleY(353);
Width := Scale75);
Height := ScaleY(25);
Caption := 'About';
OnClick := @NewButton1Click;
end;

{ NewButton2 }
NewButton2 := TNewButton.Create(WizardForm);
with NewButton2 do
begin
Name := 'NewButton2';
Parent := WizardForm;
Left := Scale98);
Top := ScaleY(353);
Width := Scale75);
Height := ScaleY(25);
Caption := 'Website';
OnClick := @NewButton2Click;
end;

NewButton1.TabOrder := 5;
NewButton2.TabOrder := 6;

{ ReservationBegin }
// This part is for you. Add your specialized code here.

{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!

procedure NewButton2Click(Sender: TObject);

//Proceso del Boton Website//
var
ErrorCode: Integer;
begin
ShellExecAsOriginalUser('open', 'https://sites.google.com/site/taketogamestk/', '', '', SW_SHOWNORMAL, ewNoWait,ErrorCode);
end;

//Proceso del Boton About//
procedure NewButton1Click(Sender: TObject);
begin
MsgBox('Instalador Realizado Con TaketoGames. Para Dudas o Comentarios Sobre Este Repack y Su Script Enviar A: [email protected] .', mbInformation, mb_Ok);
end;

//Funcion Splash//
function SplashScreen(hWnd: Integer; pathPng: String; nSleep: Integer): Integer;
external '[email protected]:IsUtilsHb.dll stdcall';

procedure InitializeWizard;

// Variable para Carga de Splash//
var SplashFileName: String;

//Funcion de diseño del instalador//
begin
RedesignWizardForm;

//Codigo del Splash//
SplashFileName := ExpandConstant('{tmp}splash.png');
ExtractTemporaryFile('splash.png');
SplashScreen (StrToInt(ExpandConstant('{hwnd}')), SplashFileName, 5000);

//Codigo Slideshow//
PicList:=tstringlist.Create;
ExtractTemporaryFile('0.bmp');
ExtractTemporaryFile('1.bmp');
ExtractTemporaryFile('2.bmp');
ExtractTemporaryFile('3.bmp');
ExtractTemporaryFile('4.bmp');
ExtractTemporaryFile('5.bmp');
ExtractTemporaryFile('6.bmp');
ExtractTemporaryFile('7.bmp');
ExtractTemporaryFile('8.bmp');
ExtractTemporaryFile('9.bmp');
ExtractTemporaryFile('10.bmp');
ExtractTemporaryFile('11.bmp');
ExtractTemporaryFile('12.bmp');
ExtractTemporaryFile('13.bmp');
ExtractTemporaryFile('14.bmp');
ExtractTemporaryFile('15.bmp');
piclist.add(ExpandConstant('{tmp}') + '1.bmp');
piclist.add(ExpandConstant('{tmp}') + '2.bmp');
piclist.add(ExpandConstant('{tmp}') + '3.bmp');
piclist.add(ExpandConstant('{tmp}') + '4.bmp');
piclist.add(ExpandConstant('{tmp}') + '5.bmp');
piclist.add(ExpandConstant('{tmp}') + '6.bmp');
piclist.add(ExpandConstant('{tmp}') + '7.bmp');
piclist.add(ExpandConstant('{tmp}') + '8.bmp');
piclist.add(ExpandConstant('{tmp}') + '9.bmp');
piclist.add(ExpandConstant('{tmp}') + '10.bmp');
piclist.add(ExpandConstant('{tmp}') + '11.bmp');
piclist.add(ExpandConstant('{tmp}') + '12.bmp');
piclist.add(ExpandConstant('{tmp}') + '13.bmp');
piclist.add(ExpandConstant('{tmp}') + '14.bmp');
piclist.add(ExpandConstant('{tmp}') + '15.bmp');

//Codigo Sound Bass//
ExtractTemporaryFile('music.mp3');
if BASS_Init(-1, 44100, 0, 0, 0) then
begin
SoundStream := BASS_StreamCreateFile(False,
ExpandConstant('{tmp}music.mp3'), 0, 0, 0, 0,
EncodingFlag or BASS_SAMPLE_LOOP);
BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, 2500);
BASS_ChannelPlay(SoundStream, False);

SoundCtrlButton := TNewButton.Create(WizardForm);
SoundCtrlButton.Parent := WizardForm;
SoundCtrlButton.Left := 8;
SoundCtrlButton.Top := WizardForm.ClientHeight -
SoundCtrlButton.Height - 5;
SoundCtrlButton.Width := 75;
SoundCtrlButton.Caption :=
ExpandConstant('{cm:SoundCtrlButtonCaptionSoundOff}');
SoundCtrlButton.OnClick := @SoundCtrlButtonClick;
end;
end;

//Procedimiento OnTime que controla el cambio de Imagenes//
procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
var
thePicture: integer;
delta: double;
begin
delta := WizardForm.ProgressGauge.Max / ( piclist.Count );
thePicture := round( WizardForm.ProgressGauge.Position / delta );
if( thePicture <> CurrentPicture ) then
begin
CurrentPicture := thePicture;
try
ShowImage(piclist.strings[CurrentPicture - 1], 1);
except
end;
end;
end;

//Procedimiento CurPagechanged que permite la Visualizacion de Barra de Progreso y el Boton Cancelar//
procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpInstalling then
begin
InitializeSlideShow(WizardForm.Handle, 0, 0, Scale501), ScaleY(314), true, 2);
ShowImage(ExpandConstant('{tmp}') + '.bmp', 1);
TimerID:=SetTimer(0, 0, 200, WrapTimerProc(@OnTimer, 4));
WizardForm.ProgressGauge.parent:=WizardForm;
WizardForm.ProgressGauge.setbounds(Scale10), ScaleY(320), Scale475), WizardForm.ProgressGauge.height);
WizardForm.CancelButton.Left:=Scale412);
WizardForm.CancelButton.Top:=ScaleY(354);
end;
if CurPageID=wpFinished then
begin
DeinitializeSlideShow;
WizardForm.ProgressGauge.visible:=false;
end;
end;


procedure DeinitializeSetup;

begin
//Carga de libreia BASS//
BASS_Free;

//Terminando proceso de libreria Slideshow//
DeinitializeSlideShow;
KillTimer(0, TimerID);
end;


//Ejecutando programa base Direct X Web y Visual Studio Redist//
Filename: {app}redistdxwebsetup.exe; Parameters: /silent; StatusMsg: "Instalando Microsoft DirectX"; Tasks: Tasks0Tasks3;
Filename: {app}redistvcredist_x86.exe; Parameters: /q; StatusMsg: "Instalando Visual C++ Redist..."; Tasks: Tasks0Tasks2;
Filename: "{app}{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent


[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D003010F106000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874037F010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C6963697448656967687403A5010D506978656C73506572496E636802600A54657874486569676874020D00F10A544E6577427574746F6E0C43616E63656C427574746F6E03546F700362010B4578706C69636974546F700362010000F10A544E6577427574746F6E0A4E657874427574746F6E03546F700362010B4578706C69636974546F700362010000F10A544E6577427574746F6E0A4261636B427574746F6E03546F700362010B4578706C69636974546F700362010000F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651157697A6172644269746D6170496D61676505576964746803F4010D4578706C69636974576964746803F4010000F10E544E6577537461746963546578740D57656C636F6D654C6162656C320756697369626C65080000F10E544E6577537461746963546578740D57656C636F6D654C6162656C310756697369626C6508000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B50616765095265616479506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED0000F10F544E657750726F67726573734261720D50726F6772657373476175676506486569676874021D0E4578706C69636974486569676874021D00000000F1065450616E656C094D61696E50616E656C00F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020005576964746803EF010C4578706C696369744C65667402000D4578706C69636974576964746803EF010000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C0756697369626C65080000F10E544E6577537461746963546578740D506167654E616D654C6162656C0756697369626C650800000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651257697A6172644269746D6170496D6167653205576964746803F4010D4578706C69636974576964746803F4010000F110544E6577436865636B4C697374426F780752756E4C69737403546F700347FF0B4578706C69636974546F700347FF0000F10F544E6577526164696F427574746F6E074E6F526164696F03546F7002CA0B4578706C69636974546F7002CA0000F10F544E6577526164696F427574746F6E08596573526164696F03546F7002D30B4578706C69636974546F7002D30000F10E544E6577537461746963546578740D46696E69736865644C6162656C03546F70029A0756697369626C65080B4578706C69636974546F70029A0000F10E544E6577537461746963546578741446696E697368656448656164696E674C6162656C03546F7002AE0756697369626C65080B4578706C69636974546F7002AE000000000A544E6577427574746F6E0A4E6577427574746F6E31044C65667403AE0003546F70036101055769647468024B0648656967687402190743617074696F6E060541626F7574085461624F726465720205074F6E436C69636B070F4E6577427574746F6E31436C69636B00000A544E6577427574746F6E0A4E6577427574746F6E32044C656674026203546F70036101055769647468024B0648656967687402190743617074696F6E060757656273697465085461624F726465720206074F6E436C69636B070F4E6577427574746F6E32436C69636B000000
0
0
0
0No comments yet