Показать полную графическую версию : Скрипты Inno Setup. Помощь и советы [часть 3]
No4noylis
04-10-2011, 09:25
GRiD555x, Значит надо объединить процедуры, чтоб не было дубликата.
GRiD555x
04-10-2011, 09:30
[Code]
procedure InitializeWizard1();
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;
end;
const
Color = clblack; // цвет окна инстала
procedure InitializeWizard2();
begin
WizardForm.Font.Color:=clWhite; // цвет текста
wizardForm.WelcomeLabel1.Font.Color:=clWhite; // цвет текста
WizardForm.FinishedHeadingLabel.Font.Color:=clWhite; // цвет текста
WizardForm.PageNameLabel.Font.Color:=clWhite; // цвет текста
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
WizardForm.Bevel.visible:=false;
WizardForm.Bevel1.visible:=false;
end;
вот я сделал так но ещё я прочитал кое где что надо вставить после этого в конец скрипта вот
procedure InitializeWizard();
begin
procedure InitializeWizard1();
procedure InitializeWizard2();
end; куда именно?>
Gnom_aka_Lexander
04-10-2011, 09:41
GRiD555x, А ты сделай проще, чтоб голову не ломать:
const
Color = clblack; // цвет окна инстала
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.Color := Color;
WizardForm.Font.Color := clWhite;
WizardForm.WelcomePage.Color := Color;
WizardForm.InnerPage.Color := Color;
WizardForm.LicenseMemo.Color := Color;
WizardForm.PasswordEdit.Color := Color;
WizardForm.InfoBeforeMemo.Color := Color;
WizardForm.UserInfoSerialEdit.Color := Color;
WizardForm.UserInfoOrgEdit. Color := Color;
WizardForm.UserInfoNameEdit.Color := Color;
WizardForm.SelectDirBitmapImage.BackColor := clNone;
WizardForm.SelectDirBitmapImage.ReplaceColor := clBtnFace;
WizardForm.DirEdit.Color := Color;
WizardForm.ComponentsList.Color := Color;
WizardForm.TypesCombo.Color := Color;
WizardForm.SelectGroupBitmapImage.BackColor := clNone;
WizardForm.SelectGroupBitmapImage.ReplaceColor := clBtnFace;
WizardForm.GroupEdit.Color := Color;
WizardForm.TasksList.Color := Color;
WizardForm.ReadyMemo.Color := Color;
WizardForm.InfoAfterMemo.Color := Color;
WizardForm.MainPanel.Color := Color;
WizardForm.FinishedPage.Color := Color;
WizardForm.Bevel.visible:=false;
WizardForm.Bevel1.visible:=false;
end;
кстати, в коде черного инсталла много лишнего. Вот этого будет достаточно:
const
Color = clblack; // цвет окна инстала
procedure InitializeWizard();
begin
WizardForm.Color := Color;
WizardForm.Font.Color := clWhite;
WizardForm.WelcomePage.Color := Color;
WizardForm.InnerPage.Color := Color;
WizardForm.LicenseMemo.Color := Color;
WizardForm.PasswordEdit.Color := Color;
WizardForm.InfoBeforeMemo.Color := Color;
WizardForm.UserInfoSerialEdit.Color := Color;
WizardForm.UserInfoOrgEdit. Color := Color;
WizardForm.UserInfoNameEdit.Color := Color;
WizardForm.SelectDirBitmapImage.BackColor := clNone;
WizardForm.SelectDirBitmapImage.ReplaceColor := clBtnFace;
WizardForm.DirEdit.Color := Color;
WizardForm.ComponentsList.Color := Color;
WizardForm.TypesCombo.Color := Color;
WizardForm.SelectGroupBitmapImage.BackColor := clNone;
WizardForm.SelectGroupBitmapImage.ReplaceColor := clBtnFace;
WizardForm.GroupEdit.Color := Color;
WizardForm.TasksList.Color := Color;
WizardForm.ReadyMemo.Color := Color;
WizardForm.InfoAfterMemo.Color := Color;
WizardForm.MainPanel.Color := Color;
WizardForm.FinishedPage.Color := Color;
end;
GRiD555x
04-10-2011, 10:06
ну да а вот тут с музыкой как делать так не прокатит(
[Code]
function sndPlaySound(lpszSoundName: string; uFlags: cardinal):integer;
external 'sndPlaySoundA@winmm.dll stdcall';
procedure InitializeWizard();
begin
ExtractTemporaryFile(ExpandConstant('sound.wav')); //Извлекаем звуковой файл во временную папку
sndPlaySound(ExpandConstant('{tmp}\sound.wav'), $0001 or $0008); //Проигрываем файл. Здесь указаны параметры для повторного проигрывания. Если мы хотим проиграть файл единожды, удаляем параметр 'or $0008'
end;»
No4noylis
04-10-2011, 10:14
GRiD555x, Как это не прокатит???
const
Color = clblack; // цвет окна инстала
function sndPlaySound(lpszSoundName: string; uFlags: cardinal):integer;
external 'sndPlaySoundA@winmm.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.Font.Color:=clWhite; // цвет текста
wizardForm.WelcomeLabel1.Font.Color:=clWhite; // цвет текста
WizardForm.FinishedHeadingLabel.Font.Color:=clWhite; // цвет текста
WizardForm.PageNameLabel.Font.Color:=clWhite; // цвет текста
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
WizardForm.Bevel.visible:=false;
WizardForm.Bevel1.visible:=false;
ExtractTemporaryFile(ExpandConstant('sound.wav')); //Извлекаем звуковой файл во временную папку
sndPlaySound(ExpandConstant('{tmp}\sound.wav'), $0001 or $0008); //Проигрываем файл. Здесь указаны параметры для повторного проигрывания. Если мы хотим проиграть файл единожды, удаляем параметр 'or $0008'
end;
отЪ, добавил тебе проигрывание музыки :)
Gnom_aka_Lexander
04-10-2011, 10:19
ну да а вот тут с музыкой как делать так не прокатит( »
Все просто - соединяя процедуры, ты все равно выполняеш их содержимое внутри одной общей. Дык, какая разница, как их объединять? ПРосто, если значально писать внутри одной процедуры, меньше шансов запутаться и наделать ошибок.
GRiD555x
04-10-2011, 10:27
Спасибо очень большое ребята респект вам,спасибо спасибо и ещё раз спасибо:)
GRiD555x
04-10-2011, 13:54
АА вот ещё один вопросик как убрать строчку в скрипте чтобы в конце установки токо было снизу написанно "Завершить" и не было запуска игры в инсталяторе?
R.i.m.s.k.y.
04-10-2011, 14:01
GRiD555x
[натирая хрустальный шар]
найди строчку с именем экзешника запускаемой игры и удали/закомментируй ее
получается за тебя сделали полностью скрипт а ты даже не удосужился просмотреть его? Блеск!
GRiD555x
04-10-2011, 14:11
какая именно строчка а то не то удалю вот скрипт
[Setup]
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
R.i.m.s.k.y.
04-10-2011, 14:20
это не весь скрипт
скажи заодно запускной файл, шар я уже убрал на подзарядку :)
GRiD555x
04-10-2011, 14:42
[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.
04-10-2011, 14:48
GRiD555x, порвал монитор, такие простыни надо под кат прятать
[Run]
// Filename: {app}\Driver.exe; Description: {cm:LaunchProgram,Driver San Francisco}; Flags: nowait postinstall skipifsilent
GRiD555x
04-10-2011, 14:51
получается эту сроку надо полностью удалить да?и Run тоже?»
R.i.m.s.k.y.
04-10-2011, 14:55
GRiD555x, я ее тебе закомментил ( символы // в начале строки*)
Можешь удалить секцию полностью тк в ней все равно одна строчка, можешь закомментить, как угодно.
Я сказал что сделать, я сказал где сделать, какие еще вопросы? Нет, я не знаю что будет с долларом, евро и Ливией.
-----
* так же символом комментария является ";" без кавык, но только не в секции Code. В секции Code комментарий "//"
сколько пикселей от верхнего края »
да, я и не заметил. спасибо
GRiD555x
04-10-2011, 14:58
хех ну спасибо просто я пока не сильно в этом шарю вот и перезадал вопрос:)»
Gnom_aka_Lexander
04-10-2011, 15:02
Я поражаюсь. И никто ничего не заметил? О_о...Код: »
Присмотритесь по внимательней - думаете это работает? Я имею в виду код целиком.
GRiD555x
04-10-2011, 15:05
Кстати,а почему скорость компилирании в Inno Setup всегда падает,хотя в начале она достигает до 2000и больше?
R.i.m.s.k.y.
04-10-2011, 15:05
GRiD555x, мы все учились понемногу чему-нибудь и как-нибудь.
Скрипт простой, прочитай его со справкой инно, в отличие от справки винды она толковая, даст ответы на простейшие вопросы - секции, порядок установки, флаги и прочие. Займет минут 30, не более, я гарантирую это :)
Не шпрехаешь по инглишу? в шапке переведенная справка, старовата, но для начала сгодится.
Заодно научись отвечать на форуме правильно - не помещай свой текст в цитаты.
Скорость падает - это нормально, жеский то медленная штуковина, если там еще и файлов много мелких - ваще труба
Лександер, я по заданному вопросу смотрел, но кажись с формами накосячено, вот с оформлением я не очень.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.