[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: GcfFiles.dat; DestDir: {tmp} Source: SimPack.exe; DestDir: {app}; AfterInstall: UnpackSomething [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; |