» Inno Setup (создание инсталяционных пакетов)

Большое Вам спасибо! проблема решена способом innonewbie и отдельное спасибо vint56 за исправленный скрипт.
P.S. Может ещё кто подскажет, как сделать картинку на весь инсталлятор на 2-й, 3-ей и т.д. страницах?

Black_Ghost, есть такой пример

Всем привет! Хочу Вам представить программу для работы с окнами и тем что на них есть

InqSoft Window Scanner v1.7

Тип лицензии: Бесплатная
Интерфейс на Русском языке: Есть

Что может и умеет написано на самом сайте:

Перейти

Можете добавить в шапку как "Дополнительные утилиты для Inno Setup"

Мне кто нибудь ответит на мой вопрос????

Habib2302 ISDone 0.6final http://rghost.ru/45723259

vint56
обрати внимание на выделенный жирным текст в моем вопросе
и скопируй часть скрипта которая тербуется в мой
[more=скрипт]
Код: ; Скрипт создан через Мастер Inno Setup Script.
; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP!

#define MyAppName "AIDA64"
#define MyAppVersion "2.85.2400"
#define MyAppPublisher "Copyright (c) 1995-2013 FinalWire Ltd."
#define MyAppURL "http://www.aida64.com/"
#define AIDA641 "AIDA64 Extreme Edition"
#define AIDA642 "AIDA64 Extreme Engineer"
#define AIDA643 "AIDA64 Business Edition"
#define AIDA64EXE1 "aida64.exe"
#define AIDA64EXE2 "aida64.exe"
#define AIDA64EXE3 "aida64.exe"
#define AuthRep "Xabib"
#include "WinTB.iss"
#include "botva2.iss"

