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

Despofix
WizardForm.ComponentsList.Font.Color := clblack;

moonlight82
это меняет текст у всех элементов, а мне надо тока у подчеркнутых

Добавлено:
как я понял надо компонент лист делать через код, может кто нить даст кодик

Цитата:

как поменять местами страницу с компонентами и страницу выбора группы установки?

Сделай свою страницу и повесь на нее компоненты

Цитата:

как я понял надо компонент лист делать через код, может кто нить даст кодик

Юзай поиск, обсуждалось сотню раз...

Концепт нового инсталла для innoultra Вставка изображений на все 14 страниц инсталлятора Деинсталлятор еще не делал, чуть позже добавлю.
Основная фишка - под себя меняем только секции файлов, компонентов, задач, реестра, и т.п., в коде менять ничего не нужно

Скачать.

Хочу прикрутить к инсталлу статус панель. Пробовал использовать STS от Shegorat но там пропадает все содержимое страниц. Можно ли создать панель другим способом?

shidow найди строчки
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;
и закоментируй их. Результат тебе не понравится, зато содержимое страниц не пропадет

Gnom3
Ну а серьезно как можно сделать?)

shidow
Модуль рассчитан на создание собственного наполнения страниц, а делается это руками и головой. в дефолтном инсталле этот модуль смотрется просто не будет.

Привет всем! Кто знает почему надпись "WizardForm.Position:=poscreencenter;" убирает пункт "о программе" и везде ли это работает?

Вторая версия концепта, сделан деинсталлятор, вся настройка скрипта вынесена в секцию [Setup]
Есть небольшие косяки, но это уже в выходные доделаю до финала.
Есть вопрос - можно сделать в виде модуля, чтоб нужно было только менять расположение родных элементов, и они автоматом заменяются из подключенного модуля. Насколько это необходимо?
Скачать.

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

...
[Files]
Source: 1.txt; DestDir: {code:userpapka}; DestName:1.txt; Flags: ignoreversion
...
[Code]
const
MAX_PATH = 260;
CSIDL_PROFILE = $28;

function SHGetSpecialFolderPath(hwndOwner: HWND; lpszPath: PChar; nFolder: Integer; fCreate: BOOL): BOOL; external 'SHGetSpecialFolderPathA@shell32.dll stdcall';

function GetSpecialPath(CSIDL: Word): string;
var
s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then s := '';
Result:= PChar(s);
end;

function userpapka (A:string):string;
begin
Result:=GetSpecialPath(CSIDL_PROFILE);
end;

Возможно ли при помощи inno закрыть ярлыку выход в интернет?

shidow
да юзай FirewallInstallHelper.dll

возиожно ли изменить у папок на страницах selectdirpage и selectdirgroup page или же самому свои папки туда с нужным фоном ставить?

Дайте кто-нибудь пример текстурирования кнопок через botva2.

shidow
поискать не судьба?
http://rghost.ru/4019636

