Loading...
Error
 

Скачать торрент Как сделать RePack?

Страницы:   Пред.  1, 2, 3 ... , 43, 44, 45  След.

 
Автор Сообщение

skitskit2010

post 27-Окт-10 20:28

Ц marcus14 писал(а):

Дайте пожалуйста ссылку на Precomp.
http://rghost.ru/2907260 держи
Вот мой скрипт http://rghost.ru/3054359
1. Надо ли что то в скрипте менять чтобы инсталлятор расаповывал архив типа 7zip => precomp=> srep => freearc ?
2. Где надо указывать архивы ?
3. В моём скрипте надо арив полодить рядом с инсталлятором или он паспакует его на жесткий диск ?
(на руборде мои вопросы как будто не замечают

~FROST~

post 19-Ноя-10 17:45 (спустя 22 дня)

Я создал инсталлятор,при запуске вот что пишет:pic
Как это исправить?

vv-matveev

post 19-Ноя-10 17:59 (спустя 13 минут)

очевидно нужен hands.dll и brain.dll :D

~FROST~

post 19-Ноя-10 20:00 (спустя 2 часа 1 минута)

vv-matveev
Остроумно.А если не можешь ничем помочь- незачем петросянить.

bummer7

post 19-Ноя-10 21:32 (спустя 1 час 32 минуты)

Ц vv-matveev писал(а):

очевидно нужен hands.dll и brain.dll :D
:lol: откуда такие берутся! :shock:

vv-matveev

post 19-Ноя-10 22:07 (спустя 34 минуты)

~FROST~, а как тебе помочь, если ты даже скрипт не предоставил?

~FROST~

post 19-Ноя-10 22:53 (спустя 45 минут)

код
[Setup]
SourceDir=.
OutputDir=G:\Инсталы
AppName=Harry Potter and The Deathly Hallows
AppVerName=Harry Potter and The Deathly Hallows
AppVersion=1.0
AppPublisher=Electronic Arts
AppCopyright=Electronic Arts
AppPublisherURL=*****
AppSupportURL=*****
AppUpdatesURL=*****
DefaultDirName={pf}\Program Files\Electronic Arts\Гарри Поттер и Дары Смерти(TM) - Часть первая\
DefaultGroupName=Harry Potter and The Deathly Hallows
AllowNoIcons=yes
OutputBaseFilename=setup
WizardImageFile=G:\hpp.bmp
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra64
InternalCompressLevel=ultra64
SolidCompression=true
DiskSpanning=yes
DiskSliceSize=1468006400
SlicesPerDisk=1
ShowComponentSizes=yes
AppID={{C9AAF970-4E7E-4C98-AD67-09C74379D345}

[LangOptions]
WelcomeFontName=Tahoma
WelcomeFontSize=11

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

[Types]
Name: full; Description: Полная установка
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: g0; Description: Harry Potter and The Deathly Hallows; Types: full custom; Flags: disablenouninstallwarning checkablealone fixed
Name: g0\c1; Description: Redistribatables; Types: full; Flags: dontinheritcheck
Name: g0\c2; Description: DirectX; Types: full; Flags: dontinheritcheck

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}

[Files]
Source: G:\background.bmp; DestDir: {tmp}; Flags: dontcopy
Source: isgsg.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: bass.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\01 - Obliviate.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\02 - Snape to Malfoy Manor.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\03 - Polyjuice Potion.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\04 - Sky Battle.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\05 - At The Burrow.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\06 - Harry and Ginny.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\07 - The Will.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\08 - Death Eaters.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\09 - Dobby.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\10 - Ministry of Magic.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\11 - Detonators.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\12 - The Locket.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\13 - Fireplaces Escape.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\14 - Ron Leaves.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\15 - The Exodus.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\16 - Godric's Hollow Graveyard.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\17 - Bathilda Bagshot.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\18 - Hermione's Parents.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\19 - Destroying the Locket.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\20 - Ron's Speech.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\21 - Lovegood.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\22 - The Deathly Hallows.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\23 - Captured and Tortured.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\24 - Rescuing Hermione.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\25 - Farewell to Dobby.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\26 - The Elder Wand.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: C:\Users\*****\Desktop\hp.reg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: G:\Electronic Arts\Гарри Поттер и Дары Смерти(TM) - Часть первая\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: G:\Инсталы\Redistributables\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g0\c1
Source: G:\Инсталы\DirectX\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g0\c2

[Icons]
Name: {group}\hp7.exe; Filename: {app}\pc\hp7.exe; WorkingDir: {app}\pc
Name: {userdesktop}\hp7.exe; Filename: {app}\pc\hp7.exe; WorkingDir: {app}\pc; Tasks: desktopicon
Name: {group}\{cm:UninstallProgram,Harry Potter and The Deathly Hallows}; Filename: {uninstallexe}

[Run]
Description: {cm:LaunchProgram, hp7.exe}; Filename: {app}\pc\hp7.exe; WorkingDir: {app}\pc; Flags: nowait postinstall skipifsilent unchecked
Filename: {win}\regedit.exe; Parameters: /s {tmp}\hp.reg; StatusMsg: Вносим изменения в реестр ...; Flags: waituntilterminated runasoriginaluser; Components:

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

[Code]
const
Indent=10;
dURL=2;

var
URLLabel,URLLabelShadow:TLabel;

function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external '[email protected] 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 ShowMP3Panel(hMainFrm:HWND;StartVolume:integer;DefMP3Dir,BASSDir,MLabel:PChar;IsShowMP3Info,IsBkgFrmVisible:boolean;ShowTimeMP3Info:integer;dBottom:integer);external 'ShowMP3Panel@files:isgsg.dll stdcall';
procedure KillMP3Panel;external 'KillMP3Panel@files:isgsg.dll stdcall';

procedure URLLabelClick(Sender: TObject);
var
ErrorCode:integer;
begin
ShellExec('open','http://torrents.ufanet.ru/forum/index.php','','',SW...NoWait,ErrorCode);
end;

procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top+dURL;
URLLabel.Left:=URLLabel.Left+dURL;
URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];
URLLabel.Font.Color:=clBlue;
URLLabelShadow.Visible:=False;
end;

procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top-dURL;
URLLabel.Left:=URLLabel.Left-dURL;
URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];
URLLabel.Font.Color:=clMaroon;
URLLabelShadow.Visible:=True;
end;

function InitializeSetup:boolean;
begin
ExtractTemporaryFile('hp.reg');
ExtractTemporaryFile('01 - Obliviate.mp3');
ExtractTemporaryFile('02 - Snape to Malfoy Manor.mp3');
ExtractTemporaryFile('03 - Polyjuice Potion.mp3');
ExtractTemporaryFile('04 - Sky Battle.mp3');
ExtractTemporaryFile('05 - At The Burrow.mp3');
ExtractTemporaryFile('06 - Harry and Ginny.mp3');
ExtractTemporaryFile('07 - The Will.mp3');
ExtractTemporaryFile('08 - Death Eaters.mp3');
ExtractTemporaryFile('09 - Dobby.mp3');
ExtractTemporaryFile('10 - Ministry of Magic.mp3');
ExtractTemporaryFile('11 - Detonators.mp3');
ExtractTemporaryFile('12 - The Locket.mp3');
ExtractTemporaryFile('13 - Fireplaces Escape.mp3');
ExtractTemporaryFile('14 - Ron Leaves.mp3');
ExtractTemporaryFile('15 - The Exodus.mp3');
ExtractTemporaryFile('16 - Godrics Hollow Graveyard.mp3');
ExtractTemporaryFile('17 - Bathilda Bagshot.mp3');
ExtractTemporaryFile('18 - Hermiones Parents.mp3');
ExtractTemporaryFile('19 - Destroying the Locket.mp3');
ExtractTemporaryFile('20 - Rons Speech.mp3');
ExtractTemporaryFile('21 - Lovegood.mp3');
ExtractTemporaryFile('22 - The Deathly Hallows.mp3');
ExtractTemporaryFile('23 - Captured and Tortured.mp3');
ExtractTemporaryFile('24 - Rescuing Hermione.mp3');
ExtractTemporaryFile('25 - Farewell to Dobby.mp3');
ExtractTemporaryFile('26 - The Elder Wand.mp3');
ExtractTemporaryFile('bass.dll');
Result:=True;
end;

procedure InitializeWizard;
begin
URLLabelShadow:=TLabel.Create(WizardForm);
with URLLabelShadow do begin
Top:=ScaleY(331);
Left:=ScaleX(25);
Caption:='http://torrents.ufanet.ru/forum/index.php';
AutoSize:=True;
Parent:=WizardForm;
Transparent:=True;
Font.Color:=$969696;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
end;
URLLabel:=TLabel.Create(WizardForm);
with URLLabel do begin
Top:=ScaleY(331)-dURL;
Left:=ScaleX(25)-dURL;
Caption:='****';
AutoSize:=True;
Parent:=WizardForm;
Cursor:=crHand;
Transparent:=True;
Font.Color:=clMaroon;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
BringToFront;
OnClick:=@URLLabelClick;
OnMouseDown:=@URLLabelMouseDown;
OnMouseUp:=@URLLabelMouseUp;
end;
ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'www.torrents.ufanet.ru',True,True,7000,Indent);
ssInitialize(GetWindowLong(MainForm.Handle,-8),0,False,2,$FF000000);
ExtractTemporaryFile('background.bmp');
ssSetBkgImage(ExpandConstant('{tmp}')+'\background.bmp');
WizardForm.TypesCombo.ItemIndex:=0;
end;

procedure DeinitializeSetup;
begin
KillMP3Panel;
ssDeInitialize;
end;

vv-matveev

post 19-Ноя-10 23:47 (спустя 53 минуты)

~FROST~, скорее всего одна из картинок bmp является переименованными jpg или еще чем-нибудь?
попробуй открой их в пайнте и сохрани в 24-битный bmp

~FROST~