[Setup]
; Примечание: Значение AppId идентифицирует это приложение.
; Не используйте одно и тоже значение в разных установках.
; (Для генерации значения GUID, нажмите Инструменты | Генерация GUID.)
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\FinalWire
DefaultGroupName=FinalWire
AllowNoIcons=true
OutputBaseFilename={#MyAppName} {#MyAppVersion}
SetupIconFile=ico.ico
Compression=lzma/Ultra64
SolidCompression=true
InternalCompressLevel=Ultra64
DiskSpanning=false
DiskSliceSize=736000000
ShowLanguageDialog=auto
SlicesPerDisk=4
UninstallDisplayIcon={app}\ico.ico
InfoBeforeFile=info.rtf
;Авторские права.
VersionInfoCopyright={#AuthRep}
;Производитель.
AppPublisher={#AuthRep}
RawDataResource=Botva:botva2.dll|b2p:b2p.dll|Logo:logo.png|bPic:bPic.png|LiPic:LiPic.png|aPic:aPic.png
AppCopyright={#AuthRep}
AppVerName={#MyAppVersion}
UninstallDisplayName={#MyAppName}
AppModifyPath={app}
VersionInfoVersion={#MyAppVersion}
VersionInfoTextVersion={#MyAppVersion}
VersionInfoProductName={#MyAppName}
VersionInfoProductVersion={#MyAppVersion}
DirExistsWarning=no
AppendDefaultDirName=no
AppendDefaultGroupName=no
LicenseFile=license.txt
DisableReadyPage=yes
AppId=TheBestAidaInstallEver

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Components]
Name: AIDA641; Description: {#AIDA641}; Flags: exclusive;
Name: AIDA642; Description: {#AIDA642}; Flags: exclusive;
Name: AIDA643; Description: {#AIDA643}; Flags: exclusive;

[Tasks]
Name: icons; Description: Создать Ярлыки:;
Name: icons\desktop; Description: На Рабочем Столе;
Name: icons\quicklaunchicon; Description: В Панели Задач; OnlyBelowVersion: 0,6.1;

[Files]
;Файлы распаковываемые в папку с игрой. Необходимы для деинсталлятора;
Source: WinTB.dll; Flags: dontcopy;
Source: info.rtf; DestDir: {app}; Flags: ignoreversion
Source: license.txt; DestDir: {app}; Flags: ignoreversion
Source: ico.ico; DestDir: {app}; Flags: ignoreversion
Source: 1.ico; DestDir: {app}; Flags: ignoreversion
Source: 2.ico; DestDir: {app}; Flags: ignoreversion
Source: {app}\{#AIDA641}\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Components: AIDA641;
Source: {app}\{#AIDA642}\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Components: AIDA642;
Source: {app}\{#AIDA643}\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Components: AIDA643;
; Примечание: Не используйте "Flags: ignoreversion" для системных файлов

[Icons]
Name: {group}\{#AIDA641}; Filename: {app}\{#AIDA64EXE1}; Components: AIDA641;
Name: {group}\{#AIDA642}; Filename: {app}\{#AIDA64EXE2}; Components: AIDA642;
Name: {group}\{#AIDA643}; Filename: {app}\{#AIDA64EXE3}; Components: AIDA643;
Name: {group}\{cm:UninstallProgram,{#AIDA641}}; Filename: {uninstallexe}; Components: AIDA641; IconFilename: {app}\1.ico;
Name: {group}\{cm:UninstallProgram,{#AIDA642}}; Filename: {uninstallexe}; Components: AIDA642; IconFilename: {app}\1.ico;
Name: {group}\{cm:UninstallProgram,{#AIDA643}}; Filename: {uninstallexe}; Components: AIDA643; IconFilename: {app}\2.ico;
Name: {group}\Сайт {#MyAppName}; Filename: {#MyAppURL}; Components: AIDA641;
Name: {group}\Сайт {#MyAppName}; Filename: {#MyAppURL}; Components: AIDA642;
Name: {group}\Сайт {#MyAppName}; Filename: {#MyAppURL}; Components: AIDA643;
Name: {group}\Справка {#AIDA641}; Filename: {app}\aida64.chm; Components: AIDA641;
Name: {group}\Справка {#AIDA642}; Filename: {app}\aida64.chm; Components: AIDA642;
Name: {group}\Справка {#AIDA643}; Filename: {app}\aida64.chm; Components: AIDA643;
Name: {commondesktop}\{#AIDA641}; Filename: {app}\{#AIDA64EXE1}; Tasks: icons\desktop; Components: AIDA641;
Name: {commondesktop}\{#AIDA642}; Filename: {app}\{#AIDA64EXE2}; Tasks: icons\desktop; Components: AIDA642;
Name: {commondesktop}\{#AIDA643}; Filename: {app}\{#AIDA64EXE3}; Tasks: icons\desktop; Components: AIDA643;
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#AIDA641}; Filename: {app}{#AIDA64EXE1}; Tasks: icons\quicklaunchicon; Components: AIDA641;
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#AIDA642}; Filename: {app}{#AIDA64EXE2}; Tasks: icons\quicklaunchicon; Components: AIDA642;
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#AIDA643}; Filename: {app}{#AIDA64EXE3}; Tasks: icons\quicklaunchicon; Components: AIDA643;

[Run]
Filename: {app}\{#AIDA64EXE1}; Description: "{cm:LaunchProgram,{#StringChange(AIDA641, '&', '&&')}}"; Flags: nowait postinstall skipifsilent Unchecked; Components: AIDA641;
Filename: {app}\{#AIDA64EXE2}; Description: "{cm:LaunchProgram,{#StringChange(AIDA642, '&', '&&')}}"; Flags: nowait postinstall skipifsilent Unchecked; Components: AIDA642;
Filename: {app}\{#AIDA64EXE3}; Description: "{cm:LaunchProgram,{#StringChange(AIDA643, '&', '&&')}}"; Flags: nowait postinstall skipifsilent Unchecked; Components: AIDA643;

[Messages]
BeveledLabel=RePack by {#AuthRep}

[.....Code]
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

const
RT_RCDATA = 10;
APPID_AIDA_EXTREME = 'AIDA64 Extreme Edition';
APPID_AIDA_ENGINEER = 'AIDA64 Extreme Engineer';
APPID_AIDA_BUISNES = 'AIDA64 Business Edition';

WAIT_OBJECT_0 = $0;
STARTF_USESHOWWINDOW = 1;
NORMAL_PRIORITY_CLASS = $00000020;
INFINITE = $FFFFFFFF;

type
_STARTUPINFO = record
cb: DWORD;
#ifdef UNICODE
lpReserved, lpDesktop, lpTitle: PAnsiChar;
#else
lpReserved, lpDesktop, lpTitle: PChar;
#endif
dwX, dwY, dwXSize, dwYSize, dwXCountChars, dwYCountChars, dwFillAttribute, dwFlags: DWORD;
wShowWindow, cbReserved2: Word;
lpReserved2: Byte;
hStdInput, hStdOutput, hStdError: THandle;
end;

_PROCESS_INFORMATION = record
hProcess: THandle;
hThread: THandle;
dwProcessId: DWORD;
dwThreadId: DWORD;
end;


function CloseHandle(hObject: THandle): BOOL; external 'CloseHandle@kernel32.dll stdcall';
function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD; external 'WaitForSingleObject@kernel32.dll stdcall';
#ifdef UNICODE
function CreateProcess(lpApplicationName, lpCommandLine: PAnsiChar; lpProcessAttributes, lpThreadAttributes: Longint; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment, lpCurrentDirectory: PAnsiChar; const lpStartupInfo: _STARTUPINFO; var lpProcessInformation: _PROCESS_INFORMATION): BOOL; external 'CreateProcess{#A}@kernel32.dll stdcall';
#else
function CreateProcess(lpApplicationName, lpCommandLine: PChar; lpProcessAttributes, lpThreadAttributes: Longint; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment, lpCurrentDirectory: PChar; const lpStartupInfo: _STARTUPINFO; var lpProcessInformation: _PROCESS_INFORMATION): BOOL; external 'CreateProcess{#A}@kernel32.dll stdcall';
#endif

var
TDV: TFolderTreeView;
TFV: TStartMenuFolderTreeView;
ResultCode: Integer;
lPLogo, bPicHandle, bPicHandle2, lPicHandle: THandle;
BtnImage: TBitmapImage;
CheckLicense: TCheckBox;
iInitialize: Boolean;


function GetUninstallPath(const AppIds: array of String): array of String;
var
StringList: TStringList;
i, Len: Integer;
Buff: String;
begin
for i := 0 to GetArrayLength(AppIds)-1 do
begin
Buff := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppIds[i] + '_is1,UninstallString|}'));
if Buff <> '' then
begin
Len := GetArrayLength(Result);
SetArrayLength(Result, Len+1);
Result[Len] := Buff;
end;
end;
end;


procedure UninstallApps(const UninstallPathes: array of String);
var
pi: _PROCESS_INFORMATION;
si: _STARTUPINFO;
i: Integer;
begin
for i := 0 to GetArrayLength(UninstallPathes)-1 do
begin
si.cb := SizeOf(si);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_SHOWNORMAL;
#ifdef UNICODE
if not CreateProcess('', PAnsiChar(UninstallPathes[i]), 0, 0, False, NORMAL_PRIORITY_CLASS, '', '', si, pi) then
#else
if not CreateProcess('', PChar(UninstallPathes[i]), 0, 0, False, NORMAL_PRIORITY_CLASS, '', '', si, pi) then
#endif
begin
MsgBox(SysErrorMessage(DLLGetLastError), mbCriticalError, MB_OK);
Exit;
end;
try
while WaitForSingleObject(pi.hProcess, INFINITE) <> WAIT_OBJECT_0 do Application.ProcessMessages;
finally
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
end;
end;
end;

function GetFromRes(const ResName, SaveFileName: String): Boolean;
var
lResStream: TResourceStream;
begin
lResStream := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
try
lResStream.SaveToFile(AddBackslash(ExpandConstant('{tmp}')) + SaveFileName);
finally
lResStream.Free;
Result := FileExists(AddBackslash(ExpandConstant('{tmp}')) + SaveFileName);
end;
end;

function InitializeSetup:boolean;
var
i, Len: Integer;
uArray: array of String;
begin
uArray := GetUninstallPath( ['{#SetupSetting("AppID")}', APPID_AIDA_EXTREME, APPID_AIDA_BUISNES, APPID_AIDA_ENGINEER] );
Len := GetArrayLength(uArray);
Result := Len = 0;
if not Result then if MsgBox('Перед установкой необходимо удалить все старые версии приложения, вызвать программы удаления сейчас?', mbError, MB_YESNO) = IDYES then
begin
UninstallApps(uArray);
Result := InitializeSetup();
end;
end;

procedure LicenseOnClick(Sender: TObject);
begin
case TCheckBox(Sender).Checked of
True: WizardForm.LicenseAcceptedRadio.Checked := True;
False: WizardForm.LicenseNotAcceptedRadio.Checked := True;
end;
end;

procedure TDVOnChange(Sender: TObject);
begin
if IsComponentSelected('AIDA641') then
WizardForm.DirEdit.Text:= AddBackslash(TDV.Directory)+''
else
if IsComponentSelected('AIDA642') then
WizardForm.DirEdit.Text:= AddBackslash(TDV.Directory)+'';
if IsComponentSelected('AIDA643') then
WizardForm.DirEdit.Text:= AddBackslash(TDV.Directory)+'';
end;

procedure TFVOnChange(Sender: TObject);
begin
if IsComponentSelected('AIDA641') then
WizardForm.GroupEdit.Text:= AddBackslash(TFV.Directory)+''
else
if IsComponentSelected('AIDA642') then
WizardForm.GroupEdit.Text:= AddBackslash(TFV.Directory)+'';
if IsComponentSelected('AIDA643') then
WizardForm.GroupEdit.Text:= AddBackslash(TFV.Directory)+'';
end;

function OnShouldSkipPage(Sender: TWizardPage): Boolean;
begin
if WizardForm.ComponentsList.Items.Count > 0 then WizardForm.Tag:= 1; // отображаются страницы выбора папки и компонентов
end;

procedure RedesignWizardForm;
begin
with WizardForm.ComponentsList do
begin
Top := ScaleY(50);
Height := ScaleY(155);
end;
end;

procedure InitializeWizard;
begin
RedesignWizardForm;
WizardForm.TypesCombo.hide;
PageFromID(wpSelectDir).OnShouldSkipPage:= @OnShouldSkipPage;
WizardForm.LicenseNotAcceptedRadio.Hide;
WizardForm.LicenseAcceptedRadio.Hide;
WizardForm.LicenseMemo.Height := ScaleY(175);

CheckLicense:= TCheckBox.Create(WizardForm);
CheckLicense.Left:= ScaleX(0);
CheckLicense.Top:= ScaleY(216);
CheckLicense.Caption:= WizardForm.LicenseAcceptedRadio.Caption;
CheckLicense.Width:= ScaleX(417);
CheckLicense.OnClick:= @LicenseOnClick;
CheckLicense.Parent:= WizardForm.LicensePage;
with WizardForm do
begin
iInitialize := True;
if GetFromRes('_IS_BOTVA', 'botva2.dll') and GetFromRes('_IS_B2P', 'b2p.dll') and GetFromRes('_IS_LOGO', 'logo.png') and GetFromRes('_IS_BPIC', 'bPic.png') and GetFromRes('_IS_LIPIC', 'LiPic.png') and GetFromRes('_IS_APIC', 'aPic.png') then
begin
bPicHandle := ImgLoad(WelcomePage.Handle, ExpandConstant('{tmp}\aPic.png'), WizardBitmapImage.Left, WizardBitmapImage.Top, WizardBitmapImage.Width, WizardBitmapImage.Height, True, True);
WizardBitmapImage.Hide;
ImgSetVisibility(bPicHandle, True);
ImgApplyChanges(WelcomePage.Handle);

bPicHandle := ImgLoad(FinishedPage.Handle, ExpandConstant('{tmp}\bPic.png'), WizardBitmapImage2.Left, WizardBitmapImage2.Top, WizardBitmapImage2.Width, WizardBitmapImage2.Height, True, True);
WizardBitmapImage2.Hide;
ImgSetVisibility(bPicHandle, True);
ImgApplyChanges(FinishedPage.Handle);

lPicHandle := ImgLoad(MainPanel.Handle, ExpandConstant('{tmp}\LiPic.png'), WizardSmallBitmapImage.Left, WizardSmallBitmapImage.Top, WizardSmallBitmapImage.Width, WizardSmallBitmapImage.Height, True, True);
WizardSmallBitmapImage.Hide;
ImgSetVisibility(lPicHandle, True);
ImgApplyChanges(MainPanel.Handle);

lPLogo:= ImgLoad(WizardForm.Handle, ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(320), ScaleX(126), ScaleY(38), True, True);
ImgApplyChanges(WizardForm.Handle);
end;

ExtractTemporaryFile('WinTB.dll');
SetTaskBarProgressValue(0, 60);
SetTaskBarProgressState(0, TBPF_ERROR);
TaskBarV10(MainForm.Handle, WizardForm.Handle, false, false, 0, 0, _m_);

TDV:= TFolderTreeView.Create(WizardForm);
TDV.Top:= WizardForm.DirEdit.Top+28;
TDV.Width:= 417;
TDV.Height:= 100;
TDV.OnChange:= @TDVOnChange;
TDV.Parent:= WizardForm.SelectDirPage;

TFV:= TStartMenuFolderTreeView.Create(nil);
TFV.Top:= WizardForm.GroupEdit.Top+28;
TFV.Width:= 417;
TFV.Height:= 100;
TFV.SetPaths(ExpandConstant('{userprograms}'),ExpandConstant('{commonprograms}'),ExpandConstant('{userstartup}'),ExpandConstant('{commonstartup}'));
TFV.OnChange:= @TFVOnChange;
TFV.Parent:= WizardForm.SelectProgramGroupPage;

with TLabel.Create(WizardForm) do
begin
Parent:=WizardForm;
AutoSize:=False;
Transparent:= true;
SetBounds(ScaleX(20), ScaleY(320), ScaleX(126), ScaleY(38));
end;
end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
Case CurPageID of
wpSelectDir: if WizardForm.Tag = 1 then
begin
WizardForm.SelectDirPage.Notebook.ActivePage:= WizardForm.SelectComponentsPage;
WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectComponents);
WizardForm.Hint:= WizardForm.PageDescriptionLabel.Caption; // запомнить SetupMessage(msgSelectDirDesc)
WizardForm.PageDescriptionLabel.Caption:= SetupMessage(msgSelectComponentsDesc);
end;
wpSelectComponents: if WizardForm.Tag = 1 then
begin
WizardForm.SelectComponentsPage.Notebook.ActivePage:= WizardForm.SelectDirPage;
WizardForm.DiskSpaceLabel.Caption:= WizardForm.ComponentsDiskSpaceLabel.Caption;
WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectDir);
WizardForm.PageDescriptionLabel.Caption:= WizardForm.Hint; // иначе вместо названия программы [name]
if IsComponentSelected('AIDA641') then
begin
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}')) + '{#AIDA641}';
WizardForm.GroupEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultGroupName")}')) + '{#AIDA641}';
end else
if IsComponentSelected('AIDA642') then
begin
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}')) + '{#AIDA642}'
WizardForm.GroupEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultGroupName")}')) + '{#AIDA642}'
end else
if IsComponentSelected('AIDA643') then
begin
WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultDirName")}')) + '{#AIDA643}'
WizardForm.GroupEdit.Text := AddBackslash(ExpandConstant('{#SetupSetting("DefaultGroupName")}')) + '{#AIDA643}'
end;
end;
wpSelectTasks:
begin
WizardForm.NextButton.Caption:= SetupMessage(msgButtonInstall);
end;
end;
end;

procedure DeinitializeSetup();
begin
if iInitialize then
begin
gdipShutdown;
TaskBarDestroy;
end;
end;

procedure InitializeUninstallProgressForm;
begin
with UninstallProgressForm do
begin
if GetFromRes('_IS_BOTVA', 'botva2.dll') and GetFromRes('_IS_B2P', 'b2p.dll') and GetFromRes('_IS_LOGO', 'logo.png') and GetFromRes('_IS_LIPIC', 'LIPic.png') then
begin
lPicHandle := ImgLoad(MainPanel.Handle, ExpandConstant('{tmp}\LiPic.png'), WizardSmallBitmapImage.Left, WizardSmallBitmapImage.Top, WizardSmallBitmapImage.Width, WizardSmallBitmapImage.Height, True, True);
WizardSmallBitmapImage.Hide;
ImgSetVisibility(lPicHandle, True);
ImgApplyChanges(MainPanel.Handle);

lPLogo:= ImgLoad(UninstallProgressForm.Handle, ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(320), ScaleX(126), ScaleY(38), True, True);
ImgApplyChanges(UninstallProgressForm.Handle);
end;

with TLabel.Create(nil) do
begin
Parent:=UninstallProgressForm;
AutoSize:=False;
Transparent:= true;
SetBounds(ScaleX(20), ScaleY(320), ScaleX(126), ScaleY(38));
end;
end;
end;

procedure DeinitializeUninstall();
begin
gdipShutdown;
end;

Habib2302 вот только соеденил дальше разберайся сам
http://rghost.ru/45748804

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

Я у примерах нашол скрипт, как сделать подпись, аналогично BeveledLabel, созданием нового текста, но он не роботаєт. Вчем причина
[MORE][Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program

[Code]
Var
Text: TNewStaticText;

Procedure InitializeWizard();
begin
Text:=TNewStaticText.Create(WizardForm)
Text.Left:=10
Text.Top:=468
Text.Color:=$dbcdcc
Text.Font.Color:=$ab663d
Text.Caption:='Твой текcт'
Text.Parent:=WizardForm
end;
[/MORE]

romanNEO, всё работает, просто уменьши значение Top:=468 до ~340, иначе текст попросту "не влезает" в окно инсталлятора.

Кто знает, как изменить имя файла деинсталятора?

innonewbie
а можно сделать, чтобы разные картинки были, а не одна и та же?

Я нашол ишче один скрипк которий из архива не роботаэт так как написан. Описаниэ - Как на BeveledLabel "повесить" ссылку, чтобы текст по умолчанию не был подчеркнут, а при наведении на текст, он подчеркивался и конечно, хотелось бы, менять цвет шрифта!
[MORE][Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program

[Messages]
BeveledLabel= Copyright 2007 © Microsoft

[_Code]
procedure BevelLabelClick(Sender: TObject);
var ErrorCode: Integer;
begin
ShellExec('open','http://www.innosetup.com','', '', SW_SHOW, ewNoWait, ErrorCode)
end;

procedure InitializeWizard();
begin
with WizardForm do begin
with BeveledLabel do begin
OnClick:=@BevelLabelClick;
Font.Color:=clBlue;
Enabled:=True;
Cursor:=crHand;
end;
end;
end;[/MORE]

Black_Ghost, можно, но для этого (насколько я знаю) нужно скрывать все элементы страниц и прописывать всё вручную.

innonewbie
а ты мне можешь помочь?))

Black_Ghost, есть у меня такой [more=набросок][Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[Files]
Source: image1.bmp; DestDir: {tmp}; Flags: dontcopy solidbreak deleteafterinstall
Source: image2.bmp; DestDir: {tmp}; Flags: dontcopy solidbreak deleteafterinstall

[code]
var
MyPanel, MyPanel2, MyPanel3: TPanel;
WelcomeLabel1, WelcomeLabel2, PageNameLabel,PageDescriptionLabel,SelectDirLabel,SelectDirBrowseLabel,DiskSpaceLabel, FinishedLabel, FinishedHeadingLabel: TLabel;
BitmapImage1: TBitmapImage;

procedure InitializeWizard();
begin
ExtractTemporaryFile('image1.bmp');
WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image1.bmp'));

begin
MyPanel := TPanel.Create(WizardForm);
with MyPanel do
begin
Align := alClient;
Parent := WizardForm.welcomepage;
end;

begin
MyPanel2 := TPanel.Create(WizardForm);
with MyPanel2 do
begin
Align := alClient;
Parent := WizardForm.Finishedpage;
end;

begin
MyPanel3 := TPanel.Create(WizardForm);
with MyPanel3 do
begin
Align := alClient;
Parent := WizardForm;
end;

with WizardForm.WizardBitmapImage do
begin
Align := alClient;
Parent := MyPanel;
end;

with WizardForm.WizardBitmapImage2 do
begin
Align := alClient;
Parent := MyPanel2;
end;

BitmapImage1 := TBitmapImage.Create(WizardForm);
with BitmapImage1 do
begin
Parent := MyPanel3;
Align := alClient;
ExtractTemporaryFile('Image2.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image2.bmp'));
end;

WelcomeLabel1:= TLabel.Create(WizardForm);
WelcomeLabel1.AutoSize:= False;
with WizardForm.WelcomeLabel1 do
WelcomeLabel1.SetBounds(Left, Top, Width, Height);
WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font
WelcomeLabel1.Font.Color:= clWhite;
WelcomeLabel1.Transparent:= True;
WelcomeLabel1.WordWrap:= true;
WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;
WelcomeLabel1.Parent:= MyPanel;

WelcomeLabel2:= TLabel.Create(WizardForm);
WelcomeLabel2.AutoSize:= False;
with WizardForm.WelcomeLabel2 do
WelcomeLabel2.SetBounds(Left, Top, Width, Height);
WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font
WelcomeLabel2.Font.Color:= clWhite;
WelcomeLabel2.Transparent:= True;
WelcomeLabel2.WordWrap:= true;
WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;
WelcomeLabel2.Parent:= MyPanel;

PageNameLabel:= TLabel.Create(WizardForm);
PageNameLabel.AutoSize:= False;
with WizardForm.PageNameLabel do
PageNameLabel.SetBounds(WizardForm.PageNameLabel.Left, WizardForm.PageNameLabel.Top, WizardForm.PageNameLabel.Width, WizardForm.PageNameLabel.Height);
PageNameLabel.Font:= WizardForm.PageNameLabel.Font
PageNameLabel.Font.Color:= clWhite;
PageNameLabel.Transparent:= True;
PageNameLabel.WordWrap:= true;
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
PageNameLabel.Parent:= MyPanel3;

PageDescriptionLabel:= TLabel.Create(WizardForm);
PageDescriptionLabel.AutoSize:= False;
with WizardForm.PageDescriptionLabel do
PageDescriptionLabel.SetBounds(WizardForm.PageDescriptionLabel.Left, WizardForm.PageDescriptionLabel.Top, WizardForm.PageDescriptionLabel.Width, WizardForm.PageDescriptionLabel.Height);
PageDescriptionLabel.Font:= WizardForm.PageDescriptionLabel.Font
PageDescriptionLabel.Font.Color:= clWhite;
PageDescriptionLabel.Transparent:= True;
PageDescriptionLabel.WordWrap:= true;
PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
PageDescriptionLabel.Parent:= MyPanel3;

SelectDirLabel:= TLabel.Create(WizardForm);
SelectDirLabel.AutoSize:= False;
with WizardForm.SelectDirLabel do
SelectDirLabel.SetBounds(44, 70, WizardForm.SelectDirLabel.Width, WizardForm.SelectDirLabel.Height);
SelectDirLabel.Font:= WizardForm.SelectDirLabel.Font
SelectDirLabel.Font.Color:= clWhite;
SelectDirLabel.Transparent:= True;
SelectDirLabel.WordWrap:= true;
SelectDirLabel.Caption:= WizardForm.SelectDirLabel.Caption;
SelectDirLabel.Parent:= MyPanel3;

SelectDirBrowseLabel:= TLabel.Create(WizardForm);
SelectDirBrowseLabel.AutoSize:= False;
with WizardForm.SelectDirBrowseLabel do
SelectDirBrowseLabel.SetBounds(44, 100, WizardForm.SelectDirBrowseLabel.Width, WizardForm.SelectDirBrowseLabel.Height);
SelectDirBrowseLabel.Font:= WizardForm.SelectDirBrowseLabel.Font
SelectDirBrowseLabel.Font.Color:= clWhite;
SelectDirBrowseLabel.Transparent:= True;
SelectDirBrowseLabel.WordWrap:= true;
SelectDirBrowseLabel.Caption:= WizardForm.SelectDirBrowseLabel.Caption;
SelectDirBrowseLabel.Parent:= MyPanel3;

DiskSpaceLabel:= TLabel.Create(WizardForm);
DiskSpaceLabel.AutoSize:= False;
with WizardForm.DiskSpaceLabel do
DiskSpaceLabel.SetBounds(44, 290, WizardForm.DiskSpaceLabel.Width, WizardForm.DiskSpaceLabel.Height);
DiskSpaceLabel.Font:= WizardForm.DiskSpaceLabel.Font
DiskSpaceLabel.Font.Color:= clWhite;
DiskSpaceLabel.Transparent:= True;
DiskSpaceLabel.WordWrap:= true;
DiskSpaceLabel.Caption:= WizardForm.DiskSpaceLabel.Caption;
DiskSpaceLabel.Parent:= MyPanel3;

WizardForm.DirEdit.Left:= ScaleX(44);
WizardForm.DirEdit.Top:=ScaleY(120);
WizardForm.DirEdit.Width:=wizardForm.DirEdit.Width;
WizardForm.DirEdit.Height:=WizardForm.DirEdit.Height;
WizardForm.DirEdit.Color:=clred
WizardForm.DirEdit.Font.Color:=WizardForm.DirEdit.Font.Color;
WizardForm.DirEdit.Parent:= MyPanel3

WizardForm.DirBrowseButton.Left:=ScaleX(385);
WizardForm.DirBrowseButton.Top:=ScaleY(120);
WizardForm.DirBrowseButton.Width:=WizardForm.DirBrowseButton.Width;
WizardForm.DirBrowseButton.Height:=WizardForm.DirBrowseButton.Height;
WizardForm.DirBrowseButton.Parent:= MyPanel3;

FinishedHeadingLabel:= TLabel.Create(WizardForm);
FinishedHeadingLabel.AutoSize:= False;
with WizardForm.FinishedHeadingLabel do
FinishedHeadingLabel.SetBounds(Left, Top, Width, Height);
FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font
FinishedHeadingLabel.Font.Color:= clWhite;
FinishedHeadingLabel.Transparent:= True;
FinishedHeadingLabel.WordWrap:= true;
FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption;
FinishedHeadingLabel.Parent:= MyPanel2;

FinishedLabel:= TLabel.Create(WizardForm);
FinishedLabel.AutoSize:= False;
with WizardForm.FinishedLabel do
FinishedLabel.SetBounds(Left, Top, Width, Height);
FinishedLabel.Font:= WizardForm.FinishedLabel.Font
FinishedLabel.Font.Color:= clWhite;
FinishedLabel.Transparent:= True;
FinishedLabel.WordWrap:= true;
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
FinishedLabel.Parent:= MyPanel2;

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.SelectDirLabel.Hide
WizardForm.SelectDirBrowseLabel.Hide
WizardForm.MainPanel.Hide
//WizardForm.Bevel.Hide
WizardForm.Bevel1.Hide

WizardForm.NextButton.BringToFront;
WizardForm.backButton.BringToFront;
WizardForm.CancelButton.BringToFront;
end;
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Caption:=WizardForm.PageNameLabel.Caption
PageDescriptionLabel.Caption:=WizardForm.PageDescriptionLabel.Caption
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;

MyPanel3.Hide;
if CurPageID = wpselectdir then
MyPanel3.Show;

end;
[/more], когда-то делал для себя, но так и не закончил. Если тебя такой вариант устроит, то по аналогии, думаю, сможешь сам доделать другие страницы. Или немного изменённый [more=вариант][Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[Files]
Source: image1.bmp; DestDir: {tmp}; Flags: dontcopy solidbreak deleteafterinstall
Source: image2.bmp; DestDir: {tmp}; Flags: dontcopy solidbreak deleteafterinstall

[code]
var
MyPanel, MyPanel2, MyPanel3: TPanel;
WelcomeLabel1, WelcomeLabel2, PageNameLabel,PageDescriptionLabel,SelectDirLabel,SelectDirBrowseLabel,DiskSpaceLabel, FinishedLabel, FinishedHeadingLabel: TLabel;
BitmapImage1: TBitmapImage;

procedure InitializeWizard();
begin
ExtractTemporaryFile('image1.bmp');
WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\image1.bmp'));

begin
MyPanel := TPanel.Create(WizardForm);
with MyPanel do
begin
Align := alClient;
Parent := WizardForm;
end;

begin
MyPanel2 := TPanel.Create(WizardForm);
with MyPanel2 do
begin
Align := alClient;
Parent := WizardForm;
end;

begin
MyPanel3 := TPanel.Create(WizardForm);
with MyPanel3 do
begin
Align := alClient;
Parent := WizardForm;
end;

with WizardForm.WizardBitmapImage do
begin
Align := alClient;
Parent := MyPanel;
end;

with WizardForm.WizardBitmapImage2 do
begin
Align := alClient;
Parent := MyPanel2;
end;

BitmapImage1 := TBitmapImage.Create(WizardForm);
with BitmapImage1 do
begin
Parent := MyPanel3;
Align := alClient;
ExtractTemporaryFile('Image2.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image2.bmp'));
end;

WelcomeLabel1:= TLabel.Create(WizardForm);
WelcomeLabel1.AutoSize:= False;
with WizardForm.WelcomeLabel1 do
WelcomeLabel1.SetBounds(Left, Top, Width, Height);
WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font
WelcomeLabel1.Font.Color:= clWhite;
WelcomeLabel1.Transparent:= True;
WelcomeLabel1.WordWrap:= true;
WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;
WelcomeLabel1.Parent:= MyPanel;

WelcomeLabel2:= TLabel.Create(WizardForm);
WelcomeLabel2.AutoSize:= False;
with WizardForm.WelcomeLabel2 do
WelcomeLabel2.SetBounds(Left, Top, Width, Height);
WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font
WelcomeLabel2.Font.Color:= clWhite;
WelcomeLabel2.Transparent:= True;
WelcomeLabel2.WordWrap:= true;
WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;
WelcomeLabel2.Parent:= MyPanel;

PageNameLabel:= TLabel.Create(WizardForm);
PageNameLabel.AutoSize:= False;
with WizardForm.PageNameLabel do
PageNameLabel.SetBounds(WizardForm.PageNameLabel.Left, WizardForm.PageNameLabel.Top, WizardForm.PageNameLabel.Width, WizardForm.PageNameLabel.Height);
PageNameLabel.Font:= WizardForm.PageNameLabel.Font
PageNameLabel.Font.Color:= clWhite;
PageNameLabel.Transparent:= True;
PageNameLabel.WordWrap:= true;
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
PageNameLabel.Parent:= MyPanel3;

PageDescriptionLabel:= TLabel.Create(WizardForm);
PageDescriptionLabel.AutoSize:= False;
with WizardForm.PageDescriptionLabel do
PageDescriptionLabel.SetBounds(WizardForm.PageDescriptionLabel.Left, WizardForm.PageDescriptionLabel.Top, WizardForm.PageDescriptionLabel.Width, WizardForm.PageDescriptionLabel.Height);
PageDescriptionLabel.Font:= WizardForm.PageDescriptionLabel.Font
PageDescriptionLabel.Font.Color:= clWhite;
PageDescriptionLabel.Transparent:= True;
PageDescriptionLabel.WordWrap:= true;
PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
PageDescriptionLabel.Parent:= MyPanel3;

SelectDirLabel:= TLabel.Create(WizardForm);
SelectDirLabel.AutoSize:= False;
with WizardForm.SelectDirLabel do
SelectDirLabel.SetBounds(44, 70, WizardForm.SelectDirLabel.Width, WizardForm.SelectDirLabel.Height);
SelectDirLabel.Font:= WizardForm.SelectDirLabel.Font
SelectDirLabel.Font.Color:= clWhite;
SelectDirLabel.Transparent:= True;
SelectDirLabel.WordWrap:= true;
SelectDirLabel.Caption:= WizardForm.SelectDirLabel.Caption;
SelectDirLabel.Parent:= MyPanel3;

SelectDirBrowseLabel:= TLabel.Create(WizardForm);
SelectDirBrowseLabel.AutoSize:= False;
with WizardForm.SelectDirBrowseLabel do
SelectDirBrowseLabel.SetBounds(44, 100, WizardForm.SelectDirBrowseLabel.Width, WizardForm.SelectDirBrowseLabel.Height);
SelectDirBrowseLabel.Font:= WizardForm.SelectDirBrowseLabel.Font
SelectDirBrowseLabel.Font.Color:= clWhite;
SelectDirBrowseLabel.Transparent:= True;
SelectDirBrowseLabel.WordWrap:= true;
SelectDirBrowseLabel.Caption:= WizardForm.SelectDirBrowseLabel.Caption;
SelectDirBrowseLabel.Parent:= MyPanel3;

DiskSpaceLabel:= TLabel.Create(WizardForm);
DiskSpaceLabel.AutoSize:= False;
with WizardForm.DiskSpaceLabel do
DiskSpaceLabel.SetBounds(44, 290, WizardForm.DiskSpaceLabel.Width, WizardForm.DiskSpaceLabel.Height);
DiskSpaceLabel.Font:= WizardForm.DiskSpaceLabel.Font
DiskSpaceLabel.Font.Color:= clWhite;
DiskSpaceLabel.Transparent:= True;
DiskSpaceLabel.WordWrap:= true;
DiskSpaceLabel.Caption:= WizardForm.DiskSpaceLabel.Caption;
DiskSpaceLabel.Parent:= MyPanel3;

WizardForm.DirEdit.Left:= ScaleX(44);
WizardForm.DirEdit.Top:=ScaleY(120);
WizardForm.DirEdit.Width:=wizardForm.DirEdit.Width;
WizardForm.DirEdit.Height:=WizardForm.DirEdit.Height;
WizardForm.DirEdit.Color:=clred
WizardForm.DirEdit.Font.Color:=WizardForm.DirEdit.Font.Color;
WizardForm.DirEdit.Parent:= MyPanel3

WizardForm.DirBrowseButton.Left:=ScaleX(385);
WizardForm.DirBrowseButton.Top:=ScaleY(120);
WizardForm.DirBrowseButton.Width:=WizardForm.DirBrowseButton.Width;
WizardForm.DirBrowseButton.Height:=WizardForm.DirBrowseButton.Height;
WizardForm.DirBrowseButton.Parent:= MyPanel3;

FinishedHeadingLabel:= TLabel.Create(WizardForm);
FinishedHeadingLabel.AutoSize:= False;
with WizardForm.FinishedHeadingLabel do
FinishedHeadingLabel.SetBounds(Left, Top, Width, Height);
FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font
FinishedHeadingLabel.Font.Color:= clWhite;
FinishedHeadingLabel.Transparent:= True;
FinishedHeadingLabel.WordWrap:= true;
FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption;
FinishedHeadingLabel.Parent:= MyPanel2;

FinishedLabel:= TLabel.Create(WizardForm);
FinishedLabel.AutoSize:= False;
with WizardForm.FinishedLabel do
FinishedLabel.SetBounds(Left, Top, Width, Height);
FinishedLabel.Font:= WizardForm.FinishedLabel.Font
FinishedLabel.Font.Color:= clWhite;
FinishedLabel.Transparent:= True;
FinishedLabel.WordWrap:= true;
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
FinishedLabel.Parent:= MyPanel2;

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.SelectDirLabel.Hide
WizardForm.SelectDirBrowseLabel.Hide
WizardForm.MainPanel.Hide
WizardForm.Bevel.Hide
WizardForm.Bevel1.Hide

WizardForm.NextButton.BringToFront;
WizardForm.backButton.BringToFront;
WizardForm.CancelButton.BringToFront;
end;
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Caption:=WizardForm.PageNameLabel.Caption
PageDescriptionLabel.Caption:=WizardForm.PageDescriptionLabel.Caption
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;

MyPanel.Hide;
if CurPageID = wpWelcome then
MyPanel.Show;
MyPanel2.Hide;
if CurPageID = wpfinished then
MyPanel2.Show;

MyPanel3.Hide;
if CurPageID = wpselectdir then
MyPanel3.Show;
end;
[/more] без панели внизу.

innonewbie
что ж... И на этом спасибо

Подскажите ещё, как изменить цвет теста отображаемого в инсталляторе? Например на белый.
И как убрать белые полоски между кнопками и т.д.?

Здравствуйте, есть ли скрипт получения версии DirectX видеокарты, а не системы.

Мне для репака Кразис 3 надо. Чтобы если не DX11 то не ставилась игра. Заранее спасибо!

Black_Ghost

Для первого скрина

Код:
WizardForm.WelcomeLabel1.Font.Color:=clWhite;

sjwrec
а куда это прописывать?
я просто в конец поставил и не сработало

Код: procedure WizardFormColor();
begin
WizardForm.Color:=clBlack;
end;

Black_Ghost

Да видимо не полностью объяснил
вот так надо:


Код:
procedure InitializeWizard();
begin
WizardForm.Color:=clBlack;
WizardForm.WelcomeLabel1.Font.Color:=clWhite;
WizardForm.PageNameLabel.Font.Color:=clWhite;
end;

sjwrec
текст стал белым, но вот полосы так и остались...

хм странно, при замене цвета формы инсталла просвет между кнопок должен был стать чёрного цвета и на фоне рисунка на скрине, почти невидимым, дайте скрипт посмотреть.

sjwrec
вот скрипт

Black_Ghost
Ещё вопрос: может Вы имеете ввиду длинные полосы (Bevel) сверху и снизу инсталла?

sjwrec спасибо за скрипт.

sjwrec
Да - да) и между кнопками тоже.

romanNEO
Был рад помочь


Добавлено:
Black_Ghost
Бевелы надо скрыть добавив в тот же код который я написал вот эти строки:

Код:
WizardForm.Bevel.Visible:=False;
WizardForm.Bevel1.Visible:=False;

sjwrec
Избавился от этих полос, спасибо.
Но вот это не избавило от полосок между кнопками и папкой. И можно ли изменить цвет полосы где выбираешь папку установки? А то белый шрифт на белом фоне не очень смотрится))
И после этого у меня пропал пункт устанавливать ли ярлык.