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

[filehome]

Del

[GRiD555x]

Ну спасибки жди ещё вопросов:) »

[R.i.m.s.k.y.]

GRiD555x,
жди еще ответов
чем смогу - помогу

балин, да не отвечай ты в тегах post!

[GRiD555x]

Да я первый раз на форуме и в этих тегах кодах и т.д. чайник:)

[R.i.m.s.k.y.]

Да я первый раз на форуме и в этих тегах кодах и т.д. чайник »

выделяешь сообщение, внизу появится синяя полоска "Цитировать" - давишь ее, в окне ответа появится ник и цитируемый текст, далее в окне ответа пиши там где чисто ниже всего - получится как у всех и как надо

и эта - не бойся экспериментировать! не в хирургическом отделении!!!

[GRiD555x]

выделяешь сообщение, внизу появится синяя полоска "Цитировать" - давишь ее, в окне ответа появится ник и цитируемый текст, далее в окне ответа пиши там где чисто ниже всего - получится как у всех и как надо »
Вот так правельно?:)

[R.i.m.s.k.y.]

вуаля! сходи купи булочку :) :clapping:

[Gnom_aka_Lexander]

GRiD555x, Как-то так должно все это выглядеть:
[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

[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

[_Code] // тут убереш палочку перед Code обязательно.
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';

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 InitializeWizard();
begin
ExtractTemporaryFile('BackImage.bmp')
ExtractTemporaryFile('1.bmp')
ExtractTemporaryFile('2.bmp')
ExtractTemporaryFile('3.bmp')

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

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
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)
end;

[GRiD555x]

А вот ещё один вопрос вот я делаю репак через Инно Сетап без FreeArc'a,у меня игра весит 9 гб я сделал репак и получилось 7 гб это так и должно быть или что то не так делаю??

[R.i.m.s.k.y.]

GRiD555x,
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64 »
такая компрессия максимальна, сильнее уже не сожмешь

[GRiD555x]

такая компрессия максимальна, сильнее уже не сожмешь »
Да у меня такая!!!

Я бы ещё хотел сделать слайдшоу на весь экран при установки!!!

[Gnom_aka_Lexander]

такая компрессия максимальна, сильнее уже не сожмешь »
да я не про компрессию, я скрипт в целом причесал малость. Ничего не трогая в нем.

[R.i.m.s.k.y.]

Я бы ещё хотел сделать слайдшоу на весь экран при установки »
см подпись - это не ко мне :)

[Gnom_aka_Lexander]

Я бы ещё хотел сделать слайдшоу на весь экран при установки!!! »
А я вот, вижу, что оно у тебя там у же есть :)
Название: S.T.A.L.K.E.R.- Народная солянка
Автор: Лександер
Описание: Простенький скрипт с IsDone 0.6e приятный глазу. Без революционных идей, но может, кому и понравится :)
Скачать (http://rghost.ru/24176101)
Перезалил - Версия 2 - вроде все мелкие ошибки поправил :)

[insombia]

Вот для игры Rage чтобы вкл русские сабы нужно в параметре ярлыка ввести +set sys_lang "russian" как сделать чтобы при создании ярлыка на рабочем столе оно сразу было с этим параметром?

[No4noylis]

insombia, В секции [Icons] там где прописано создание твоего ярлыка, добавь Parameters: set sys_lang "russian";
А если ярлык через чекбокс создаешь, то (конечно если я не ошибаюсь) вот здесь твой параметр написать надо:

CreateShellLink(ExpandConstant('{userdesktop}\Ярлык.lnk'), 'set sys_lang "russian"', ExpandConstant('{app}\Ярлык.exe'), '', ExpandConstant('{app}'), ExpandConstant('{app}\Ярлык.exe'), 0, SW_SHOW);

[VinTagE]

insombia, Так пробуй

[Icons]
Name: "{userdesktop}\Ярлык"; Filename: "{app}\launcher.exe"; Parameters: set sys_lang "russian"; WorkingDir: "{app}";

[GRiD555x]

какая строка нужна в скрипте чтобы расспоковался сам архив FreeArc,кагда жмёш на Setup?

[insombia]

какая строка нужна в скрипте чтобы расспоковался сам архив FreeArc,кагда жмёш на Setup? »
во первых когда идет речь о распаковке арков то жать самим инно не нужно
какая строка нужна в скрипте чтобы расспоковался сам архив FreeArc »
смотря какой скрипт

[GRiD555x]

insombia, ты можешь мне это рассказать подробнее?Через скай и т.д.?