Скрипты Inno Setup. Помощь и советы [часть 3]

GRiD555x · Отправлено: **14:42, 04-10-2011** | #**3371**

Цитата R.i.m.s.k.y.:

Код:

[Setup]
BackColor=0 
WizardImageFile=D:\2.bmp
WizardSmallImageFile=D:\1.bmp
DiskSpanning=true
DiskSliceSize=1457664000
AppId={{C4EA8E81-A680-48BF-9D28-0A091DDD7BCB}
AppName=Driver San Francisco
AppVersion=Driver San Francisco 1.02
AppPublisher=GRiD555x
AppPublisherURL=http://gold-club.ixterm.ru/tracker/
AppSupportURL=http://gold-club.ixterm.ru/tracker/
AppUpdatesURL=http://gold-club.ixterm.ru/tracker/
DefaultDirName={pf}\Driver San Francisco
DefaultGroupName=Driver San Francisco
AllowNoIcons=yes
OutputDir=D:\Новая папка
OutputBaseFilename=setup
SetupIconFile=C:\Documents and Settings\GRID\Рабочий стол\favicon.ico
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64

[Languages]
Name: english; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Files]
Source: "D:\sound.wav"; DestDir: "{tmp}"; Flags: dontcopy 

Source: InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy 
Source: D:\BackImage.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: D:\1c.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: D:\2c.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: D:\3c.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: D:\GAME\DriverSF\Driver.exe; DestDir: {app}; Flags: ignoreversion
Source: D:\GAME\DriverSF\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

function sndPlaySound(lpszSoundName: string; uFlags: cardinal):integer; 
external 'sndPlaySoundA@winmm.dll stdcall'; 
type 
TProc=procedure(HandleW, msg, idEvent, TimeSys: LongWord); 
var 
BackImage, SlideImage: TBitmapImage; 
TimerID: LongWord; 
s:string; 
Width, Height:Integer; 

function WrapTimerProc(callback:TProc; paramcount:integer):longword; 
external 'wrapcallback@files:innocallback.dll stdcall'; 
function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord; 
external 'SetTimer@user32.dll stdcall'; 
function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord; 
external 'KillTimer@user32.dll stdcall'; 
function GetSystemMetrics(nIndex:Integer):Integer; 
external 'GetSystemMetrics@user32.dll stdcall'; 
 procedure InitializeWizard();
 begin
 WizardForm.InnerPage.Visible:=False;
 WizardForm.WelcomeLabel1.Visible:=False;
 WizardForm.WelcomeLabel2.Visible:=False;
 WizardForm.WizardSmallBitmapImage.left:=0;
 WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width;
 WizardForm.PageNameLabel.Visible:=False;
 WizardForm.PageDescriptionLabel.Visible:=False;
 WizardForm.WizardBitmapImage.Width:=WizardForm.ClientWidth;
 WizardForm.WizardBitmapImage.Height:=WizardForm.ClientHeight;
 WizardForm.WizardBitmapImage2.Width:=WizardForm.ClientWidth;
 WizardForm.OuterNotebook.Height:=WizardForm.ClientHeight;
 WizardForm.InnerNotebook.Height:=WizardForm.ClientHeight;
 WizardForm.WizardBitmapImage2.Height:=WizardForm.ClientHeight;
 WizardForm.NextButton.BringToFront;
 WizardForm.CancelButton.BringToFront;
 WizardForm.BackButton.BringToFront;
 WizardForm.FinishedHeadingLabel.Visible:=False;
 WizardForm.FinishedLabel.Visible:=False;
 WizardForm.Position:=poScreenCenter 
 WizardForm.Position:=poScreenCenter 
Width:=GetSystemMetrics(0) 
Height:=GetSystemMetrics(1) 
MainForm.BORDERSTYLE:=bsNone 
MainForm.Left:=0 
MainForm.Top:=0 
MainForm.Width:=Width 
MainForm.Height:=Height 
ExtractTemporaryFile('BackImage.bmp') 
s:=ExpandConstant('{tmp}')+'\BackImage.bmp ' 
BackImage:=TBitmapImage.Create(MainForm) 
BackImage.Bitmap.LoadFromFile(s) 
BackImage.Align:=alClient 
BackImage.Parent:=MainForm 
BackImage.Stretch:=True 
MainForm.Visible:=True 

ExtractTemporaryFile('BackImage.bmp') 
ExtractTemporaryFile('1.bmp') 
ExtractTemporaryFile('2.bmp') 
ExtractTemporaryFile('3.bmp') 
end; 

function PercentProgress(): Integer; 
begin 
with WizardForm.ProgressGauge do begin 
Result:=(Position-Min)/((Max - Min)/100) 
end 
end;  
procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord); 
var 
percent: integer; 
begin 
percent:=PercentProgress 
with SlideImage do begin 
if ((percent>0) and (percent<10) and (Tag<>1)) then begin 
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\1.bmp') 
Tag:=1 
end else 
if ((percent>11) and (percent<20) and (Tag<>2)) then begin 
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\2.bmp') 
Tag:=2 
end else 
if ((percent>21) and (percent<100) and (Tag<>3)) then begin 
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\3.bmp') 
Tag:=3 
end 
end 
end; 