post 20-Ноя-10 00:49 (спустя 1 час 1 минута)

vv-matveev
Это вроде исправил,сейчас при запуске пишет: рег файл не найден.Сейчас скомпилирую,если будут ошибки- скину скрипт и ошибку)

добавлено спустя 47 минут:
код
[Setup]
SourceDir=.
OutputDir=G:\Инсталы
AppName=Harry Potter and The Deathly Hallows
AppVerName=Harry Potter and The Deathly Hallows
AppVersion=1.0
AppPublisher=Electronic Arts
AppCopyright=Electronic Arts
AppPublisherURL=***
AppSupportURL=***
AppUpdatesURL=***
DefaultDirName={pf}\Program Files\Electronic Arts\Гарри Поттер и Дары Смерти(TM) - Часть первая\
DefaultGroupName=Harry Potter and The Deathly Hallows
AllowNoIcons=yes
OutputBaseFilename=setup
WizardImageFile=G:\hpp.bmp
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra64
InternalCompressLevel=ultra64
SolidCompression=true
DiskSpanning=yes
DiskSliceSize=1468006400
SlicesPerDisk=1
ShowComponentSizes=yes
AppID={{C9AAF970-4E7E-4C98-AD67-09C74379D345}

[Messages]
DiskSpaceMBLabel=Требуется как минимум 5Гб свободного дискового пространства

[LangOptions]
WelcomeFontName=Cursive
WelcomeFontSize=14

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

[Types]
Name: full; Description: Полная установка
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: g0; Description: Harry Potter and The Deathly Hallows; Types: full custom; Flags: disablenouninstallwarning checkablealone fixed
Name: g0\c1; Description: Redistribatables; Types: full; Flags: dontinheritcheck
Name: g0\c2; Description: DirectX; Types: full; Flags: dontinheritcheck

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}

[Files]
Source: G:\background.bmp; DestDir: {tmp}; Flags: dontcopy
Source: isgsg.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: bass.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Alexandre Desplat - 2010 - Harry Potter And The Deathly Hallows Part1 - 320\02 - Snape to Malfoy Manor.mp3; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: G:\Electronic Arts\Гарри Поттер и Дары Смерти(TM) - Часть первая\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: G:\Инсталы\Redistributables\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g0\c1
Source: G:\Инсталы\DirectX\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g0\c2

[Icons]
Name: {group}\hp7.exe; Filename: {app}\pc\hp7.exe; WorkingDir: {app}\pc
Name: {userdesktop}\hp7.exe; Filename: {app}\pc\hp7.exe; WorkingDir: {app}\pc; Tasks: desktopicon
Name: {group}\{cm:UninstallProgram,Harry Potter and The Deathly Hallows}; Filename: {uninstallexe}

[Run]
Description: {cm:LaunchProgram, hp7.exe}; Filename: {app}\pc\hp7.exe; WorkingDir: {app}\pc; Flags: nowait postinstall skipifsilent unchecked

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

[Code]
const
Indent=10;
dURL=2;

var
URLLabel,URLLabelShadow:TLabel;

function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external '[email protected] 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 ShowMP3Panel(hMainFrm:HWND;StartVolume:integer;DefMP3Dir,BASSDir,MLabel:PChar;IsShowMP3Info,IsBkgFrmVisible:boolean;ShowTimeMP3Info:integer;dBottom:integer);external 'ShowMP3Panel@files:isgsg.dll stdcall';
procedure KillMP3Panel;external 'KillMP3Panel@files:isgsg.dll stdcall';

procedure URLLabelClick(Sender: TObject);
var
ErrorCode:integer;
begin
ShellExec('open','http://torrents.ufanet.ru/forum/index.php','','',SW...NoWait,ErrorCode);
end;

procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top+dURL;
URLLabel.Left:=URLLabel.Left+dURL;
URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];
URLLabel.Font.Color:=clBlue;
URLLabelShadow.Visible:=False;
end;

procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
URLLabel.Top:=URLLabel.Top-dURL;
URLLabel.Left:=URLLabel.Left-dURL;
URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];
URLLabel.Font.Color:=clMaroon;
URLLabelShadow.Visible:=True;
end;

function InitializeSetup:boolean;
begin
ExtractTemporaryFile('hp.reg');
ExtractTemporaryFile('02 - Snape to Malfoy Manor.mp3');
ExtractTemporaryFile('bass.dll');
Result:=True;
end;

