[GRiD555x]

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

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

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

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

[GRiD555x]

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

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

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

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

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

[GRiD555x]

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

Вот так правельно?

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

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

[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]

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

Да у меня такая!!!

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