[Lancer2404]

как сделать чтобы при указании пути инсталлятор не приписывал дефолтную папку.
пример путь С:\Driver (выбираешь через обзор)
а он в конце приписывает (параметр defaultdirname) допустим Новая папка.Как сделать чтоб он вообще ничего не приписывал?Спасибо

[serg aka lain]

(параметр defaultdirname) допустим Новая папка.Как сделать чтоб он вообще ничего не приписывал? »

[Setup]
AppendDefaultDirName=False

[Lancer2404]

спасибо.а можете дать список похожих команд.вдруг пригодятся?

[Setup] AppendDefaultDirName=False

ошибку выдает писал в секции [setup]

[serg aka lain]

ошибку выдает »

Если и так:
AppendDefaultDirName=no
выдаст ошибку, то ...

[414895494]

Здраствуйте. Я тут новинький. Хочу научится делать красивые инсталяторы.
Можете добрые люди научить меня? Буду очень признателен.





Вот этому можете меня научить?

[A1EXXX]

414895494, код для растягивания картинки страницы приветствия:

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

[Files]
Source: C:\fon.bmp; DestDir: {tmp}; Flags: dontcopy

[code]
var
WelcomeLabel1, WelcomeLabel2: TLabel;
BmpFile: TBitmapImage;

procedure InitializeWizard();
begin
ExtractTemporaryFile('fon.bmp');

BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\fon.bmp'));
BmpFile.SetBounds(0, 0, 497, 320);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.WelcomePage;

with WizardForm do
begin
WelcomeLabel1.Hide;
WelcomeLabel2.hide;
end;

WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do
begin
WelcomeLabel1.Alignment:=taCenter;
Left:= ScaleX(176);
Top:= ScaleY(66);
Width:= ScaleX(301);
Height:= ScaleY(71);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Name:='Tahoma'
Font.Size:= 12;
Font.Color:=ClWhite
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel1.Caption;
end;

WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
WelcomeLabel2.Alignment:=taCenter;
Top:= ScaleY(136);
Left:= ScaleX(176);
Width:= ScaleX(301);
Height:= ScaleY(300);
AutoSize:= false;
WordWrap:= true;
Font.Color:=ClWhite
Font.Name:='Segoe UI'
Transparent:= true;
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel2.Caption;
end;
end;

Картинка в левый нижний угол:

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

[Files]
Source: C:\logo.bmp; DestDir: {tmp}; Flags: dontcopy

[code]
var
LogoImage:TBitmapImage;
LogoLabel: TLabel;
LogoPanel: TPanel;

procedure LogoOnClick(Sender: TObject);
var ReturnCode: Integer;
begin
ShellExec('open', 'http://сайт.ру', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('logo.bmp');
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(5);
Top := ScaleY(320);
Width := ScaleX(165);
Height := ScaleY(35);
BevelOuter := bvNone;
end;

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
Parent := LogoPanel;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
end;

LogoLabel := TLabel.Create(WizardForm);
with LogoLabel do
begin
Parent := LogoPanel;
Width := LogoPanel.Width;
Height := LogoPanel.Height;
Transparent:=True;
Cursor := crHand;
OnClick:=@LogoOnClick;
end;
end;

Растянуть верхнюю картинку:

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

[code]
procedure InitializeWizard();
begin
with WizardForm do begin
with MainPanel do
Height := Height - 1;
with WizardSmallBitmapImage do begin
Left := 0;
Top := 0;
Height := 58; //Размер рисунка
Width := 497; //
end;
with PageNameLabel do begin
Font.Name := 'Tahoma'
Width := Width - 497; //Поставьте здесь значения на 0, если хотите вернуть текст
Left := Left + 497; //
end;
with PageDescriptionLabel do begin
Font.Name := 'Tahoma'
Width := Width - 497; //Поставьте здесь значения на 0, если хотите вернуть текст
Left := Left + 497; //
end;
end;
end;

Для объединения скриптом рекомендую ISS Joiner (как начинающему)
P.S. Всё это не раз обсуждалось, юзай поиск

[414895494]

A1EXXX,
Спасибо большое.

[user_123]

Подскажите, как сделать, чтобы выводился запрос на удаление подкаталога {app}\log (по умолчанию не должен удаляться)при деинсталляции приложения?

Код:

function <...>(): Boolean;
begin
  if MsgBox(''+ ExpandConstant('{cm:removelogs}') +'', mbInformation, mb_YesNo) = idYes then
    begin
      <...>
    end;
end;

[Lancer2404]

Если и так: AppendDefaultDirName=no выдаст ошибку, то ... »

не работает в чем дело?

все решил проблему.А не подскажете какой ключ в реестре отвечает за добавление ярлыков в папку игры на windows vista?

[GrizzlyMK]

Подскажите
Можно картинку поместить не тольно на стронице приветствия.
А напротежение всей устоновки..
И как можно увеличеть окно инстала.
Зарание спасибо.