Edison007007
Я искал но которые находил все ссылки битые(

А еще дайте плиз пример вставки png изображений через botva2

знаю как сделать чтобы компонент "патч 1.0.4.0" распаковывался.
но как сделать чтобы компонент "патч 1.6.1.0" запускался с экзешника лежащего в папке с инсталлом.
чтобы можно было выбрать или то, или то.
http://i23.fastpic.ru/big/2011/0616/76/cbd79aae09850a4045a9a4cd6b791f76.png

Sergey_Demchuk
Можно попробовать с таким набором флагов:

Код: [Files]
Source: 1.txt; DestDir: {code:userpapka}; Flags: overwritereadonly ignoreversion replacesameversion nocompression dontverifychecksum

shidow
где то в промежутке с 26 страницы есть пример, от юршата

Despofix
Если ты про тот пример который он тебе давал то там ссылка битая(

shidow
значит потерли так как там ботва новая
вот [more=код загрузки изображений на первую и последнюю страницу и растяжку wizardsmall image][Setup]
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
AppPublisher=YURSHAT

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

[Icons]
Name: {group}\My Program; Filename: {app}\MyProg.exe

[Files]
Source: botva2.dll; Flags: dontcopy
Source: WizardImage.png; Flags: dontcopy
Source: WizardSmalImage.png; Flags: dontcopy

[Code]
var
SmallImage, WizardImage: Longint;
PageNameLabel, PageDescriptionLabel: TLabel;

function ImgLoad(Wnd :HWND; FileName: PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';
procedure ImgSetVisibility(img :Longint; Visible :boolean); external 'ImgSetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure ImgApplyChanges(h:HWND); external 'ImgApplyChanges@{tmp}\botva2.dll stdcall delayload';
procedure gdipShutdown; external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';


function InitializeSetup: Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
Result:=True;
end;

procedure InitializeWizard;
begin
ExtractTemporaryFile('WizardImage.png');
ExtractTemporaryFile('WizardSmalImage.png');

WizardForm.WizardBitmapImage.Hide;
WizardForm.WizardBitmapImage2.Hide;
WizardForm.WizardSmallBitmapImage.Hide;
WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;

PageNameLabel := TLabel.Create(WizardForm);
with PageNameLabel do begin
SetBounds(ScaleX(24), ScaleY(10), ScaleX(405), ScaleY(14));
AutoSize := False;
WordWrap := False;
Font.Style := [fsBold];
Transparent := True;
Parent := WizardForm.MainPanel;
end;

PageDescriptionLabel := TLabel.Create(WizardForm);
with PageDescriptionLabel do begin
SetBounds(ScaleX(40), ScaleY(26), ScaleX(389), ScaleY(25));
AutoSize := False;
WordWrap := True;
Transparent := True;
Parent := WizardForm.MainPanel;
end;

WizardImage:=ImgLoad(WizardForm.WelcomePage.Handle,ExpandConstant('{tmp}\WizardImage.png'),ScaleX(0), ScaleY(0),ScaleX(164),ScaleY(314),True,True);
WizardImage:=ImgLoad(WizardForm.FinishedPage.Handle,ExpandConstant('{tmp}\WizardImage.png'),ScaleX(0), ScaleY(0),ScaleX(164),ScaleY(314),True,True);
SmallImage:=ImgLoad(WizardForm.MainPanel.Handle,ExpandConstant('{tmp}\WizardSmalImage.png'),ScaleX(0), ScaleY(0),ScaleX(497),ScaleY(58),True,True);

ImgApplyChanges(WizardForm.WelcomePage.Handle);
ImgApplyChanges(WizardForm.FinishedPage.Handle);
ImgApplyChanges(WizardForm.MainPanel.Handle);
end;

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

ImgSetVisibility(WizardImage,False);

if CurPageID = wpWelcome then
ImgSetVisibility(WizardImage,True);
if CurPageID = wpFinished then
ImgSetVisibility(WizardImage,True);
end;

procedure DeInitializeSetup();
begin
gdipShutdown;
end;][/more]

почему в скрипте Need for Speed™ Undercover.iss v 2.4c [Final] от YURSHAT
в слайдшоу слайды показываются не с самого первого, а со второго
может кто-нибудь помочь это исправить?

Gnom3

Цитата:

Можно попробовать с таким набором флагов:

Ничего подобного, как было так и осталось.
Для эксперимента, попробовал поменять
Result:=GetSpecialPath(CSIDL_PROFILE);
на
Result:='C:\Users\User';

Теперь работает. Вопрос теперь, что не так в вызове Result:=GetSpecialPath(CSIDL_PROFILE) ??
MsgBox(GetSpecialPath(CSIDL_PROFILE), mbInformation, MB_OK) выдает результат C:\Users\User, т.е. все должно быть верно.

Sergey_Demchuk

Мне както помог такой ход:

Код:
var
Path, s: string;
................................
Path:=GetSpecialPath(CSIDL_PROFILE);
Result:=Path;

Gnom3
Ну ты пря провидец, я как раз этот метод и пробую, но не работает.

Цитата:

В твоем случае объявлен. но не использован A:string

Это точно не то, ведь Result:='C:\Users\User' работает.

Я вот пока так пробую
function userpapka (A:string):string;
var tempik: string;
begin
tempik:=GetSpecialPath(CSIDL_PROFILE)+'5';
MsgBox(tempik, mbInformation, MB_OK);
Result:=tempik;
//Result:='C:\Users\User';
end;

Но MsgBox возвращает значение C:\Users\User вместо C:\Users\User5
Почему спрашивается...

Sergey_Demchuk
мне тут в голову пришла, мысль - C:\Users\User - нужно добавить слеш в конце. и это нужно пробовать в функции SHGetSpecialFolderPath

Нет
Result:='C:\Users\User'; без слеша и работает.

Sergey_Demchuk
Интересная задача, и главное - действительно непнятно, почему нельзя к пути добавить при вызове... Вот так пробовал?

Код: function userpapka(A: string) :string;
begin
A:=ExpandConstant(GetSpecialPath(CSIDL_PROFILE));
Result:=A;
//Result:='C:\Users\User';
end;

Тоже самое пока