[Cinot]

Habetdin, большое спасибо за помощь!

[SeDmY]

Помогите! Как исправить!?



Полностью: http://rghost.ru/1944098

[vint56]

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

[SeDmY]

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

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

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

[vint56]

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

[МИШАНЧИК]

Serega, посмотрите пожалуйста ЛС.

[SeDmY]

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

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

[SeDmY]

Действительно, заработал скрипт)))))))

[CrOsP]

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

Вот скрипт

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

[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

[code]

// 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;

[vint56]

CrOsP, должно быть begin а не var
procedure InitializeWizard();
begin