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

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

Цитата serhio:

насколько я знаю, то сжать какой либо фаил »

каким архиватором? где лежат файлы и сам архиватор? нельзя ли этот файл просмотреть и содержимое сюда положить?

serhio · Отправлено: **19:01, 20-06-2011** | #**1992**

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

каким архиватором? где лежат файлы и сам архиватор? нельзя ли этот файл просмотреть и содержимое сюда положить? »

FreeArc архив. Файл(ы) кладутся в папку rep. Rep типо srep'а, вот только что в батнике прописывать незнаю.

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

freearc я тоже не знаю

leshcat · Отправлено: **19:26, 20-06-2011** | #**1994**

Помогите пожалуйста объединить код.

Первая часть из гейм скриптора.

Код:

[Setup]
SourceDir=.
OutputDir=Setup
AppName=FEAR2
AppVerName=FEAR2
AppVersion=FEAR2
DefaultDirName={pf}\FEAR2
DefaultGroupName=FEAR2
AllowNoIcons=yes
OutputBaseFilename=setup
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/normal
DiskSpanning=yes
DiskSliceSize=2100000000
SlicesPerDisk=1

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

[Files]
Source: "C:\Users\admin\Desktop\Project2\parts\Slides\slide1.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:\Users\admin\Desktop\Project2\parts\Slides\slide2.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:\Users\admin\Desktop\Project2\parts\Slides\slide3.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:\Users\admin\Desktop\Project2\parts\Branding_map.jpg"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: "C:\Games\FEAR2\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Icons]
Name: "{group}\{cm:UninstallProgram,FEAR2}"; Filename: "{uninstallexe}"

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

[_Code]
const
  Indent=25;

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';
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';

procedure InitializeWizard;
begin
  ExtractTemporaryFile('FEAR.jpg');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\FEAR.jpg',1000,3000,1000,0,255,False,$FFFFFF,10);
  ssInitialize(GetWindowLong(MainForm.Handle,-8),10,False,1,$FF000000);
  ExtractTemporaryFile('FEAR.jpg');
  ssSetBkgImage(ExpandConstant('{tmp}')+'\FEAR.jpg');
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep=ssInstall then begin
    ExtractTemporaryFile('slide1.jpg');
    ssAddImage(ExpandConstant('{tmp}')+'\slide1.jpg');
    ExtractTemporaryFile('slide2.jpg');
    ssAddImage(ExpandConstant('{tmp}')+'\slide2.jpg');
    ExtractTemporaryFile('slide3.jpg');
    ssAddImage(ExpandConstant('{tmp}')+'\slide3.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;

Вторая часть взята из архива скриптов.

Отображает проценты и байты прогрессбара:

Так вот, было бы здорово получить у гейм прогрессбара % и время.

Dark_Delphin · Конфигурация компьютера

Всем добрый день!
Я вот разделил игру на два диска:

Код:

DiskSpanning=true
SlicesPerDisk=2
DiskSliceSize=2100000000

И когда я запускаю Setup.exe , то сразу же требует второй диск.
Как это исправить?

Gnom_aka_Lexander · Отправлено: **21:10, 20-06-2011** | #**1996**

ntrx, SlicesPerDisk - количество частей на диск, а не количество дисков. Инно не может разбить на какоето количество дисков, потому, что только господь бог ведает, какой объем получится у тебя после компиляции. что еще ты сделал, кроме добавления строчек? как записал на диск получившиеся бин-файлы?

insombia · Отправлено: **22:11, 20-06-2011** | #**1997**

leshcat смотри это делать легко я сам недавно узнал вобщем

Gnom_aka_Lexander · Отправлено: **00:30, 21-06-2011** | #**1999**

Neutron, собственно, даже этот список не обязателен, просто любую процедуру(абсолютно любую) можно неоднократно дублировать, главное давать им разные названия и под самой нижней собрать их все в одной с оригинальным названием, каковая и отработает, учтя все остальные, которые будт в ней указаны. функции дублировать нельзя.

nik1967 · Конфигурация компьютера

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

ведь в шапке даже учебник переведенный лежит! »

Эээ... Блин, даже в 4 глаза не вижу

Тыкни мне, пожалуйста!