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

[BaRSPRO]

как сделать, чтобы 7z архив, который обработан srep'ом, распаковался после распаковки arc архивов, а то как ни пытался через секцию Run батником (пытается распаковаться до распаковки arc) и через Code (там вообще ничего не происходило) не получается

[Jerichoman]

Jerichoman



Вот пример сперва Арк распаковывается ,потом Срип ,потом Перкомп и наконец 7зип

Убереш прекомп если он тебе мешает (и да депак.ехе ето распакошик зип архивов если поишеш то и его найдеш



[Run]





Filename: "{app}\Arc.exe"; Parameters: "x -dp Data1.pcf.srep.arc"; WorkingDir: "{app}"; StatusMsg: "Восстановление игровых файлов 10%..."; Flags: runhidden;

Filename: "cmd.exe"; Parameters: "/C del /F /Q Data1.pcf.srep.arc"; WorkingDir: "{app}"; StatusMsg: "Удаление мусора..."; Flags: runhidden;



Filename: "{app}\srep.exe"; Parameters: "-d Data1.pcf.srep Data1.pcf"; WorkingDir: "{app}" ; Check: "not IsWin64" ; StatusMsg: "Восстановление игровых файлов 20%...";

Filename: "cmd.exe"; Parameters: "/C del /F /Q Data1.pcf.srep"; WorkingDir: "{app}"; StatusMsg: "Удаление мусора..."; Flags: runhidden;





Filename: "{app}\precomp.exe"; WorkingDir: "{app}"; Parameters: "-r Data1.pcf" ; StatusMsg: "Восстанавливаются игровые архивы, 30% выполнено..."; Flags: runminimized runasoriginaluser

Filename: "cmd.exe"; WorkingDir: "{app}"; Parameters: "/C del /F /Q Data1.pcf"; Flags: runhidden runasoriginaluser



Filename: "{app}\depack.exe"; Parameters: "x Data1.7z -o""{app}\"" -y"; WorkingDir: "{app}\"; StatusMsg: "Восстановление игровых файлов 30%...";

Filename: "cmd.exe"; Parameters: "/C del /F /Q Data1.7z"; WorkingDir: "{app}"; StatusMsg: "Удаление мусора..."; Flags: runhidden;

[Jerichoman]

Artem1143

У меня распаковка arc через код, поэтому опять через run он будет пытаться сначала распаковать zip, а потом уже arc

[BlackSelf]

Цитата vint56:



SeDmY, скрипт рабочий вот проверил на этой версий ispack-5.3.10 Последний стабильный релиз

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

Странно, вчера поставил расширенную версия Inno Setup от Restools, собраную на основе версии 5.3.10, запустил в ней и такая фигня лезет, на обычной та же байда((( Может у меня чего из дополнительного софта не хватает - что скрипт этот использует...



Не может же без косяков быть такое, что у одного человека скрипт работает, а у другого - нет((

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

SeDmY, у тебя стоит Unicode а скрипт Ansi потому ошибка

[Cinot]

Извините, а более полного примера у Вас не найдётся? У меня что-то ничего не получается сделать на основе этого

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

Цитата vint56:



SeDmY, у тебя стоит Unicode а скрипт Ansi потому ошибка

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

Так, ясно! Поставлю вечером Ansi))) А в чем собственно у них отличия!? Я думал, что Unicode расширенная версия какая-нибудь...

[Cinot]

Спасибо, очень помогло!

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

Подскажите пожалуйста как исправить ошибку вот такую

Вот скрипт

читать дальше »

[Setup]

Compression=lzma

AppCopyright=DNET

AppName=Counter Strike 1.6 (47) DNET

AppVerName=Counter Strike 1.6 (47) DNET

DefaultDirName=D:\Counter Strike 1.6 (47) DNET v 8.0

DefaultGroupName=Counter Strike 1.6 (47) DNET v 8.0

MergeDuplicateFiles=true

OutputBaseFilename=cs_dnet_v8.0

DisableReadyPage=true

Uninstallable=true

AppPublisher=© DNET

AppPublisherURL=

http://game.dnet.com.ua

AppSupportURL=

http://game.dnet.com.ua

AppUpdatesURL=

http://game.dnet.com.ua

AppVersion=v8.0 (MyAC)

VersionInfoVersion=8.0

VersionInfoDescription=Counter Strike 1.6 (47) DNET

OutputDir=D:

SetupIconFile="Q:\Инсталяторы Counter Strike\Дистрибутив\cstrike-16.ico"

WizardImageFile=C:\Program Files\Inno Setup 5\cs2.bmp

WizardSmallImageFile=C:\Program Files\Inno Setup 5\cs.bmp



[Languages]

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



[Components]

Name: lang; Description: Выберете язык игры; Types: custom; Flags: fixed

Name: lang/rus; Description: Русский язык; Flags: exclusive

Name: lang/eng; Description: Английский язык; Flags: exclusive

Name: game; Description: Выберете тип игры; Types: custom; Flags: fixed

Name: game/lan; Description: Сетевая версия; Flags: exclusive

Name: game/inet; Description: Интернет версия; Flags: exclusive

Name: rad; Description: Выберете язык радиокоманд; Types: custom; Flags: fixed

Name: rad/rus; Description: Русский язык; Flags: exclusive

Name: rad/eng; Description: Английский язык; Flags: exclusive



[Types]

Name: custom; Description: Custom installation; Flags: iscustom



[Tasks]

Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked



[Files]

Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy

Source: Styles\Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy

Source: Q:\Инсталяторы Counter Strike\Дистрибутив\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

Source: Q:\Инсталяторы Counter Strike\Варианты на выбор\Интернет или Сеть\Lan\*; DestDir: {app}; Components: game/lan; Flags: ignoreversion recursesubdirs createallsubdirs

Source: Q:\Инсталяторы Counter Strike\Варианты на выбор\Интернет или Сеть\Internet\*; DestDir: {app}; Components: game/inet; Flags: ignoreversion recursesubdirs createallsubdirs

Source: Q:\Инсталяторы Counter Strike\Варианты на выбор\Язык\Russian\*; DestDir: {app}; Components: lang/rus; Flags: ignoreversion recursesubdirs createallsubdirs

Source: Q:\Инсталяторы Counter Strike\Варианты на выбор\Язык\English\*; DestDir: {app}; Components: lang/eng; Flags: ignoreversion recursesubdirs createallsubdirs

Source: Q:\Инсталяторы Counter Strike\Варианты на выбор\Радиокоманды\Русские\*; DestDir: {app}; Components: rad/rus; Flags: ignoreversion recursesubdirs createallsubdirs

Source: Q:\Инсталяторы Counter Strike\Варианты на выбор\Радиокоманды\English\*; DestDir: {app}; Components: rad/eng; Flags: ignoreversion recursesubdirs createallsubdirs





[Icons]

Name: {commondesktop}\MyAC 1.6.0; Filename: {app}\MyAC_1.6.0\myAC.exe; Tasks: desktopicon

Name: {commondesktop}\Counter Strike 1.6 (47) DNET v8.0 MyAC; Filename: {app}\hl.exe; Parameters: -game cstrike ;IconFilename: {app}\cstrike-16.ico Tasks: desktopicon

Name: {commondesktop}\CS_Scaner 4.0; Filename: {app}\CS_Scaner_4.0\CS_Scan.exe; Tasks: desktopicon

Name: {group}\{cm:UninstallProgram,My Program}; Filename: {uninstallexe}

Name: {group}\Counter Strike 1.6 DNET v8.0 (MyAC); Filename: {app}\hl.exe; Parameters: -game cstrike ; IconFilename: {app}\cstrike-16.ico

Name: {group}\CS_Scaner 4.0; Filename: {app}\CS_Scaner_4.0\CS_Scan.exe;

Name: {group}\MyAC 1.6.0; Filename: {app}\MyAC_1.6.0\myAC.exe;



[Run]

Filename: {app}\hl.exe; Parameters: -game cstrike; Description: {cm:LaunchProgram,Counter Strike 1.6 DNET v8.0 (MyAC)}; Flags: nowait postinstall skipifsilent



[Registry]

Root: HKCU; Subkey: Software\Valve\Half-Life\Settings; ValueType: string; ValueName: ValveKey; ValueData: 5RP2E-EPH3K-BR3LG-KMGTE-FN8PY; Flags: uninsdeletevalue uninsdeletekeyifempty

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 0; ValueData: 149

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 1; ValueData: 123

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 2; ValueData: 171

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 3; ValueData: 89

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 4; ValueData: 56

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 5; ValueData: 47

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 6; ValueData: 144

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 7; ValueData: 49

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 8; ValueData: 151

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: 9; ValueData: 75

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Path; ValueData:

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Path2; ValueData: {app}\hl.exe

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: cdp; ValueData: {app}\MyAC_1.6.0\cdeath.exe

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: CDRun; ValueData: 1

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: AutoS; ValueData: 0

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Param; ValueData: -game cstrike

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Param2; ValueData:

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Left; ValueData: 183

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Top; ValueData: 251

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Height; ValueData: 242

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: PHeight; ValueData: 524

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: conf; ValueData: 1

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: ip1; ValueData: 172

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: ip2; ValueData: 16

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: subF; ValueData: 1

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: subT; ValueData: 1

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: compF; ValueData: 100

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: compT; ValueData: 102

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Rus; ValueData: 1

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Eoc; ValueData: 0

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: CD; ValueData: 1

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Sot; ValueData: 0

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Per; ValueData: 1

Root: HKCU; Subkey: CS_Scaner\settings\settings; ValueType: string; ValueName: Brc; ValueData: 0

Код: Выделить всё

// Importing LoadSkin API from ISSkin.DLL

procedure LoadSkin(lpszPath: String; lpszIniFileName: String);

external 'LoadSkin@files:isskin.dll stdcall';



// Importing UnloadSkin API from ISSkin.DLL

procedure UnloadSkin();

external 'UnloadSkin@files:isskin.dll stdcall';



// Importing ShowWindow Windows API from User32.DLL

function ShowWindow(hWnd: Integer; uType: Integer): Integer;

external 'ShowWindow@user32.dll stdcall';



function InitializeSetup(): Boolean;

begin

	ExtractTemporaryFile('Office2007.cjstyles');

	LoadSkin(ExpandConstant('{tmp}\Office2007.cjstyles'), 'NormalAqua.ini');

	Result := True;

end;



procedure DeinitializeSetup();

begin

	// Hide Window before unloading skin so user does not get

	// a glimse of an unskinned window before it is closed.

	ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);

	UnloadSkin();

end;



//вешаем ссылку на подпись

var

  MouseLabel,SiteLabel: TLabel;



procedure SiteLabelOnClick(Sender: TObject);

var

  ErrorCode: Integer;

begin

  ShellExec('open', 'http://game.dnet.com.ua/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)

end;



procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

  SiteLabel.Font.Color:=$0000C8FF

end;



procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

  SiteLabel.Font.Color:=$000080FF

end;



procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

  SiteLabel.Font.Color:=$0000A0FF

end;



procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

  SiteLabel.Font.Color:=$000080FF

end;



procedure InitializeWizard();

var





//отключение о программе

  WizardForm.Position:=poScreenCenter;



//вешаем ссылку

  MouseLabel:=TLabel.Create(WizardForm)

  MouseLabel.Width:=WizardForm.Width

  MouseLabel.Height:=WizardForm.Height

  MouseLabel.Autosize:=False

  MouseLabel.Transparent:=True

  MouseLabel.OnMouseMove:=@SiteLabelMouseMove2

  MouseLabel.Parent:=WizardForm



  SiteLabel:=TLabel.Create(WizardForm)

  SiteLabel.Left:=10

  SiteLabel.Top:=330

  SiteLabel.Cursor:=crHand

  SiteLabel.Font.Color:=$000080FF

  SiteLabel.Caption:='Наш сайт http://game.dnet.com.ua/'

  SiteLabel.OnClick:=@SiteLabelOnClick

  SiteLabel.OnMouseDown:=@SiteLabelMouseDown

  SiteLabel.OnMouseUp:=@SiteLabelMouseUp

  SiteLabel.OnMouseMove:=@SiteLabelMouseMove

  SiteLabel.Parent:=WizardForm

end;

[SeDmY]

Доброго времени суток! Хотелось бы спросить про доп. программное обеспечение игры:



После установки игры DirectX и всякая мелкая дребедень дополнительная копируется в папку с игрой и устанавливается, после чего так и остается там, а можно сделать так, чтобы после установки этих программ их exe-шники автоматически удалялись из папки!?