vint56
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
OutputBaseFilename=setup
OutputDir=.
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Files]
Source: SimPack.exe; DestDir: {tmp}
Source: GcfFiles.dat; DestDir: {tmp}
[Code]
procedure UnpackSomething;
var
ResultCode: Integer;
from, tod: string;
begin
from := ExpandConstant('{src}\Call of Duty- Black Ops_disk1.sim');
tod := ExpandConstant('{app}');
Exec(tod + '\SimPack.exe', 'x ' + from + ' ' + tod + ' -g42700 -kD9AD91A8DB3258C4C8210D505DCB0F70 -n1', tod, SW_HIDE, ewWaitUntilTerminated, ResultCode);
Exec(tod + '\SimPack.exe', 'x ' + from + ' ' + tod + ' -g42701 -kBAD1EC97BB5FB39A08D70AEDAB239DDC -n1', tod, SW_HIDE, ewWaitUntilTerminated, ResultCode);
Exec(tod + '\SimPack.exe', 'x ' + from + ' ' + tod + ' -g42702 -kAC17FBAE013EB5D5A549EBF9907C78A5 -n1', tod, SW_HIDE, ewWaitUntilTerminated, ResultCode);
Exec(tod + '\SimPack.exe', 'x ' + from + ' ' + tod + ' -g42709 -kD9AD91A8DB3258C4C8210D505DCB0F70 -n1', tod, SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then UnpackSomething;
end; |
Всего записей: 1277 | Зарегистр. 07-10-2008 | Отправлено: 20:34 22-11-2010 | Исправлено: vint56, 20:37 22-11-2010 |
|