procedure CurPageChanged(CurPageID: Integer); 
var 
pfunc: LongWord; 
Width, Height: Integer; 
begin 
If CurPageID=wpInstalling 
then 
begin 
pfunc:=WrapTimerProc(@OnTimer, 4) 
TimerID:=SetTimer(0, 0, 500, pfunc) 
SlideImage:=TBitmapImage.Create(MainForm) 
with SlideImage do begin 
Stretch:=True 
Align:=alClient 
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\1.bmp') 
Parent:=MainForm 
Tag:=1 
end 
end 
if CurPageID=wpFinished 
then 
begin 
SlideImage.Hide 
end 
end; 

procedure DeinitializeSetup(); 
begin 
KillTimer(0, TimerID)
ExtractTemporaryFile(ExpandConstant('sound.wav')); //Извлекаем звуковой файл во временную папку 
sndPlaySound(ExpandConstant('{tmp}\sound.wav'), $0001 or $0008); //Проигрываем файл. Здесь указаны параметры для повторного проигрывания. Если мы хотим проиграть файл единожды, удаляем параметр 'or $0008' 
end;   

[Icons]
Name: {group}\Driver San Francisco; Filename: {app}\Driver.exe
Name: {group}\{cm:ProgramOnTheWeb,Driver San Francisco}; Filename: http://gold-club.ixterm.ru/tracker/
Name: {group}\{cm:UninstallProgram,Driver San Francisco}; Filename: {uninstallexe}
Name: {commondesktop}\Driver San Francisco; Filename: {app}\Driver.exe; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Driver San Francisco; Filename: {app}\Driver.exe; Tasks: quicklaunchicon

[Run]
Filename: {app}\Driver.exe; Description: {cm:LaunchProgram,Driver San Francisco}; Flags: nowait postinstall skipifsilent

[Registry]
Root: HKLM; SubKey: SOFTWARE\UBISOFT\Driver San Francisco; ValueType: string; ValueName: launcherLanguage; ValueData: {app}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\UBISOFT\Driver San Francisco; ValueType: string; ValueName: GameLocation; ValueData: {app}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\UBISOFT\Driver San Francisco\GameUpdate; ValueType: string; ValueName: info; ValueData: {app}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\UBISOFT\Driver San Francisco\GameUpdate; ValueType: string; ValueName: language; ValueData: {app}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\UBISOFT\Driver San Francisco\GameUpdate; ValueType: string; ValueName: execPath; ValueData: {app}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\UBISOFT\Driver San Francisco\GameUpdate; ValueType: string; ValueName: installdir; ValueData: {app}; Flags: uninsdeletekey

»

R.i.m.s.k.y. · Конфигурация компьютера

GRiD555x, порвал монитор, такие простыни надо под кат прятать

Код:

[Run] 
// Filename: {app}\Driver.exe; Description: {cm:LaunchProgram,Driver San Francisco}; Flags: nowait postinstall skipifsilent

GRiD555x · Отправлено: **14:51, 04-10-2011** | #**3373**

Цитата R.i.m.s.k.y.:

получается эту сроку надо полностью удалить да?и Run тоже?»

R.i.m.s.k.y. · Конфигурация компьютера

GRiD555x, я ее тебе закомментил ( символы // в начале строки*)
Можешь удалить секцию полностью тк в ней все равно одна строчка, можешь закомментить, как угодно.
Я сказал что сделать, я сказал где сделать, какие еще вопросы? Нет, я не знаю что будет с долларом, евро и Ливией.

-----
* так же символом комментария является ";" без кавык, но только не в секции Code. В секции Code комментарий "//"

Rikill · Отправлено: **14:56, 04-10-2011** | #**3375**

Цитата Лександер:

сколько пикселей от верхнего края »

да, я и не заметил. спасибо

GRiD555x · Отправлено: **14:58, 04-10-2011** | #**3376**

Цитата R.i.m.s.k.y.:

хех ну спасибо просто я пока не сильно в этом шарю вот и перезадал вопрос

»

Gnom_aka_Lexander · Отправлено: **15:02, 04-10-2011** | #**3377**

Я поражаюсь. И никто ничего не заметил? О_о...

Цитата GRiD555x:

Код: »

Присмотритесь по внимательней - думаете это работает? Я имею в виду код целиком.

GRiD555x · Отправлено: **15:05, 04-10-2011** | #**3378**

Кстати,а почему скорость компилирании в Inno Setup всегда падает,хотя в начале она достигает до 2000и больше?

R.i.m.s.k.y. · Конфигурация компьютера

GRiD555x, мы все учились понемногу чему-нибудь и как-нибудь.
Скрипт простой, прочитай его со справкой инно, в отличие от справки винды она толковая, даст ответы на простейшие вопросы - секции, порядок установки, флаги и прочие. Займет минут 30, не более, я гарантирую это

Не шпрехаешь по инглишу? в шапке переведенная справка, старовата, но для начала сгодится.

Заодно научись отвечать на форуме правильно - не помещай свой текст в цитаты.
Скорость падает - это нормально, жеский то медленная штуковина, если там еще и файлов много мелких - ваще труба

Лександер, я по заданному вопросу смотрел, но кажись с формами накосячено, вот с оформлением я не очень.

filehome · Отправлено: **15:14, 04-10-2011** | #**3380**