AleksanderGaMeR
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
SourceDir=.
OutputDir=D:\ОБразы\Blur
AppName=Blur
AppVerName=Blur
AppVersion=Blur
AppPublisher=Activison
AppCopyright=Activison
DefaultDirName={pf}Blur
DefaultGroupName=Blur
AllowNoIcons=yes
OutputBaseFilename=setup
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra64
SolidCompression=true
DiskSpanning=yes
DiskSliceSize=1572864000
SlicesPerDisk=1
InternalCompressLevel=ultra64
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Types]
Name: full; Description: Полная установка
Name: custom; Description: Выборочная установка; Flags: iscustom
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}
Name: dxinstall; Description: Обновить DirectX; GroupDescription: Дополнительно:
[Files]
Source: D:\Образы\Blur\Setup\118482.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: D:\Образы\Blur\Setup\118444.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: D:\Образы\Blur\Setup\118484.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: D:\Образы\Blur\Setup\118486.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: D:\Образы\Blur\Setup\118487.jpg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: isgsg.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
Source: C:\Documents and Settings\Admin\Рабочий стол\23.reg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: D:\Games\Blur2\DATA.exe; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak
[Icons]
Name: {group}\Blur; Filename: {app}\blur.exe; WorkingDir: {app}\
Name: {userdesktop}\Blur; Filename: {app}\blur.exe; WorkingDir: {app}\; Tasks: desktopicon
Name: {group}\{cm:UninstallProgram,Blur}; Filename: {uninstallexe}
[Run]
Filename: {tmp}\DATA.exe; Parameters: WorkingDir: {tmp}; Flags: runhidden
Description: {cm:LaunchProgram, Blur}; Filename: {app}\blur.exe; WorkingDir: {app}\; Flags: nowait postinstall skipifsilent unchecked
Filename: {win}\regedit.exe; Parameters: /s {tmp}\23.reg; StatusMsg: Вносим изменения в реестр ...; Flags: waituntilterminated runasoriginaluser; Components:
Filename: {src}\DirectX\DXSETUP.exe; Parameters: /silent; StatusMsg: Установка DirectX; Tasks: dxinstall
[UninstallDelete]
Type: filesandordirs; Name: {app}
[Code]
const
Indent=25;
dURL=2;
var
URLLabel,URLLabelShadow:TLabel;
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 ssSetBkgImage(FileName:PChar); external 'ssSetBkgImage@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 URLLabelClick(Sender: TObject);
var
ErrorCode:integer;
begin
ShellExec('open','http://www.activision.com','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top+dURL;
URLLabel.Left:=URLLabel.Left+dURL;
URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];
URLLabel.Font.Color:=clBlue;
URLLabelShadow.Visible:=False;
end;
procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top-dURL;
URLLabel.Left:=URLLabel.Left-dURL;
URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];
URLLabel.Font.Color:=clMaroon;
URLLabelShadow.Visible:=True;
end;
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('23.reg');
Result:=True;
end;
procedure InitializeWizard;
begin
URLLabelShadow:=TLabel.Create(WizardForm);
with URLLabelShadow do begin
Top:=ScaleY(331);
Left:=ScaleX(25);
Caption:='http://www.activision.com/';
AutoSize:=True;
Parent:=WizardForm;
Transparent:=True;
Font.Color:=$969696;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
end;
URLLabel:=TLabel.Create(WizardForm);
with URLLabel do begin
Top:=ScaleY(331)-dURL;
Left:=ScaleX(25)-dURL;
Caption:='http://www.activision.com/';
AutoSize:=True;
Parent:=WizardForm;
Cursor:=crHand;
Transparent:=True;
Font.Color:=clMaroon;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
BringToFront;
OnClick:=@URLLabelClick;
OnMouseDown:=@URLLabelMouseDown;
OnMouseUp:=@URLLabelMouseUp;
end;
ssInitialize(GetWindowLong(MainForm.Handle,-8),15,False,1,$FF000000);
ExtractTemporaryFile('118482.jpg');
ssSetBkgImage(ExpandConstant('{tmp}')+'\118482.jpg');
WizardForm.TypesCombo.ItemIndex:=0;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssInstall then begin
ExtractTemporaryFile('118486.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\118486.jpg');
ExtractTemporaryFile('118484.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\118484.jpg');
ExtractTemporaryFile('118487.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\118487.jpg');
ExtractTemporaryFile('118444.jpg');
ssAddImage(ExpandConstant('{tmp}')+'\118444.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
ssDeInitialize;
end;
|
Всего записей: 18 | Зарегистр. 10-07-2010 | Отправлено: 16:45 13-01-2011 | Исправлено: AleksanderGaMeR, 16:49 13-01-2011 |
|