procedure InitializeWizard;
begin
URLLabelShadow:=TLabel.Create(WizardForm);
with URLLabelShadow do begin
Top:=ScaleY(331);
Left:=ScaleX(25);
Caption:='http://torrents.ufanet.ru/forum/index.php';
AutoSize:=True;
Parent:=WizardForm;
Transparent:=True;
Font.Color:=$969696;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
end;
URLLabel:=TLabel.Create(WizardForm);
with URLLabel do begin
Top:=ScaleY(331)-dURL;
Left:=ScaleX(25)-dURL;
Caption:='http://torrents.ufanet.ru/forum/index.php';
AutoSize:=True;
Parent:=WizardForm;
Cursor:=crHand;
Transparent:=True;
Font.Color:=clMaroon;
Font.Size:=9;
Font.Style:=Font.Style+[fsBold];
BringToFront;
OnClick:=@URLLabelClick;
OnMouseDown:=@URLLabelMouseDown;
OnMouseUp:=@URLLabelMouseUp;
end;
ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'www.torrents.ufanet.ru',True,True,7000,Indent);
ssInitialize(GetWindowLong(MainForm.Handle,-8),0,False,2,$FF000000);
ExtractTemporaryFile('background.bmp');
ssSetBkgImage(ExpandConstant('{tmp}')+'\background.bmp');
WizardForm.TypesCombo.ItemIndex:=0;
end;

procedure DeinitializeSetup;
begin
KillMP3Panel;
ssDeInitialize;
end;
type
PDisplay_Device = record
cb: DWord;
DeviceName: array [0..31] of char;
DeviceString: array [0..127] of char;
StateFlags: DWord;
DeviceID, DeviceKey: array [0..127] of char;
end;

TMixerCaps = record
vPid, vDriverVersion: DWord;
sName: array [0..31] of char;
Support, cDestinations: DWord;
end;

// Проверка версии Windows
#if Pos("4.", GetFileVersion(AddBackslash(GetEnv("windir")) + "Explorer.exe")) == 1
{Win9x}
TMemoryStatusEx = record
dwLength, dwMemoryLoad: DWord;
LoTotalPhys, LoAvailPhys, LoTotalPageFile, LoAvailPageFile,
LoTotalVirtual, LoAvailVirtual, LoAvailExtendedVirtual, HiTotalPhys,
HiAvailPhys, HiTotalPageFile, HiAvailPageFile, HiTotalVirtual, HiAvailVirtual,
HiAvailExtendedVirtual: Integer;
end;
function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx): Boolean;
external '[email protected] stdcall';
#else
{WinNT}
TMemoryStatusEx = record
dwLength, dwMemoryLoad: DWord;
LoTotalPhys, HiTotalPhys, LoAvailPhys, HiAvailPhys,
LoTotalPageFile, HiTotalPageFile, LoAvailPageFile, HiAvailPageFile,
LoTotalVirtual, HiTotalVirtual, LoAvailVirtual, HiAvailVirtual, LoAvailExtendedVirtual,
HiAvailExtendedVirtual: Integer;
end;
function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx): Boolean;
external '[email protected] stdcall';
#endif

const
DISPLAY_DEVICE_PRIMARY_DEVICE = 4;
oneMB = 1024*1024;
NeedMHz = 5200;
NeedVideoRAM = 256;
NeedSoundCard = 'совместимое с DirectX';
NeedMB = 1500;
NeedPageFile = 1024;
var
InfoPage: TWizardPage;
TopText, BottomText: TNewStaticText;
ChangeText: Boolean;
SystemPanel, ProcessorPanel, VideoPanel,
AudioPanel, RAMPanel, PageFilePanel: TMemo;
SystemVersionPanel, ProcessorMHzPanel, VideoRAMPanel,
AudioNamePanel, RAMTotalPanel, PageFileTotalPanel: TMemo;
lpCaps: TMixerCaps;
Version: TWindowsVersion;
MemoryEx: TMemoryStatusEx;
n, errCode: Integer;
Keys: TArrayOfString;
DeviceValue: Cardinal;
lpDisplayDevice: PDisplay_Device;

function GetSystemMetrics(nIndex: Integer): Integer;
external '[email protected] stdcall';
function GetDeviceCaps(hDC, nIndex: Integer): Integer;
external 'GetDeviceCaps@GDI32 stdcall';
function CreateDC(lpDriverName, lpDeviceName, lpOutput: String; lpInitData: Integer): Integer;
external 'CreateDCA@GDI32 stdcall';
function EnumDisplayDevices(lpDevice, iDevNum: DWord; var lpDisplayDevice: PDisplay_Device; dwFlags: DWord): Boolean;
external '[email protected] stdcall';
function mixerGetDevCaps(uDeviceID: LongInt; var lpCaps: TMixerCaps; uSize: LongInt): LongInt;
external '[email protected] stdcall';
function mixerGetNumDevs: Integer;
external '[email protected] stdcall';

// Дополнить число до кратного Multiple
function ToMultiple(Bytes, Multiple: Integer): Integer;
begin
if Abs(Bytes/Multiple) > Bytes/Multiple then
Result := (Bytes/Multiple + 1)*Multiple
else
Result := Bytes
end;

// Перевод числа в значение Бт/Кб/Мб/Гб/Тб (до 3х знаков после запятой)
function ByteOrTB(Bytes: Extended; noMB: Boolean): String;
begin
if not noMB then
Result := FloatToStr(Int(Bytes)) + ' Мб'
else
if Bytes < 1024 then
Result := FloatToStr(Int(Bytes)) + ' Бт'
else
if Bytes/1024 < 1024 then
Result := FloatToStr(round((Bytes/1024)*10)/10) + ' Кб'
else
if Bytes/oneMB < 1024 then
Result := FloatToStr(round(Bytes/oneMB*100)/100) + ' Мб'
else
if Bytes/oneMB/1000 < 1024 then
Result := FloatToStr(round(Bytes/oneMB/1024*1000)/1000) + ' Гб'
else
Result := FloatToStr(round(Bytes/oneMB/oneMB*1000)/1000) + ' Тб'
StringChange(Result, ',', '.')
end;

