Показать полную графическую версию : [архив] Скрипты Inno Setup. Помощь и советы [часть 2]
serg aka lain
07-11-2009, 18:09
хотите сказать, что за это отвечают данные по адресу
HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductSuite
т.е. если ProductSuite - Personal значит это Home, если значения нет Professional »
Не совсем так (были в сети не так давно статьи, как из Хомяка сделать Профессионал)
Но, тем не менее, примерно так.
Lancer2404
08-11-2009, 20:53
Скажите как сделать чтобы после установки выдавалось сообщение?
serg aka lain
08-11-2009, 21:59
Скажите как сделать чтобы после установки выдавалось сообщение? »
[Setup]
AppName=My Program
AppVerName=My Program
CreateAppDir=False
Uninstallable=False
OutputDir=userdocs:My Program.
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
MsgBox('Сообщение', mbInformation, MB_OK);
end;
Lancer2404
09-11-2009, 18:37
спасибо
Habetdin
10-11-2009, 13:34
Проблема решена :)
Решение:
[code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpInstalling then
begin
if FileExists(ExpandConstant('{src}\File.ext')) then
FileCopy(ExpandConstant('{src}\File.ext'), ExpandConstant('{app}\File.ext'), False);
end;
end;
Habetdin, дело в том, что есть только:
function FileCopy(const ExistingFile, NewFile: string; const FailIfExists: Boolean): Boolean;
Копирует ExistingFile в NewFile, сохраняя временные отметки и атрибуты файла.
Если FailIfExists=True и NewFile уже существует, файл не копируется, если FailIfExists=False, существующий файл заменится на NewFile.
Если копирование успешно, возвращает True, иначе False.
у меня трабла , при выборе всех компонентов ставятся все ярлыки, а мне нужно чтобы при выборе компонентов main и browser ставился только ярлык Name: "{userdesktop}\Quake Live", а ставятся оба Name: "{userdesktop}\Quake Live" и Name: "{userdesktop}\QuakeLive.com"
Как нужно выставить компоненты чтобы такого небыло или что нужно сделать?
[Types]
Name: "full"; Description: "Все компоненты";
Name: "custom"; Description: "Выбрать компоненты"; Flags: iscustom
[Components]
Name: "main"; Description: "Главные файлы Quake Live"; Types: full custom; Flags: fixed
Name: "browser"; Description: "Firefox и дополнение Prism"; Types: full custom
Name: "manual"; Description: "Руководство и Награды"; Types: full custom
Name: "anti"; Description: "Античит PunkBuster"; Types: full custom
[Messages]
BeveledLabel=Copyright © Mio Dark Project
[Tasks]
Name: "desktopicon"; Description: "Создать ярлык на Рабочем Столе"; GroupDescription: "{cm:AdditionalIcons}"
[Files]
Source: "uninstall.ico"; Components: main; DestDir: "{userappdata}\id Software\uninstall"; Flags: ignoreversion
Source: "usercur\*"; Components: main; DestDir: "{userappdata}\id Software"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: "usercur2\*"; Components: manual; DestDir: "{userappdata}\id Software"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: "usercur3\*"; Components: browser; DestDir: "{userappdata}\"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: "programfiles\*"; Components: browser; DestDir: "{pf}\"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension
Source: "pk3\*"; Components: main; DestDir: "{userappdata}\id Software"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension nocompression
Source: "pbsvc.exe" ;Components: anti;DestDir: "{tmp}"; Flags: ignoreversion
[Icons]
Name: "{group}\QuakeLive.com"; Filename: "http://www.quakelive.com"; IconFilename: "{userappdata}\id Software\quakelive\home\baseq3\quakelive.dll"; IconIndex: 0; Components: main
Name: "{group}\Руководство к игре"; Filename: "{userappdata}\id Software\quakelive\home\manual\manual.htm"; IconFilename: "{userappdata}\id Software\quakelive\home\links\qlm.ico"
Name: "{group}\Демки"; Filename: "{userappdata}\id Software\quakelive\home\baseq3\demos"; IconFilename: "{sys}\SHELL32.dll"; IconIndex: 126
Name: "{group}\Скриншоты"; Filename: "{userappdata}\id Software\quakelive\home\baseq3\screenshots"; IconFilename: "{sys}\SHELL32.dll"; IconIndex: 127
Name: "{group}\Удалить игру"; Filename: "{uninstallexe}"; IconFilename: "{userappdata}\id Software\uninstall\uninstall.ico"
Name: "{userdesktop}\QuakeLive.com"; Filename: "http://www.quakelive.com"; Tasks: desktopicon; IconFilename: "{userappdata}\id Software\quakelive\home\baseq3\quakelive.dll"; IconIndex: 0; Components: main
Name: "{userdesktop}\Quake Live"; Filename: {pf}\FirefoxPrismQuakeLive\Firefox\Quake Live.exe; WorkingDir: {pf}\FirefoxPrismQuakeLive\Profiles\Clear\extensions\refractor@developer.mozilla.org\prism; Tasks: desktopicon; IconFilename: "{pf}\FirefoxPrismQuakeLive\Firefox\Quake Live.exe"; IconIndex: 0; Components: browser
Name: "{userdesktop}\Руководство к игре"; Filename: "{userappdata}\id Software\quakelive\home\manual\manual.htm"; IconFilename: "{userappdata}\id Software\quakelive\home\links\qlm.ico"
[Run]
Filename: {tmp}\pbsvc.exe; StatusMsg: "Установка античита PunkBuster..."; Parameters: "/i --no-display --i-accept-the-pb-eula /u"; WorkingDir: {tmp}; Flags: runhidden waituntilterminated ; Components: anti;
Filename: {pf}\FirefoxPrismQuakeLive\Firefox\Quake Live.exe; WorkingDir: {pf}\FirefoxPrismQuakeLive\Profiles\Clear\extensions\refractor@developer.mozilla.org\prism; Description: "Войти в игру"; Flags: nowait shellexec postinstall skipifsilent unchecked; Components: browser
Filename: "http://www.quakelive.com/#home"; Description: "Войти в игру"; Flags: nowait shellexec postinstall skipifsilent unchecked; Components: main
Filename: {userappdata}\id Software\quakelive\home\manual\manual.htm; Description: "Прочитать руководство"; Flags: nowait shellexec postinstall skipifsilent unchecked; Components: manual
ADremLIN
11-11-2009, 13:12
Скрипты добавляющие/удаляющие ваш путь в переменной %PATH%:
///////////////////////////////////////////////////////////////////////////////////////////////////
// Сохранить сей манускрипт как "env-tools.iss" (без кавычек)
//
// По мотивам сообщения тов. omals и zhe_zho от 02-12-2008 09:21
// http://forum.ru-board.com/topic.cgi/tools.cgi?action=notifyon&forum=5&topic=27438&start=1685
//
// Для применения нового значения %PATH% после завершения инсталяции
// необходимо добавить в секцию:
//
// [Setup]
// ChangesEnvironment=yes
//
// В скрипт подключается так:
//
// [_Code] "_Code" - Из-за ограничений тегов форума. Имеется ввиду секция Code
// #include "env-tools.iss"
//
// Процедуры описаны в env-tools.iss:
//
// SetEnvironmentPath('<ваш_путь>'); // Добавляет <ваш_путь> к системному %PATH%
// DeleteEnvironmentPath('<ваш_путь>'); // Удаляет <ваш_путь> из системного %PATH%
//
// Вызывать по смыслу в нужном месте инсталляции или деинсталяции
// Например:
// {После инсталляции:}
// procedure CurStepChanged(CurStep: TSetupStep);
// begin
// if CurStep = ssPostInstall then
// begin
// SetEnvironmentPath(ExpandConstant('{app}\bin'));
// end;
// end;
//
// {Перед деинсталляцией:}
// procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
// begin
// if CurUninstallStep = usUninstall then
// begin
// DeleteEnvironmentPath(ExpandConstant('{app}\bin'));
// end;
// end;
//
///////////////////////////////////////////////////////////////////////////////////////////////////
procedure SetEnvironmentPath(NewPath: String);
var
PathStr: String;
begin
{Получаем значение текущего системного %PATH%}
RegQueryStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', PathStr);
{Ищем NewPath в текущем системном %PATH%}
if Pos(NewPath, PathStr) <= 0 then // Если в текущем %PATH% не найдено NewPath;
begin
PathStr := NewPath + ';' + PathStr;
RegWriteStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', PathStr);
end;
end;
procedure DeleteEnvironmentPath(OldPath: String);
var
PathStr: String;
StartPos, Len: Integer;
begin
{Получаем значение текущего системного %PATH%}
RegQueryStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', PathStr);
{Ищем OldPath c ";" в текущем системном %PATH%}
StartPos := Pos(OldPath + ';', PathStr); //индекс начала вхождения OldPath c ";"
if StartPos > 0 then // Если в текущем %PATH% найден OldPath;
begin
Len := Length(OldPath + ';'); //длина строки OldPath c ";"
Delete(PathStr, StartPos, Len); // удаляем из текущего системного %PATH% (PathStr) строку OldPath c ";"
{Записываем изменения в реестр}
RegWriteStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', PathStr);
Exit;
end;
{Ищем OldPath без ";" в текущем системном %PATH%}
StartPos := Pos(OldPath, PathStr);
if StartPos > 0 then // Если в текущем %PATH% найден OldPath без ";"
begin
Len := Length(OldPath); //индекс начала вхождения OldPath без ";"
Delete(PathStr, StartPos, Len); // удаляем из текущего системного %PATH% (PathStr) строку OldPath без ";"
{Записываем изменения в реестр}
RegWriteStringValue(HKLM,'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', PathStr);
end;
end;
Может кому пригодится...
Внимание, здесь нет проверки входного параметра функций на "пустую строку" - осторожней с этим... (Доделаю при удобном случае)
ЗЫ: Как принудительно заставить систему обновить(перечитать) измененный %PATH%, ДО ЗАВЕРШЕНИЯ установки?
Дело в том, что ChangesEnvironment=yes срабатывает уже ПОСЛЕ ЗАВЕРШЕНИЯ установки.
А то у меня в постинстале батник не работает т.к. использует уже "новую" %PATH%... :(
Подскажите, как сделать в программе установки проверку на наличие установленного распространяемого пакета ms visual c++ 2008 и в случае отсутствия автоматически (с учётом разрядности системы) загрузить (в ISTool есть модуль закачи файлов) и выполнить файл инсталлятора пакета. Заранее благодарен. Прошу прощение, если это уже где-то обсуждалось.
у меня трабла , при выборе всех компонентов ставятся все ярлыки »
Добавьте проверку на выбранный компонент:
Name: "{userdesktop}\Quake Live"; Filename: {pf}\FirefoxPrismQuakeLive\Firefox\Quake Live.exe; WorkingDir: {pf}\FirefoxPrismQuakeLive\Profiles\Clear\extensions\refractor@developer.mozilla.org\prism; Tasks: desktopicon; IconFilename: "{pf}\FirefoxPrismQuakeLive\Firefox\Quake Live.exe"; IconIndex: 0; Components: browser; Check: not IsComponentSelected('main')
Дело в том, что ChangesEnvironment=yes срабатывает уже ПОСЛЕ ЗАВЕРШЕНИЯ установки. »
Порядок установки
Задания в секциях от начала до завершения установки выполняются в следующем порядке:
·Выполняется [InstallDelete].
·Параметры секции [UninstallDelete] располагаются в логе деинсталлятора (который на этом этапе находится в оперативной памяти).
·При необходимости создается папка приложения.
·Выполняется [Dirs].
·При необходимости резервируется имя файла деинсталлятора.
·Выполняется [Files]. (Регистрация файлов не происходит.)
·Выполняется [Icons].
·Выполняется [INI].
·Выполняется [Registry].
·Регистрируются файлы, нуждающиеся в регистрации, если только не требуется перезагрузка системы - в этом случае ни один файл не будет зарегистрирован до тех пор, пока система не перезапустится. .
·При необходимости создается пункт в Установка/Удаление программ.
·Параметры [UninstallRun] располагаются в логе деинсталлятора.
·Завершается создание деинсталлятора и он сохраняется на диске.
·При ChangesAssociations=yes меняются ассоциации для файлов.
·Если ChangesEnvironment=yes, остальные приложения информируются об изменении переменных среды.
·Выполняется [Run], за исключением файлов с флагом postinstall, которые выполнятся после того, как отобразится страница Установка завершена.
Все параметры выполняются инсталлятором в том порядке, в котором они располагаются в секции
Все изменения отменяются деинсталлятором в порядке, обратном их созданию инсталлятором. Это происходит потому, что лог деинсталлятора выполняется от конца к началу..
если вы запускаете в ssPostInstall батник, то соответственно приложения уже перезагрузились. Видимо что-то не так с батником...
Подскажите, как сделать в программе установки проверку на наличие установленного распространяемого пакета ms visual c++ 2008 и в случае отсутствия автоматически (с учётом разрядности системы) загрузить»
У меня есть пример проверки и загрузки в случае отсутствия .NET Framework'a, можете сделать по аналогии
; определение версии установленного .NetFramework
[Setup]
AppName=NetFramework
AppVerName=NetFramework
DefaultDirName={pf}\NetFramework
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
VersionInfoCopyright=Serega
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Code]
const
MinNetFrameWork = 'v3.5'; // минимальная версия NetFrameWork
var
url: string;
function GetNetFrameWork(ver: string): Integer;
begin
// страница загрузок http://www.microsoft.com/downloads/results.aspx?pocId=&freetext=Framework&DisplayLang=ru
Result:= 5;
url:= 'http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe';
case ver of
'v1.0':
begin
// по этой ссылке v1.1, т.к. ссылку на v1.0, я не нашёл... раритет... ;)
url:= 'http://download.microsoft.com/download/0/8/6/086e7824-ddad-45c0-b765-721e5e28e4c5/dotnetfx.exe';
Result:= 0;
end;
'v1.1':
begin
url:= 'http://download.microsoft.com/download/0/8/6/086e7824-ddad-45c0-b765-721e5e28e4c5/dotnetfx.exe';
Result:= 1;
end;
'v2.0':
begin
url:= 'http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe';
Result:= 2;
end;
'v3.0':
begin
url:= 'http://download.microsoft.com/download/4/d/a/4da3a5fa-ee6a-42b8-8bfa-ea5c4a458a7d/dotnetfx3setup.exe';
Result:= 3;
end;
'v3.5':
begin
url:= 'http://download.microsoft.com/download/7/0/3/703455ee-a747-4cc8-bd3e-98a615c3aedb/dotNetFx35setup.exe';
Result:= 4;
end;
end;
end;
function SearchNetFrameWork: Boolean;
var
Error: Integer;
VerNetFrameWork: array of string;
VerNetFrameWorkInstalled: TArrayOfString;
i, n: Integer;
begin
VerNetFrameWork:= ['v1.0', 'v1.1', 'v2.0', 'v3.0', 'v3.5'];
SetArrayLength(VerNetFrameWork, GetArrayLength(VerNetFrameWork));
if RegGetSubkeyNames(HKLM, 'SOFTWARE\Microsoft\.NETFramework\policy', VerNetFrameWorkInstalled) then
begin
SetArrayLength(VerNetFrameWorkInstalled, GetArrayLength(VerNetFrameWorkInstalled));
for i:= 0 to GetArrayLength(VerNetFrameWorkInstalled)-1 do
begin
for n:= 0 to GetArrayLength(VerNetFrameWork)-1 do
if VerNetFrameWorkInstalled[i] = VerNetFrameWork[n] then
if n >= GetNetFrameWork(MinNetFrameWork) then
begin
Result:= True;
Break;
end
else
begin
if MsgBox('Для этой программы требуется установленный .NET Framework не ниже ' + MinNetFrameWork + '. ' +
'Пожалуйста загрузите и установите .NET Framework и запустите установку снова. ' +
'Вы хотите загрузить .NET Framework сейчас?', mbConfirmation, MB_YESNO) = idYes then
ShellExec('open', url,'','',SW_SHOWNORMAL,ewNoWait,Error);
Result:= False;
end;
end;
end;
end;
function InitializeSetup: Boolean;
begin
if SearchNetFrameWork then Result:= True;
end;
Добавьте проверку на выбранный компонент
Name: "{userdesktop}\Quake Live"; Filename: {pf}\FirefoxPrismQuakeLive\Firefox\Quake Live.exe; WorkingDir: {pf}\FirefoxPrismQuakeLive\Profiles\Clear\extensions\refractor@developer.mozilla.org\prism; Tasks: desktopicon; IconFilename: "{pf}\FirefoxPrismQuakeLive\Firefox\Quake Live.exe"; IconIndex: 0; Components: browser; Check: not IsComponentSelected('main'):
Помогло!!! только надо было наоборот :) , спасибо еще раз!!!
ADremLIN
12-11-2009, 01:16
2 Serega:
если вы запускаете в ssPostInstall батник, то соответственно приложения уже перезагрузились. Видимо что-то не так с батником... »
·Выполняется [Run], за исключением файлов с флагом postinstall, которые выполнятся после того, как отобразится страница Установка завершена.
Вот-вот, как раз мой случай: запуск батника из [Run] с флагом postinstall :), хотя все равно не работает.
Буду копать дальше. Спасибо!
Помогите! Что надо сделать со скриптом?
http://s61.radikal.ru/i173/0911/ee/45b1b4576e78t.jpg (http://radikal.ru/F/s61.radikal.ru/i173/0911/ee/45b1b4576e78.jpg.html)
Скрипт
[Setup]
DiskSpanning=true
DiskSliceSize=1457664000
AppName=Pure 2009
AppVerName=Pure 2009 1.0
AppPublisher=AH4OyC
AppPublisherURL=http://www.pure.com/
AppSupportURL=http://www.pure.com/
AppUpdatesURL=http://www.pure.com/
DefaultDirName={pf}\Pure 2009
DefaultGroupName=Pure 2009
LicenseFile=D:\Репаки\Рисунки\EULARU.txt
OutputDir=D:\Репаки
OutputBaseFilename=setup
WizardImageFile=D:\Репаки\Рисунки\123.bmp
SetupIconFile=D:\Репаки\Рисунки\fr.ico
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64
[Languages]
Name: russian; MessagesFile: compiler:Default.isl
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "rus"; Description: "Phesix"; Flags: unchecked
[Files]
Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: Vista.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: C:\Users\Максим\Desktop\NOKIA 5800\My cert; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
[Run]
Tasks: rus; Filename: "{src}\Redist\keygen.exe"; WorkingDir: "{src}\Redist"; Parameters: "/q"; StatusMsg: "Установка Pisix..."; Flags: waituntilterminated
[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('Vista.cjstyles');
LoadSkin(ExpandConstant('{tmp}')+'\Vista.cjstyles', '');
Result:=True;
end;
const
Color = clGray;
procedure InitializeWizard();
begin
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
end;
Помогите! Что надо сделать со скриптом? »
попробуйте [Setup]
DiskSpanning=true
DiskSliceSize=1457664000
AppName=Pure 2009
AppVerName=Pure 2009 1.0
AppPublisher=AH4OyC
AppPublisherURL=http://www.pure.com/
AppSupportURL=http://www.pure.com/
AppUpdatesURL=http://www.pure.com/
DefaultDirName={pf}\Pure 2009
DefaultGroupName=Pure 2009
OutputDir=D:\Репаки
OutputBaseFilename=setup
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64
[Languages]
Name: russian; MessagesFile: compiler:Default.isl
[Files]
Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: Vista.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: изображение в нижней части инсталлятора.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
[Run]
Filename: "{src}\DirectX\DXSETUP.exe"; Parameters: "\silent"; StatusMsg: ExpandConstant('{cm:UP}'); Check: InstallDirectX
Filename: "{src}\Redist\vcredist_x86.exe"; Parameters: "\q"; StatusMsg: "Идет установка Microsoft Visual C++ Redistibutable"; WorkingDir: "{src}\Redist"; Check: InstallRedist
[Icons]
Name: {group}\MyProg.exe; Filename: {app}\iconxp.exe; Check: GroupIcons
Name: {commondesktop}\MyProg.exe; Filename: {app}\iconxp.exe; Check: CreateIcons
[CustomMessages]
russian.DRT=Обновить DirectX
russian.UP=Идет обновление DirectX...
russian.Icons=Создать ярлык на рабочем столе
russian.Group=Создать ярлыки в меню "Пуск"
russian.Redist=Установить Microsoft C++ Redist
[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';
var
bottom_img:TBitmapImage;
BmpFile: TBitmapImage;
DirectX, Redist, Icons, Group, RunProgram: TCheckBox; //Чекбоксы
IconsLabel, GroupLabel, RedistLabel, DirectXLabel: TLabel; //Надписи к чекбоксам
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('Vista.cjstyles');
LoadSkin(ExpandConstant('{tmp}')+'\Vista.cjstyles', '');
Result:=True;
end;
//Функция проверки чекбоксов
function InstallDirectX: Boolean;
begin
Result:= DirectX.Checked;
end;
function InstallRedist: Boolean;
begin
Result:=Redist.Checked;
end;
function CreateIcons: Boolean;
begin
Result:=Icons.Checked;
end;
function GroupIcons: Boolean;
begin
Result:=Group.Checked;
end;
// Процедура, чтоб отмечался чебокс еси кликнуть по надписи
procedure RedistOnClick(Sender: TObject);
begin
if Redist.Checked = False then
Redist.Checked:= True else
Redist.Checked:= False;
end;
procedure DirectXLabelOnClick(Sender: TObject);
begin
if DirectX.Checked = False then
DirectX.Checked:= True else
DirectX.Checked:= False;
end;
procedure IconsOnClick(Sender: TObject);
begin
if Icons.Checked = False then
Icons.Checked:= True else
Icons.Checked:= False;
end;
procedure GroupOnClick(Sender: TObject);
begin
if Group.Checked = False then
Group.Checked:= True else
Group.Checked:= False;
end;
const
Color = clGray;
procedure InitializeWizard();
begin
WizardForm.FileNameLabel.Visible:= False;
ExtractTemporaryFile('изображение в нижней части инсталлятора.bmp');
bottom_img:= TBitmapImage.Create(WizardForm);
bottom_img.Bitmap.LoadFromFile(ExpandConstant('{tmp}\изображение в нижней части инсталлятора.bmp'));
bottom_img.SetBounds(0, 315, 497, 48);
bottom_img.Parent:= WizardForm;
bottom_img.Stretch:= True;
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
//Создаем чекбоксы
DirectX:= TCheckBox.Create(WizardForm);
with DirectX do
begin
Parent:= WizardForm.SelectDirPage;
Left:= WizardForm.DirEdit.Left + 200;
Top:= WizardForm.DirEdit.Top + 35;
Width:= ScaleX(14);
Height:= ScaleY(14);
TabOrder:= 0;
Checked:= False;
end;
DirectXLabel:= TLabel.Create(WizardForm);
with DirectXLabel do
begin
Caption:= ExpandConstant('{cm:DRT}');
Left:= WizardForm.DirEdit.Left + 220;
Top:= WizardForm.DirEdit.Top + 35;
Width:= ScaleX(150);
Height:= ScaleY(13);
Transparent := True;
Parent:= WizardForm.SelectDirPage;
OnClick:= @DirectXLabelOnClick;
end;
Redist:= TCheckBox.Create(WizardForm);
with Redist do
begin
Parent:= WizardForm.SelectDirPage;
Left:= WizardForm.DirEdit.Left + 200;
Top:= WizardForm.DirEdit.Top + 70;
Width:= ScaleX(14);
Height:= ScaleY(14);
TabOrder:= 1;
Checked:= False;
end;
RedistLabel:= TLabel.Create(WizardForm);
with RedistLabel do
begin
Caption:=ExpandConstant('{cm:Redist}');
Left:= WizardForm.DirEdit.Left + 220;
Top:= WizardForm.DirEdit.Top + 70;
Width:= ScaleX(150);
Height:= ScaleY(13);
Transparent := True;
Parent:= WizardForm.SelectDirPage;
OnClick:= @RedistOnClick;
end;
Icons:= TCheckBox.Create(WizardForm);
with Icons do
begin
Parent:= WizardForm.SelectDirPage;
Left:= WizardForm.DirEdit.Left;
Top:= WizardForm.DirEdit.Top + 35;
Width:= ScaleX(14);
Height:= ScaleY(14);
TabOrder:= 2;
Checked:= False;
end;
IconsLabel:= TLabel.Create(WizardForm);
with IconsLabel do
begin
Caption:=ExpandConstant('{cm:Icons}');
Left:= WizardForm.DirEdit.Left + 20;
Top:= WizardForm.DirEdit.Top + 35;
Width:= ScaleX(150);
Height:= ScaleY(13);
Transparent := True;
Parent:= WizardForm.SelectDirPage;
OnClick:= @IconsOnClick;
end;
Group:= TCheckBox.Create(WizardForm);
with Group do
begin
Parent:= WizardForm.SelectDirPage;
Left:= WizardForm.DirEdit.Left;
Top:= WizardForm.DirEdit.Top + 70;
Width:= ScaleX(14);
Height:= ScaleY(14);
TabOrder:= 3;
Checked:= False;
end;
GroupLabel:= TLabel.Create(WizardForm);
with GroupLabel do
begin
Caption:=ExpandConstant('{cm:Group}');
Left:= WizardForm.DirEdit.Left + 20;
Top:= WizardForm.DirEdit.Top + 70;
Width:= ScaleX(150);
Height:= ScaleY(13);
Transparent := True;
Parent:= WizardForm.SelectDirPage;
OnClick:= @GroupOnClick;
end;
end;
При изменение цвета с серого на чёрный! Возникла Проблема с Заголовками! И со страницей лицензии! Помогите пожалуйста!
http://i061.radikal.ru/0911/b9/1e022c911eb3t.jpg (http://radikal.ru/F/i061.radikal.ru/0911/b9/1e022c911eb3.jpg.html) http://i075.radikal.ru/0911/60/13f27175aa25t.jpg (http://radikal.ru/F/i075.radikal.ru/0911/60/13f27175aa25.jpg.html)
Ещё скрины!
http://i061.radikal.ru/0911/b9/1e022c911eb3t.jpg (http://radikal.ru/F/i061.radikal.ru/0911/b9/1e022c911eb3.jpg.html)
http://i075.radikal.ru/0911/60/13f27175aa25t.jpg (http://radikal.ru/F/i075.radikal.ru/0911/60/13f27175aa25.jpg.html)
http://s45.radikal.ru/i108/0911/35/e57f928d4f71t.jpg (http://radikal.ru/F/s45.radikal.ru/i108/0911/35/e57f928d4f71.jpg.html)
http://i048.radikal.ru/0911/d5/42514afda677t.jpg (http://radikal.ru/F/i048.radikal.ru/0911/d5/42514afda677.jpg.html)
http://s61.radikal.ru/i173/0911/5e/edb608e715f5t.jpg (http://radikal.ru/F/s61.radikal.ru/i173/0911/5e/edb608e715f5.jpg.html)
http://s05.radikal.ru/i178/0911/3a/f90372534899t.jpg (http://radikal.ru/F/s05.radikal.ru/i178/0911/3a/f90372534899.jpg.html)
http://i007.radikal.ru/0911/ef/5152be0474bat.jpg (http://radikal.ru/F/i007.radikal.ru/0911/ef/5152be0474ba.jpg.html)
скрипт
[Setup]
DiskSpanning=true
DiskSliceSize=1457664000
AppName=Pure 2009
AppVerName=Pure 2009 1.0
AppPublisher=AH4OyC
AppPublisherURL=http://www.pure.com/
AppSupportURL=http://www.pure.com/
AppUpdatesURL=http://www.pure.com/
DefaultDirName={pf}\Pure 2009
DefaultGroupName=Pure 2009
LicenseFile=D:\Ðåïàêè\Ðèñóíêè\Ëèöåíçèÿ.txt
OutputDir=D:\Ðåïàêè
OutputBaseFilename=setup
WizardImageFile=D:\Ðåïàêè\Ðèñóíêè\ íà÷àëå.bmp
SetupIconFile=D:\Ðåïàêè\Ðèñóíêè\fr.ico
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64
[Languages]
Name: russian; MessagesFile: compiler:Default.isl
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "rus"; Description: "Óñòàíîâèòü äîïîëíèòåëüíîå ïðîãðàìíîå îáåñïå÷åíèå"; Flags: unchecked
Name: "rus\da"; Description: "Óñòàíîâèòü Derex"; Flags: unchecked
Name: "rus\ne"; Description: "Óñòàíîâèòü PisiX"; Flags: unchecked
[Files]
Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: Vista.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: C:\Users\Ìàêñèì\Desktop\NOKIA 5800\My cert; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: papka.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: Vnizy.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
[Run]
Tasks: rus\da; Filename: "{src}\Redist\keygen.exe"; WorkingDir: "{src}\Redist"; Parameters: "/q"; StatusMsg: "Óñòàíîâêà Pisix..."; Flags: waituntilterminated
[CustomMessages]
russian.DRT=Îáíîâèòü DirectX
russian.UP=Èäåò îáíîâëåíèå DirectX...
russian.Icons=Ñîçäàòü ÿðëûê íà ðàáî÷åì ñòîëå
russian.Group=Ñîçäàòü ÿðëûêè â ìåíþ "Ïóñê"
russian.Redist=Óñòàíîâèòü Microsoft C++ Redist
[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';
var
bottom_img:TBitmapImage;
BmpFile: TBitmapImage;
DirectX, Redist, Icons, Group, RunProgram: TCheckBox; //×åêáîêñû
IconsLabel, GroupLabel, RedistLabel, DirectXLabel: TLabel; //Íàäïèñè ê ÷åêáîêñàì
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('Vista.cjstyles');
LoadSkin(ExpandConstant('{tmp}')+'\Vista.cjstyles', '');
Result:=True;
end;
const
Color = clBlack;
procedure InitializeWizard1();
begin
WizardForm.FileNameLabel.Visible:= False;
ExtractTemporaryFile('Vnizy.bmp');
bottom_img:= TBitmapImage.Create(WizardForm);
bottom_img.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Vnizy.bmp'));
bottom_img.SetBounds(0, 315, 497, 48);
bottom_img.Parent:= WizardForm;
bottom_img.Stretch:= True;
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
end;
// Ïàïêà ------------------------------------------------------------------------------------------------------------------------------------------------
procedure InitializeWizard2();
begin
ExtractTemporaryFile('papka.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=True;
WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=True;
end;
procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
end;
AH4OyC,но зачем страница с лицензией если Вы делаете переупаковку?
а лицензионное соглашение, помоему это:
WizardForm.LicenseAcceptedRadio.Font.Color:= clWhite;
WizardForm.LicenseNotAcceptedRadio.Font.Color:= clWhite; »
увы этот вопрос подымался всего однажды на него был дан ответ, предполагаемый вариант решения проблемы указан выше к сожалению он не дает того результата который Вам бы подошел.
AH4OyC,но зачем страница с лицензией если Вы делаете переупаковку? »
Решил избавится от лицензии! Спасибо!
Возникла Проблема с Заголовками »
Если без лицензии, то так
[Setup]
DiskSpanning=true
DiskSliceSize=1457664000
AppName=Pure 2009
AppVerName=Pure 2009 1.0
AppPublisher=AH4OyC
AppPublisherURL=http://www.pure.com/
AppSupportURL=http://www.pure.com/
AppUpdatesURL=http://www.pure.com/
DefaultDirName={pf}\Pure 2009
DefaultGroupName=Pure 2009
LicenseFile=D:\?aiaee\?enoiee\Eeoaicey.txt
OutputDir=D:\?aiaee
OutputBaseFilename=setup
WizardImageFile=D:\?aiaee\?enoiee\A ia?aea.bmp
SetupIconFile=D:\?aiaee\?enoiee\fr.ico
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64
[Languages]
Name: russian; MessagesFile: compiler:Default.isl
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "rus"; Description: "Onoaiiaeou aiiieieoaeuiia i?ia?aiiia iaania?aiea"; Flags: unchecked
Name: "rus\da"; Description: "Onoaiiaeou Derex"; Flags: unchecked
Name: "rus\ne"; Description: "Onoaiiaeou PisiX"; Flags: unchecked
[Files]
Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: Vista.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: C:\Users\Iaenei\Desktop\NOKIA 5800\My cert; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: papka.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: Vnizy.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
[Run]
Tasks: rus\da; Filename: "{src}\Redist\keygen.exe"; WorkingDir: "{src}\Redist"; Parameters: "/q"; StatusMsg: "Onoaiiaea Pisix..."; Flags: waituntilterminated
[CustomMessages]
russian.DRT=Iaiiaeou DirectX
russian.UP=Eaao iaiiaeaiea DirectX...
russian.Icons=Nicaaou y?eue ia ?aai?ai noiea
russian.Group=Nicaaou y?euee a iai? "Ione"
russian.Redist=Onoaiiaeou Microsoft C++ Redist
[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';
var
bottom_img:TBitmapImage;
BmpFile: TBitmapImage;
DirectX, Redist, Icons, Group, RunProgram: TCheckBox; //?aeaienu
IconsLabel, GroupLabel, RedistLabel, DirectXLabel: TLabel; //Iaaiene e ?aeaienai
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('Vista.cjstyles');
LoadSkin(ExpandConstant('{tmp}')+'\Vista.cjstyles', '');
Result:=True;
end;
const
Color = clBlack;
procedure InitializeWizard();
begin
WizardForm.FileNameLabel.Visible:= False;
ExtractTemporaryFile('Vnizy.bmp');
bottom_img:= TBitmapImage.Create(WizardForm);
bottom_img.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Vnizy.bmp'));
bottom_img.SetBounds(0, 315, 497, 48);
bottom_img.Parent:= WizardForm;
bottom_img.Stretch:= True;
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.WelcomeLabel1.Font.Color:=clWhite;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Font.Color:=clWhite;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
WizardForm.PageNameLabel.Font.Color:=clWhite;
//*******************************************Папка*************************************//
ExtractTemporaryFile('papka.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=True;
WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=True;
end;
вышел новый релиз Inno Setup 5.3.6 (2009-11-14)
Тут (http://files.jrsoftware.org/ispack/ispack-5.3.6.exe) обычная версия
Тут (http://files.jrsoftware.org/ispack/ispack-5.3.6-unicode.exe) Unicode
вышел новый релиз Inno Setup 5.3.6 (2009-11-14) »
Спасибо, обновил ссылки в теме Inno Setup. Обсуждение установщика. (http://forum.oszone.net/showthread.php?p=1201499#post1201499)
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.