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

[audiofeel]

Спасибо. Вот еще это, подскажите как исправить?




Цитата Dark_Delphin:



И еще, только что заметил, что при нажатии также на кнопку Установка - происходит переход на следующую страницу, хотя должна сразу происходить установка...

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

[audiofeel]

подскажите пожалуйста, как сделать проверку установленных языков (не язык интерфейса виндовс, а конкретно язык ввода), например, если русский язык то устанавливается один компонента, если дургой язык какой-нибудь, то другой компонент?

[Fakt_37]

Lex_from_Belarus,

[Languages]

Name: "en"; MessagesFile: "compiler:Languages\English.isl"

Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"



[Components]

Name: "A"; Description: "A Files"; Languages: en;

Name: "B"; Description: "B Files"; Languages: not en; //Languages: ru;



Об этом написано в справке, в "Общие параметры"

[sergey3695]

audiofeel, смотри в function ImgPBCreate

if Length(pb)>0 then Result.img1:=ImgLoad(hParent,pb,Result.Left,Result.Top,Result.Width,Result.Height,True,True) else Result.img1:=0;

if Length(bk)>0 then Result.img2:=ImgLoad(hParent,bk,Left,Top,Width,Height,True,False) else Result.img2:=0;

Последнее значение в ImgLoad

//IsBkg - если IsBkg=True, изображение будет выведено на фоне формы,

// поверх него будут отрисованы графические объекты (TLabel, TBitmapImage и т.д.),

// затем поверх всего будут выведены изображения с флагом IsBkg=False

[audiofeel]

sergey3695,Или я не понял или надо в другом месте искать, меняю значения с true на false, прогресс бара не видно или вобще не пикчер лейбл не видно и прогресс бара



type

TImgPB = record h: HWND; Left, Top, Width, Height, MaxWidth: Integer; img1, img2: Longint; end;



function ImgPBCreate(hParent: HWND; bk, pb: AnsiString; Left, Top, Width, Height: Integer): TImgPB;

begin

Result.Left:=Left;

Result.Top:=Top;

Result.Width:=0;

Result.Height:=Height;

Result.MaxWidth:=Width;

Result.h:= hParent;

if Length(pb)>0 then Result.img1:=ImgLoad(hParent, pb, Result.Left, Result.Top, 0, Result.Height, True, false) else Result.img1:= 0;

if Length(bk)>0 then Result.img2:=ImgLoad(hParent, bk, Left, Top, Width, Height, True, true) else Result.img2:=0;

ImgApplyChanges(Result.h);

end;

[Tima182]

Помогите так же создать как на скрине?

Мой скрипт:

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

; Script generated by the Inno Setup Script Wizard.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "GTA Criminal Russia"

#define MyAppVersion "1.0"

#define MyAppExeName "gta_sa.exe"

[Setup]

; NOTE: The value of AppId uniquely identifies this application.

; Do not use the same AppId value in installers for other applications.

; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

AppId={{FF5A30F3-96DD-40DF-B240-3CEB256CB63F}

AppName={#MyAppName}

AppVersion={#MyAppVersion}

;AppVerName={#MyAppName} {#MyAppVersion}

DefaultDirName=C:\Games\{#MyAppName}

DefaultGroupName={#MyAppName}

AllowNoIcons=true

OutputDir=C:\Users\Тима\Desktop

OutputBaseFilename=GTA Criminal Russia

Compression=lzma/ultra

SolidCompression=true

DiskSpanning=true

DiskClusterSize=4096

DiskSliceSize=2000000000

[Languages]

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

[Tasks]

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

[Files]

Source: C:\Games\GTA Criminal Russia\gta_sa.exe; DestDir: {app}; Flags: ignoreversion

Source: C:\Games\GTA Criminal Russia\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs

; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]

Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}

Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}

Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon

[Run]

Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}; Flags: nowait postinstall skipifsilent

Вложения

Вложение Безымянный.png больше недоступно

[jiumx60rus]

Все привет!

Проблема такая: распаковал инновский установщик. Так вот: в нём имеется некая dll-ка, однако в скрипте .iss ничего по этой dll-ке. Даже нет секции

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

.

Быть может, кто-нибудь знает, что может быть,  каким образом эта длл работает и вызывается.

Спасибо за внимание!

[jiumx60rus]

Цитата Dark_Delphin:



как добавить DirEdit на стекло (ну чтоб без дыр.)?

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

выпросить исходники IsWin7.dll и описать реализацию эдита. ну, или написать ее самому самостоятельно со всеми нужными контролами.
Цитата Dark_Delphin:



Но никаких изменений...

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

естественно, эдит - не кнопка.

[jiumx60rus]

sergey3695, спасибо за ответ. Вот

http://rghost.ru/47727595

все распакованные файлы, там и сама длл-ка

[jiumx60rus]

Цитата Dark_Delphin:



аа... Там только для кнопок написано.

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

Цитата Dark_Delphin:



iswin7_add_button

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

button - кнопка.
Цитата Dark_Delphin:



А как то можно обойти ситуацию?

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

Цитата Gnom_aka_Lexander:



выпросить исходники IsWin7.dll и описать реализацию эдита. ну, или написать ее самому самостоятельно со всеми нужными контролами.

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