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

[comsun]

А "разделенные" можете опубликовать? »

конечно)

до соединения Joiner'oм отдельноработающие части вот

скин -
; -- Example1.iss --
; Demonstrates copying 3 files and creating an icon.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!


[Files]
; Add the ISSkin DLL used for skinning Inno Setup installations.
Source:{app}\ISSkin.dll; DestDir: {app}; Flags: dontcopy

; Add the Visual Style resource contains resources used for skinning,
; you can also use Microsoft Visual Styles (*.msstyles) resources.
Source: Styles\Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy


; The following code block is used to load the ISS, pass in
; NormalAqua.ini as the second parameter to LoadSkin to use
; the Aqua color scheme instead of the default Blue color
; scheme.
[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;
и
шифр -

[Setup]
Encryption=yes
Password=Cnn0

[Code]
var
str: string;
MyArray: array of Char;

function InitializeSetup(): Boolean;
begin
MyArray := ['A','B','C','D','E','F','G','H','I','J','K','L','M',
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
'a','b','c','d','e','f','g','h','i','j','k','l','m',
'n','o','p','q','r','s','t','u','v','w','x','y','z',
'1','2','3','4','5','6','7','8','9','0',
'!','@','#','$','%','^','&','*','(',')'];
Result:= True;
end;

function CheckPassword(Password: String): Boolean;
begin
WizardForm.PasswordEdit.Text:= 'The password is protected!';
WizardForm.PasswordPage.Free;
Result:= True;
end;

procedure InitializeWizard();
begin
WizardForm.PasswordEdit.Visible:= False;
WizardForm.PasswordEdit.Text:= 'The password is very protected!';
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
str:= GetDateTimeString('ss', #0, #0);
Result:= True;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpPassword then
begin
WizardForm.PasswordEdit.Text:= MyArray[2]+MyArray[39]+MyArray[39] +
IntToStr(StrToInt(str) - StrToInt(GetDateTimeString('ss', #0, #0)));
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
end;


это тот код,который вставлял в самом конце скрипта самой программы.

[Habetdin]

comsun, проверьте, может быть и правильно :biggrin:
[Setup]
Encryption=yes
Password=Cnn0

[Files]
; Add the ISSkin DLL used for skinning Inno Setup installations.
Source: {app}\ISSkin.dll; DestDir: {app}; Flags: dontcopy

; Add the Visual Style resource contains resources used for skinning,
; you can also use Microsoft Visual Styles (*.msstyles) resources.
Source: Styles\Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy

[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
str: string;
MyArray: array of Char;

function InitializeSetup(): Boolean;
begin
MyArray := ['A','B','C','D','E','F','G','H','I','J','K','L','M',
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
'a','b','c','d','e','f','g','h','i','j','k','l','m',
'n','o','p','q','r','s','t','u','v','w','x','y','z',
'1','2','3','4','5','6','7','8','9','0',
'!','@','#','$','%','^','&','*','(',')'];
Result:= True;
end;

function CheckPassword(Password: String): Boolean;
begin
WizardForm.PasswordEdit.Text:= 'The password is protected!';
WizardForm.PasswordPage.Free;
Result:= True;
end;

procedure InitializeWizard();
begin
WizardForm.PasswordEdit.Visible:= False;
WizardForm.PasswordEdit.Text:= 'The password is very protected!';
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
str:= GetDateTimeString('ss', #0, #0);
Result:= True;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpPassword then
begin
WizardForm.PasswordEdit.Text:= MyArray[2]+MyArray[39]+MyArray[39] +
IntToStr(StrToInt(str) - StrToInt(GetDateTimeString('ss', #0, #0)));
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
end;

[comsun]

Habetdin, СПАСИБО!!!

comsun, проверьте, может быть и правильно
читать дальше » »

один секунд)
минут через 10
будет известно - программа большая)

не идёт
ошибка та же((((((

[Habetdin]

ошибка та же(((((( »
Весь скрипт можно увидеть? :)
P.S.: прикрепил примеры скриптов с шифрованием, у меня 2й вариант без ошибок работает, остальные так же, как у вас ошибку выдают

[comsun]

Habetdin, Спасибо за помощь!
P.S.: прикрепил примеры скриптов с шифрованием, у меня 2й вариант без ошибок работает, остальные так же, как у вас ошибку выдают »
проверил ваш [2].iss - ошибка та же(((((((((
Весь скрипт можно увидеть? »
не проблема,но дело не в нём - раздельно друг от друга коды работают,а вместе - не хотят.

завтра (или уже сегодня)) проверю остальные

[EN130]

chm справка в шапке глючная :( , замените плыз на нормальную :)

[Serega]

EN130, подробней объясните, что не так?

ошибка та же(((((( »
Надо так:

[Files]
; Add the ISSkin DLL used for skinning Inno Setup installations.
Source: {app}\ISSkin.dll; DestDir: {app}; Flags: dontcopy noencryption

[comsun]

Serega, СПА-СИ-БО!!!!!!!!!

Цитата comsun:
ошибка та же(((((( »
Надо так:
Код:
[Files]
; Add the ISSkin DLL used for skinning Inno Setup installations.
Source: {app}\ISSkin.dll; DestDir: {app}; Flags: dontcopy noencryption »

Йессс!!!!!
Работает!

Serega,ещё раз Спасибо!!!
Ваши ответы всегда точны и верны!!!

[EN130]

Serega, http://s41.radikal.ru/i092/0910/4a/d0cb82a15b90.jpg И весь документ такой. Тоесть все страницы пустые, а меню вродебы работает.

[Bambaso]

Здравствуйте форумчане.
Хорошо что есть такие места как это и что обстановка дружеская.
Выражаю большое спасибо мастер-пилоту "Серёга" за помощ.
По поводу создания справки:

Microsoft HTML Help Workshop 4.74.8702.0 + rus - вещица очень полезная и всегда пригодится:


Microsoft HTML Help является стандартной справочной системой для платформы Windows. Авторы могут использовать HTML Help для создания справочных файлов в
своих программах или для создания содержимого веб-сайта. Разработчики могут использовать программный интерфейс приложения (API) HTML Help для программирования
приложения или подключения контексно-зависимой справочной системы. В качестве информационной системы технология HTML Help пригодна для широкого диапазона
приложений, включая большие руководства, интерактивные книги и электронные газеты, которые также удобны, как и справочные системы программного обеспечения.

Возможности HTML Help имеют некоторые преимущества перед стандартным гипертекстом - это способность снабжения справочной системы комбинированной таблицей
содержания и перечнем указателей, а также использование ключевых слов для дополнительной гиперссылочной производительности. Компилятор HTML Help, являющийся
частью HTML Help Workshop, делает возможным сжатие гипертекста, графики и других файлов в сравнительно небольшой компилированный справочный файл (.chm),
который может затем распространяться с программным обеспечением или загружаться из сети.

HTML Help состоит из неавтономной программы просмотра справки (Help Viewer), связанных с ней справочных компонентов и авторских систем по разработке справки
от корпорации Microsoft. Программа просмотра справки использует лежащие в ее основе компоненты Microsoft Internet Explorer для отображения справочного
содержимого. Программа просмотра поддерживает гипертекст, ActiveX, Java, языки скриптов (JScript и Microsoft Visual Basic Scripting Edition), а также сетевые
форматы изображений (файлы .jpeg, .gif и .png). Авторская система по разработке справки HTML Help Workshop предоставляет легкую в использовании систему
для создания и управления справочными проектами и относящимися к ним файлами.

Операционная система: Windows 2000/XP/Vista/Server 2003
Язык интерфейса: Английский плюс русификация
Лицензия: бесплатно
инструкция по работе с программой прилагается.

Скачать (http://go.microsoft.com/fwlink/?LinkId=14188)

[A1EXXX]

Bambaso, :off:

[Serega]

все страницы пустые, а меню »
Ещё раз скачал Справку, всё нормально отображается. Попробуйте перекачать, возможно вы скачали с ошибкой.

[EN130]

Serega, После обновления винды, все заработало. Как думаеш, что могло быть не так?

[Serega]

После обновления винды, все заработало. »
Я думаю, что возможно какой-то глюк системы и просто надо было перезагрузиться...

[3Nitro]

Здравствуйте,
Помогите сделать такую вещь, или скажите реально ли это вообще.

Можно ли сделать слайдшоу в окне Мастера (когда идет установка) и применить к нему этот эффект
http://restools.hanzify.org/attachments/month_0804/f2008413124011.gif
http://restools.hanzify.org/article.asp?id=80 (прямая ссылка (http://restools.hanzify.org/inno/waterctrl/inno_waterctrl_v2.zip) )?
Ну или хотя-бы статическую картинку вместо слайдшоу но с данной библиотекой/плагином.

Долго уже просидел, ничего не выходит( Очень прошу помочь

И еще, как сделать чтобы при выборе компонентов один из 2 флажков всегда оставался включенным? (на примере - есть 2 флажка, можно включить либо 2 вместе либо по-одиночке, но оба выключить нельзя. При выключении последнего включается другой )

Заранее огромное спасибо)

[lmiol]

здарвствуйте - все поиски зашли в тупик проблему решить не выходит, подскажите может кто знает

Name: "{userdesktop}\Quake Live"; Filename: {pf}\QuakeLiveFirefoxPrism\Firefox\firefox.exe; Parameters: -app application.ini -override "{userappdata}\WebApps\quake.live@prism.app\override.ini" -webapp quake.live@prism.app; WorkingDir: {pf}\QuakeLiveFirefoxPrism\Profiles\Clear\extensions\refractor@developer.mozilla.org\prism; Tasks: desktopicon; IconFilename: "{userappdata}\id Software\quakelive\home\baseq3\quakelive.dll"; IconIndex: 0; Components: browser

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

подскажите как сделать так чтобы кавычки в ярлыке в этом месте прописывались...

[Habetdin]

lmiol, а так?
Name: "{userdesktop}\Quake Live"; Filename: {pf}\QuakeLiveFirefoxPrism\Firefox\firefox.exe; Parameters: -app application.ini -override ""{userappdata}\WebApps\quake.live@prism.app\override.ini"" -webapp quake.live@prism.app; WorkingDir: {pf}\QuakeLiveFirefoxPrism\Profiles\Clear\extensions\refractor@developer.mozilla.org\prism; Tasks: desktopicon; IconFilename: "{userappdata}\id Software\quakelive\home\baseq3\quakelive.dll"; IconIndex: 0; Components: browser

[lmiol]

таже ошибка!!!

[Habetdin]

lmiol, а вот так?
Name: "{userdesktop}\Quake Live"; Filename: {pf}\QuakeLiveFirefoxPrism\Firefox\firefox.exe; Parameters: "-app application.ini -override ""{userappdata}\WebApps\quake.live@prism.app\override.ini"" -webapp quake.live@prism.app"; WorkingDir: {pf}\QuakeLiveFirefoxPrism\Profiles\Clear\extensions\refractor@developer.mozilla.org\prism; Tasks: desktopicon; IconFilename: "{userappdata}\id Software\quakelive\home\baseq3\quakelive.dll"; IconIndex: 0; Components: browser

[Wiper]

Господа,если кто то делал RePack Call of Duty 4: Modern Warfare-хочу сделать без мульта(вырезать мульт полностью)подскажите какие файлы нужно удалить,а то запарился уже.Заранее спасибо.