frionsx
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
SourceDir=.
OutputDir=Setup
AppName=Lineage Interlude
AppVerName=Lineage Interlude
AppVersion=Lineage Interlude
AppPublisher=NC Soft
AppCopyright=NC Soft
DefaultDirName={pf}\Lineage Interlude
DefaultGroupName=Lineage Interlude
AllowNoIcons=yes
OutputBaseFilename=setup
WizardImageFile=D:\Мои Документы\RePack\большая.bmp
WizardSmallImageFile=D:\Мои Документы\RePack\маленькая.bmp
SetupIconFile=D:\Мои Документы\RePack\Icon.ico
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=none
DiskSpanning=true
DiskSliceSize=210000000
SlicesPerDisk=1
InternalCompressLevel=none
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}
[Files]
Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: Aero.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\1.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\10.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\11.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\12.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\13.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\14.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\15.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\16.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\17.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\18.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\19.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\2.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\20.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\21.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\22.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\3.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\4.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\5.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\6.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\7.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\8.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Slides\9.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: isgsg.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: bass.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Music\1.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Music\2.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Music\3.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Мои Документы\RePack\Music\4.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: 7.bmp; DestDir: {tmp}; Flags: dontcopy
Source: D:\Игры\Lineage\system*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
[Icons]
Name: {group}\Lineage Interlude; Filename: {app}\system\L2.exe; WorkingDir: {app}\system
Name: {userdesktop}\Lineage Interlude; Filename: {app}\system\L2.exe; WorkingDir: {app}\system; Tasks: desktopicon
Name: {group}\{cm:UninstallProgram,Lineage Interlude}; Filename: {uninstallexe}
[Run]
Description: {cm:LaunchProgram, Lineage Interlude}; Filename: {app}\system\L2.exe; WorkingDir: {app}\system; Flags: nowait postinstall skipifsilent unchecked
[UninstallDelete]
Type: filesandordirs; Name: {app}
[Code]
const
Indent=25;
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall delayload';
function ssInitialize(hParent:HWND;ssTimeShow:integer;FadeOut:boolean;StretchMode:integer;BkgColor:DWORD):boolean; external 'ssInitialize@files:isgsg.dll stdcall delayload';
procedure ssDeInitialize; external 'ssDeInitialize@files:isgsg.dll stdcall delayload';
procedure ssAddImage(FileName:PChar); external 'ssAddImage@files:isgsg.dll stdcall delayload';
procedure ssStartShow; external 'ssStartShow@files:isgsg.dll stdcall delayload';
procedure ssStopShow; external 'ssStopShow@files:isgsg.dll stdcall delayload';
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll 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';
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';
var
BmpFile: TBitmapImage;
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('1.mp3');
ExtractTemporaryFile('2.mp3');
ExtractTemporaryFile('3.mp3');
ExtractTemporaryFile('4.mp3');
ExtractTemporaryFile('bass.dll');
ExtractTemporaryFile('Aero.cjstyles');
LoadSkin(ExpandConstant('{tmp}')+'\Aero.cjstyles', '');
Result:=True;
end;
procedure InitializeWizard;
begin
ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'Lineage - Interlude',False,True,0,Indent);
ssInitialize(GetWindowLong(MainForm.Handle,-8),10,True,2,$FF000000);
WizardForm.BeveledLabel.Enabled:=True;
//Извлечение изображения
ExtractTemporaryFile('7.bmp');
//Динамическое выделение памяти под изображение (BMP-файла)
BmpFile:= TBitmapImage.Create(WizardForm);
//Загрузка изображения из директории, в которую извлекали файл
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\7.bmp'));
//Задание размеров изображения согласно исходному
//Заменить widht - ширина, height - высота
BmpFile.SetBounds(0, 0, 498, 313);
//Подгоняем изображение под widht х height
BmpFile.Stretch:= true
//Привязка изображения к странице
BmpFile.Parent:= WizardForm.WelcomePage;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall then begin
ExtractTemporaryFile('1.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\1.jpg');
ExtractTemporaryFile('2.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\2.jpg');
ExtractTemporaryFile('3.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\3.jpg');
ExtractTemporaryFile('4.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\4.jpg');
ExtractTemporaryFile('5.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\5.jpg');
ExtractTemporaryFile('6.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\6.jpg');
ExtractTemporaryFile('7.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\7.jpg');
ExtractTemporaryFile('8.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\8.jpg');
ExtractTemporaryFile('9.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\9.jpg');
ExtractTemporaryFile('10.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\10.jpg');
ExtractTemporaryFile('11.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\11.jpg');
ExtractTemporaryFile('12.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\12.jpg');
ExtractTemporaryFile('13.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\13.jpg');
ExtractTemporaryFile('14.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\14.jpg');
ExtractTemporaryFile('15.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\15.jpg');
ExtractTemporaryFile('16.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\16.jpg');
ExtractTemporaryFile('17.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\17.jpg');
ExtractTemporaryFile('18.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\18.jpg');
ExtractTemporaryFile('19.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\19.jpg');
ExtractTemporaryFile('20.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\20.jpg');
ExtractTemporaryFile('21.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\21.jpg');
ExtractTemporaryFile('22.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\22.jpg');
ssStartShow;
end;
if CurStep=ssPostInstall then ssStopShow;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling then begin
WizardForm.MainPanel.Visible:=False;
WizardForm.Bevel1.Visible:=False;
WizardForm.Width:=ScaleX(395);
WizardForm.Height:=ScaleY(142);
WizardForm.Left:=ScaleX(GetSystemMetrics(0)-WizardForm.Width-Indent);
WizardForm.Top:=ScaleY(GetSystemMetrics(1)-WizardForm.Height-Indent);
WizardForm.InnerNotebook.Left:=ScaleX(10);
WizardForm.InnerNotebook.Top:=ScaleY(10);
WizardForm.InnerNotebook.Width:=ScaleX(370);
WizardForm.StatusLabel.Left:=ScaleX(0);
WizardForm.StatusLabel.Top:=ScaleY(0);
WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.FileNameLabel.Left:=ScaleX(0);
WizardForm.FileNameLabel.Top:=ScaleY(20);
WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.ProgressGauge.Top:=ScaleY(40);
WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
WizardForm.CancelButton.Left:=ScaleX(154);
WizardForm.CancelButton.Top:=ScaleY(80);
end;
if (CurPageID=wpFinished) or (CurPageID=wpInfoAfter) then begin
if WizardForm.Width<>502 then begin
WizardForm.Visible:=False;
WizardForm.Width:=ScaleX(502);
WizardForm.Height:=ScaleY(392);
WizardForm.Left:=(GetSystemMetrics(0)-WizardForm.Width) div 2;
WizardForm.Top:=(GetSystemMetrics(1)-WizardForm.Height) div 2;
WizardForm.MainPanel.Visible:=True;
WizardForm.Bevel1.Visible:=True;
WizardForm.InnerNotebook.Left:=ScaleX(40);
WizardForm.InnerNotebook.Top:=ScaleY(72);
WizardForm.InnerNotebook.Width:=ScaleX(417);
WizardForm.Visible:=True;
end;
end;
end;
procedure DeinitializeSetup;
begin
KillMP3Panel;
ShowWindow(WizardForm.Handle,0);
UnloadSkin();
ssDeInitialize;
end;
|
