Shwepps
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
#define MyAppName "Empire Total War"
#define MyAppVerName "Empire Total War 1.5"
#define MyAppPublisher "games-mods.ru"
#define MyAppURL "http://games-mods.ru/"
#define MyAppExeName "Empire.exe"
[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputDir=D:\Data\2.Инсталляторы чего-то\Empire TW
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
DiskSpanning=yes
DiskSliceSize=730000000
WizardImageFile=D:\Data\2.Инсталляторы чего-то\сбоку.bmp
WizardSmallImageFile=D:\Data\2.Инсталляторы чего-то\сверху.bmp
WindowVisible=yes
WindowShowCaption=no
BackColor=$000000
[Languages]
Name: "russian"; MessagesFile: "compiler:Default.isl"
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "D:\Main\Games\Empire Total War\Empire.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Main\Games\Empire Total War\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "D:\Data\2.Инсталляторы чего-то\empire tw.wav"; DestDir: "{tmp}"; Flags: dontcopy
Source: C:\Program Files\Inno Setup Scripting v5.1\Addons\Libraries\isxbb.dll; DestDir: {tmp}; Flags: dontcopy
Source: D:\Data\2.Инсталляторы чего-то\скрины\1.jpg; DestDir: {tmp}; Flags: dontcopy
Source: D:\Data\2.Инсталляторы чего-то\скрины\2.jpg; DestDir: {tmp}; Flags: dontcopy
Source: D:\Data\2.Инсталляторы чего-то\скрины\3.jpg; DestDir: {tmp}; Flags: dontcopy
Source: D:\Data\2.Инсталляторы чего-то\скрины\4.jpg; DestDir: {tmp}; Flags: dontcopy
Source: D:\Data\2.Инсталляторы чего-то\скрины\5.jpg; DestDir: {tmp}; Flags: dontcopy
Source: D:\Data\2.Инсталляторы чего-то\скрины\6.jpg; DestDir: {tmp}; Flags: dontcopy
Source: D:\Data\2.Инсталляторы чего-то\скрины\7.jpg; DestDir: {tmp}; Flags: dontcopy
; ОТМЕТЬТЕ: Не используйте "Флажки: Проигнорировать версию" на любых общедоступных системных файлах
[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon
[Messages]
BeveledLabel=Игры и Моды к ним
[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyAppName}}"; Flags: nowait postinstall skipifsilent
[Code]
const
BACKGROUND=5; // "5"-по центру, "6"-растянуто на весь экран, "1,2,3,4"-в разных углах экрана
TIMER=16;
var
MouseLabel,SiteLabel: TLabel;
function sndPlaySound(lpszSoundName: string; uFlags: cardinal):integer;
external 'sndPlaySoundA@winmm.dll stdcall';
function isxbb_AddImage(Image: PChar; Flags: Cardinal): Integer;
external 'isxbb_AddImage@files:isxbb.dll stdcall';
function isxbb_Init(hWnd: Integer): Integer;
external 'isxbb_Init@files:isxbb.dll stdcall';
function isxbb_StartTimer(Seconds: Integer; Flags: Cardinal): Integer;
external 'isxbb_StartTimer@files:isxbb.dll stdcall';
function isxbb_KillTimer(Flags: Cardinal): Integer;
external 'isxbb_KillTimer@files:isxbb.dll stdcall';
procedure SiteLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://games-mods.ru', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clRed
end;
procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue
end;
procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clGreen
end;
procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel.Font.Color:=clBlue
end;
procedure InitializeWizard();
begin
ExtractTemporaryFile(ExpandConstant('empire tw.wav')); //Извлекаем звуковой файл во временную папку
sndPlaySound(ExpandConstant('{tmp}\empire tw.wav'), $0001 or $0008); //Проигрываем файл. Здесь указаны параметры для повторного проигрывания. Если мы хотим проиграть файл единожды, удаляем параметр 'or $0008'
ExtractTemporaryFile('1.jpg'); //1.jpg-это фоновый рисунок, он показывается как в начале, так и в конце установки
isxbb_AddImage(ExpandConstant('{tmp}')+'\1.jpg', BACKGROUND);
isxbb_Init(StrToInt(ExpandConstant('{hwnd}')));
MouseLabel:=TLabel.Create(WizardForm)
MouseLabel.Width:=WizardForm.Width
MouseLabel.Height:=WizardForm.Height
MouseLabel.Autosize:=False
MouseLabel.Transparent:=True
MouseLabel.OnMouseMove:=@SiteLabelMouseMove2
MouseLabel.Parent:=WizardForm
SiteLabel:=TLabel.Create(WizardForm)
SiteLabel.Left:=10
SiteLabel.Top:=330
SiteLabel.Cursor:=crHand
SiteLabel.Font.Color:=clBlue
SiteLabel.Caption:='Forum Ru-Board'
SiteLabel.OnClick:=@SiteLabelOnClick
SiteLabel.OnMouseDown:=@SiteLabelMouseDown
SiteLabel.OnMouseUp:=@SiteLabelMouseUp
SiteLabel.OnMouseMove:=@SiteLabelMouseMove
SiteLabel.Parent:=WizardForm
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall
then
begin
ExtractTemporaryFile('2.jpg'); //это файлы для слайд-шоу, их может быть и больше
ExtractTemporaryFile('3.jpg');
ExtractTemporaryFile('4.jpg');
ExtractTemporaryFile('5.jpg');
ExtractTemporaryFile('6.jpg');
ExtractTemporaryFile('7.jpg');
isxbb_AddImage(ExpandConstant('{tmp}')+'\2.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\3.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\4.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\5.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\6.jpg',BACKGROUND or TIMER);
isxbb_AddImage(ExpandConstant('{tmp}')+'\7.jpg',BACKGROUND or TIMER);
isxbb_Init(StrToInt(ExpandConstant('{hwnd}')));
isxbb_StartTimer(3,BACKGROUND) //это таймер для слайд-шоу в секундах
end
else if CurStep=ssPostInstall then
isxbb_KillTimer(BACKGROUND);
end;
|
|
Всего записей: 54 | Зарегистр. 15-05-2009 | Отправлено: 19:10 13-05-2010 | Исправлено: Shwepps, 19:42 13-05-2010 |
|