// Удаление начальных, конечных и повторных пробелов
function DelSp(String: String): String;
begin
while (Pos(' ', String) > 0) do Delete(String, Pos(' ', String), 1)
Result := Trim(String)
end;

function Size64(Hi, Lo: Integer): Extended;
begin
Result := Lo
if Lo < 0 then
Result := Result + $7FFFFFFF + $7FFFFFFF + 2
for Hi := Hi-1 downto 0 do Result := Result + $7FFFFFFF + $7FFFFFFF + 2
end;
function CheckCPU(NeedMHz: Integer): Boolean;
var
String: String;
begin
String := 'Hardware\Description\System\CentralProcessor'; RegGetSubkeyNames(HKLM, String, Keys) // Количество ядер
for n := 0 to GetArrayLength(Keys)-1 do
RegQueryStringValue(HKLM, String + '\' + Keys[n], 'ProcessorNameString', Keys[n])
if not RegQueryDWordValue(HKLM, String + '\0', '~MHz', DeviceValue) or (DeviceValue < NeedMHz) then
Exit
else
Result := True
end;
function CheckMemorySize(NeedRAM: Integer): Boolean;
begin
MemoryEx.dwLength := SizeOf(MemoryEx)
if not GlobalMemoryStatusEx(MemoryEx) then
MsgBox('Ошибка функции:' + #13 + 'GlobalMemoryStatusEx', mbError, mb_Ok)
else
if (ToMultiple(trunc(Size64(MemoryEx.HiTotalPhys, MemoryEx.LoTotalPhys)/oneMB), 16) < NeedRAM) then
Exit
else
Result := True
end;
procedure CreateCheckForm();
begin

TopText := TNewStaticText.Create(InfoPage)
with TopText do
begin
Parent := InfoPage.Surface
Left := 0
AutoSize := True
end

BottomText := TNewStaticText.Create(InfoPage)
with BottomText do
begin
Parent := InfoPage.Surface
Caption := 'Когда Вы будете готовы продолжить установку, нажмите «Далее».'
Font.Color := clBlack
Left := 0
Top := 200
AutoSize := True
end

SystemPanel := TMemo.Create(InfoPage)
with SystemPanel do
begin
Text := 'Система'
Alignment := taCenter
Parent := InfoPage.Surface
Left := ScaleX(0)
Top := ScaleY(33)
Width := ScaleX(100)
Height := ScaleY(22)
ReadOnly := True
Color := $EEEEEE
end

SystemVersionPanel := TMemo.Create(InfoPage)
with SystemVersionPanel do
begin
Alignment := taLeftJustify
Parent := InfoPage.Surface
Left := ScaleX(104)
Top := SystemPanel.Top
Width := ScaleX(310)
Height := ScaleY(22)
ReadOnly := True
end

ProcessorPanel := TMemo.Create(InfoPage)
with ProcessorPanel do
begin
Text := 'Процессор'
Alignment := taCenter
Parent := InfoPage.Surface
Left := ScaleX(0)
Top := SystemPanel.Top + 27
Width := ScaleX(100)
Height := ScaleY(22)
ReadOnly := True
Color := $EEEEEE
end

ProcessorMHzPanel := TMemo.Create(InfoPage)
with ProcessorMHzPanel do
begin
Alignment := taLeftJustify
Parent := InfoPage.Surface
Left := ScaleX(104)
Top := ProcessorPanel.Top
Width := ScaleX(310)
Height := ScaleY(22)
ReadOnly := True
end

VideoPanel := TMemo.Create(InfoPage)
with VideoPanel do
begin
Text := 'Видеоадаптер'
Alignment := taCenter
Parent := InfoPage.Surface
Left := ScaleX(0)
Top := ProcessorPanel.Top + 27
Width := ScaleX(100)
Height := ScaleY(22)
ReadOnly := True
Color := $EEEEEE
end

VideoRAMPanel := TMemo.Create(InfoPage)
with VideoRAMPanel do
begin
Alignment := taLeftJustify
Parent := InfoPage.Surface
Left := ScaleX(104)
Top := VideoPanel.Top
Width := ScaleX(310)
Height := ScaleY(22)
ReadOnly := True
end

AudioPanel := TMemo.Create(InfoPage)
with AudioPanel do
begin
Text := 'Звуковая карта'
Alignment := taCenter
Parent := InfoPage.Surface
Left := ScaleX(0)
Top := VideoPanel.Top + 27
Width := ScaleX(100)
Height := ScaleY(22)
ReadOnly := True
Color := $EEEEEE
end

AudioNamePanel := TMemo.Create(InfoPage)
with AudioNamePanel do
begin
Alignment := taLeftJustify
Parent := InfoPage.Surface
Left := ScaleX(104)
Top := AudioPanel.Top
Width := ScaleX(310)
Height := ScaleY(22)
ReadOnly := True
end

RAMPanel := TMemo.Create(InfoPage)
with RAMPanel do
begin
Text := 'Объём памяти'
Alignment := taCenter
Parent := InfoPage.Surface
Left := ScaleX(0)
Top := AudioPanel.Top + 27
Width := ScaleX(100)
Height := ScaleY(22)
ReadOnly := True
Color := $EEEEEE
end

RAMTotalPanel := TMemo.Create(InfoPage)
with RAMTotalPanel do
begin
Alignment := taLeftJustify
Parent := InfoPage.Surface
Left := ScaleX(104)
Top := RAMPanel.Top
Width := ScaleX(310)
Height := ScaleY(22)
ReadOnly := True
end

PageFilePanel := TMemo.Create(InfoPage)
with PageFilePanel do
begin
Text := 'Файл подкачки'
Alignment := taCenter
Parent := InfoPage.Surface
Left := ScaleX(0)
Top := RAMPanel.Top + 27
Width := ScaleX(100)
Height := ScaleY(22)
ReadOnly := True
Color := $EEEEEE
end;

PageFileTotalPanel := TMemo.Create(InfoPage)
with PageFileTotalPanel do
begin
Alignment := taLeftJustify
Parent := InfoPage.Surface
Left := ScaleX(104)
Top := PageFilePanel.Top
Width := ScaleX(310)
Height := ScaleY(22)
ReadOnly := True
end

end;

procedure UpdateInfo();
var
DeviceName, DeviceKey: String;
begin
ChangeText := False

GetWindowsVersionEx(Version)
// Операционная система:
SystemVersionPanel.Color := $CCFFCC
DeviceKey := 'Software\Microsoft\Windows NT\CurrentVersion'
if not UsingWinNT then StringChange(DeviceKey, 'Windows NT', 'Windows')
RegQueryStringValue(HKLM, DeviceKey, 'ProductName', DeviceName)
if RegQueryStringValue(HKLM, DeviceKey, 'CSDVersion', DeviceKey) then
DeviceName := DeviceName + ' ' + DeviceKey
StringChange(DeviceName, 'Microsoft ', '')
SystemVersionPanel.Text := ' ' + DeviceName + ' сборка ' + IntToStr(Version.Major) + '.' + IntToStr(Version.Minor) +
'.' + IntToStr(Version.Build)
if (Pos('2000 Service Pack 4', SystemVersionPanel.Text) = 0) and // Windows 2000 SP4
(Pos('XP Service Pack 2', SystemVersionPanel.Text) = 0) and // Windows XP SP2
(Pos('Vista', SystemVersionPanel.Text) = 0) then // Windows Vista (c любым SP или без него)
begin
SystemVersionPanel.Color := $CCCCFF
ChangeText := True
end
// Процессор:
ProcessorMHzPanel.Color := $CCFFCC
if not CheckCPU(NeedMHz) then
begin
ProcessorMHzPanel.Color := $CCCCFF
ChangeText := True
end
ProcessorMHzPanel.Text := ' ' + DelSp(Keys[0]) + ' @' + IntToStr(DeviceValue) + ' MHz'
if GetArrayLength(Keys) > 1 then
ProcessorPanel.Text := 'Процессоры' // + ' (' + IntToStr(GetArrayLength(Keys)) + ')'

// Видеокарта:
VideoRAMPanel.Color := $CCFFCC
lpDisplayDevice.cb := SizeOf(lpDisplayDevice)
DeviceKey := ''
n := 0
while not (EnumDisplayDevices(0, n, lpDisplayDevice, 0) and
(lpDisplayDevice.StateFlags and DISPLAY_DEVICE_PRIMARY_DEVICE > 0)) and (n < 127) do n := n + 1
for n := 0 to 127 do DeviceKey := DeviceKey + lpDisplayDevice.DeviceKey[n]
Delete(DeviceKey, Pos(Chr(0), DeviceKey), 127) // Ключ драйвера получаем из API
StringChange(DeviceKey, '\Registry\Machine\', '')
errCode := 1
DeviceValue := 0
if RegQueryBinaryValue(HKLM, DeviceKey, 'HardwareInformation.MemorySize', DeviceName) then
for n := 1 to Length(DeviceName) do
begin
DeviceValue := DeviceValue + Ord(DeviceName[n])*errCode
errCode := errCode*$100
end
else
if RegQueryDWordValue(HKLM, DeviceKey, 'HardwareInformation.MemorySize', DeviceValue) then
else
RegQueryDWordValue(HKLM, DeviceKey + '\Info', 'VideoMemory', DeviceValue)
DeviceName := ''
for n := 0 to 127 do DeviceName := DeviceName + lpDisplayDevice.DeviceString[n]
Delete(DeviceName, Pos(Chr(0), DeviceName), 127)

if DeviceName <> '' then
if DeviceValue > 0 then
VideoRAMPanel.Text := ' ' + DelSp(DeviceName) + ', '+ ByteOrTB(DeviceValue/oneMB, False)
else
VideoRAMPanel.Text := ' ' + DelSp(DeviceName) + ' (Standard), '+ ByteOrTB(DeviceValue/oneMB, False)
else
begin
VideoRAMPanel.Text := ' Драйвер устройства не обнаружен'
VideoRAMPanel.Color := $CCCCFF
ChangeText := True
end
if (DeviceValue/oneMB < NeedVideoRAM) then
begin
VideoRAMPanel.Color := $CCCCFF
ChangeText := True
end
VideoRAMPanel.Text := VideoRAMPanel.Text + ', ' + IntToStr(GetSystemMetrics(0)) + 'x' +
IntToStr(GetSystemMetrics(1)) + ' (' + IntToStr(GetDeviceCaps(CreateDC('DISPLAY','','',0),14) *
GetDeviceCaps(CreateDC('DISPLAY','','',0),12)) + ' bit)'

// Звуковая карта:
AudioNamePanel.Color := $CCFFCC
// for errCode := 0 to 1 do // Вывод основного звукового устройства
for errCode := 0 to mixerGetNumDevs do
begin
mixerGetDevCaps(errCode-1, lpCaps, SizeOf(lpCaps))
DeviceName := ' '
for n := 0 to 31 do DeviceName := DeviceName + lpCaps.sName[n]
Delete(DeviceName, Pos(Chr(0), DeviceName), 31)
Delete(DeviceName, Pos(' [', DeviceName), 31)
StringChange(DeviceName, 'SB ', 'Creative ')
Delete(DeviceName, Pos(' Audio', DeviceName), 31)
SetArrayLength(Keys, errCode)
if errCode > 0 then Keys[errCode-1] := DeviceName
end

if GetArrayLength(Keys) > 1 then
begin
AudioPanel.Text := 'Звуковые карты'
// AudioPanel.Text := 'Звуковые карты (' + IntToStr(GetArrayLength(Keys)) +')'
AudioNamePanel.Text := ''
for n := 1 to GetArrayLength(Keys) do
AudioNamePanel.Text := AudioNamePanel.Text + Keys[n-1] // + '(' + IntToStr(n) + ')'
end
else
if GetArrayLength(Keys) = 0 then
begin
AudioNamePanel.Text := ' Драйвер устройства не обнаружен'
AudioNamePanel.Color := $CCCCFF
ChangeText := True
end
else
AudioNamePanel.Text := Keys[0]
if Pos(NeedSoundCard, AudioNamePanel.Text) = 0 then
AudioNamePanel.Text := AudioNamePanel.Text + ' (рекомендуется ' + NeedSoundCard + ')'

// Объём памяти:
RAMTotalPanel.Color := $CCFFCC
if not CheckMemorySize(NeedMB) then
begin
RAMTotalPanel.Color := $CCCCFF
ChangeText := True
end
RAMTotalPanel.Text := ' ' + ByteOrTB(ToMultiple(trunc(Size64(MemoryEx.HiTotalPhys, MemoryEx.LoTotalPhys)/oneMB), 16), False) + ' всего, ' +
ByteOrTB(ToMultiple(trunc(Size64(MemoryEx.HiTotalPhys, MemoryEx.LoTotalPhys)/oneMB), 16) -
Size64(MemoryEx.HiAvailPhys, MemoryEx.LoAvailPhys)/oneMB, False) + ' используется, ' +
ByteOrTB(Size64(MemoryEx.HiAvailPhys, MemoryEx.LoAvailPhys)/oneMB, False) + ' свободно'
// Виртуальная память:
PageFileTotalPanel.Color := $CCFFCC
PageFileTotalPanel.Text := ' ' + ByteOrTB(Size64(MemoryEx.HiTotalPageFile, MemoryEx.LoTotalPageFile)/oneMB, False) + ' всего, ' +
ByteOrTB((Size64(MemoryEx.HiTotalPageFile, MemoryEx.LoTotalPageFile) -
Size64(MemoryEx.HiAvailPageFile, MemoryEx.LoAvailPageFile))/oneMB, False) + ' занято системным кэшем'
if Size64(MemoryEx.HiTotalPageFile, MemoryEx.LoTotalPageFile)/oneMB < NeedPageFile then
begin
PageFileTotalPanel.Color := $CCCCFF
ChangeText := True
end
if ChangeText = True then
begin
TopText.Top := 0
TopText.Caption := 'Не все компоненты удовлетворяют минимальным требованиям игры.' #13
'Пожалуйста, проверьте позиции, выделенные красным цветом.'
TopText.Font.Color := clRed
// WizardForm.NextButton.Enabled := False
end
else
begin
TopText.Caption := 'Все компоненты соответствуют минимальным требованиям игры.'
TopText.Font.Color := clGreen
TopText.Top := 8
// WizardForm.NextButton.Enabled := True
end
end;

procedure InitializeWizard1();
begin
InfoPage := CreateCustomPage(wpLicense, 'Аппаратное и программное обеспечение',
'Программа установки обнаружила следующие наобходимые компоненты.')
CreateCheckForm() // Создание объектов TMemo, в которых будет выводится информация о системе
UpdateInfo() // Обновление информации о системе
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = InfoPage.ID then UpdateInfo() // Обновление информации о системе
end;
[Registry]
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: DisplayName; ValueData: Гарри Поттер и Дары Смерти™ - Часть первая ; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: CD Drive; ValueData: I:\ ; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: ProductName; ValueData: Гарри Поттер и Дары Смерти™ - Часть первая
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: Folder; ValueData: C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Electronic Arts\Гарри Поттер и Дары Смерти(TM) - Часть первая\ ; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: Install Dir; ValueData: {app}\ ; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: Installed From; ValueData: I:\ ; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: Locale; ValueData: ru ; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: Language; ValueData: Russian ; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: Product GUID; ValueData: {{C9AAF970-4E7E-4C98-AD67-09C74379D345}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: Suppression Exe; ValueData: ; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1; ValueType: string; ValueName: Registration; ValueData: Software\Electronic Arts\Electronic Arts\Harry Potter and the Deathly Hallows Part 1\ergc; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1\1.0; ValueType: string; ValueName: DisplayName; ValueData: Harry Potter and the Deathly Hallows Part 1; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1\1.0; ValueType: dword; ValueName: Language; ValueData: $00000010; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1\1.0; ValueType: string; ValueName: LanguageName; ValueData: Russian; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Electronic Arts\Harry Potter and the Deathly Hallows Part 1\1.0; ValueType: string; ValueName: ProgramGroup; ValueData: C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Electronic Arts\; Flags: uninsdeletekey
вот ошибка:pic

vv-matveev

post 20-Ноя-10 01:04 (спустя 15 минут)

у тебя этот файл не описан в секции [FILES], добавь его туда:
Source: <путь к файлу>\hp.reg; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

~FROST~

post 20-Ноя-10 08:21 (спустя 7 часов)

pic
после того как нажимаешь ок все нормально,но эта ошибка выскакивает в каждом окне,а так все нормально работает.Как ее убрать?
И как сделать инсталлятор не на весь экран, а нормально?:)
И проверка системныъ требований что-то не работает.

Azamat21

post 03-Дек-10 11:15 (спустя 13 дней)

пацаны а как вставить видео перед началом установки типо сплэш заставки?

~FROST~

post 08-Дек-10 19:43 (спустя 5 дней)

Я сделал архив.рар потом сделал архив.rar.srep как теперь это в скрипт записать этот?
Скрытый текст
//if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
;//if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data2.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data.srp'), ExpandConstant('{app}\Data.pcf'), '', true, CallBack ) then break;
//if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\Data.pcf'), ExpandConstant('{app}\Data.7z'), true, CallBack ) then break;
//if not IS7ZipExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data.7z'), ExpandConstant('{app}'), true, CallBack, '' ) then break;
//if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data1.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
// if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 2 и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW2_Disk2.arc' ) then break;
// if not ISArcExtract ( 1, OveralPct, 0, ExpandConstant('{src}\rustext.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
// if not ISArcExtract ( 2, OveralPct, 0, ExpandConstant('{src}\engtext.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
// if not ISArcExtract ( 3, OveralPct, 0, ExpandConstant('{src}\rusvoice.arc'),ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
// if not ISArcExtract ( 4, OveralPct, 0, ExpandConstant('{src}\engvoice.arc'),ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
MyError:=false;

tukash

post 14-Дек-10 15:37 (спустя 5 дней)

oh my god...

Артём Фрол

post 15-Дек-10 23:27 (спустя 1 день 7 часов)

Подскажите, пожалуйста, (если можно, дайте фрагмент скрипта) описывающий схему:
1. все файлы в архиве .rar без сжатия.
2. precomp
3. srep
4. freearc
Заранее спасибо.

noxxxxxx

post 21-Дек-10 18:08 (спустя 5 дней)

интересует добавление файлов в уже готовый архив bin, какой прогой это делается ?

dvd4el

post 27-Мар-11 17:50 (спустя 3 месяца 5 дней)

Ц noxxxxxx писал(а):

интересует добавление файлов в уже готовый архив bin, какой прогой это делается ?
Фриарком.

Данич_TM

post 24-Май-11 18:43 (спустя 1 месяц 28 дней)

Знающие люди, помогите.
Где можно прочитать FAQ ( Что бы в FAQ'e уже сразу были нужные программы по которым был создан данный мануал)

Lubinetsm

post 27-Июн-11 11:26 (спустя 1 месяц 2 дня)

Shepards
Не тебе об этом говорить)
Твои репаки на 100% работают!

Trotil

post 29-Авг-11 16:44 (спустя 2 месяца 2 дня)

а как добавить больше, чем один .exe файл?

Текущее время: 29-Мар 11:49

Часовой пояс: GMT + 3



Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы не можете скачивать файлы