[NameVizavi]

Есть пару вопросов , по поводу создания инстала, не с папки, а с архифа Freearc...
Знаю, что можно, но вот принцип для меня потемки (нашол в поиске, по теме пару ссылок на скрипты, для разпаковки фриарк архивов, но они по несколько страниц, и мне их не осилить )
А вот что мне интересно,
1-е кончено же каким образом (каким скриптом) извлеч из архива все данные во временную, папку, а уже с нее делать инсталяцию (возможно какимто другим образом, если так, пожалуйста обьясните)
2-е как создать ярлыки... когда компилируеш установщик, с папки все понтно... просто выбрал с какого файла ярлык, делать и куда помещать.
P/s
Кто знает, помогите разобратся в этом, пожалуйста, оч интересно, но я в этом покаместь совсем чайник.
PP/s
если будете кидать скрипты, пожалуйста кидайте по проще, я только учусь.

[_Monster_]

Смотрите, прилепил я допусти в левый нижний угол внешнюю картинку

код я знаю. А что нужно добавить чтобы по нажатию на эту картину перенапрвляло на какой-нибудь сайт

[A1EXXX]

_Monster_, попробуй этот код...

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

[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;

[Serega]

что нужно добавить чтобы по нажатию на эту картину перенапрвляло на какой-нибудь сайт »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code]
procedure imgClick(Sender: TObject);
var
  res: Integer;
begin
  ShellExec('open', 'http://forum.oszone.net', '', '', SW_SHOWNORMAL, ewNoWait, res);
end;

procedure initializeWizard();
begin
  // рисунок в левом нижнем углу
  with TBitmapImage.Create(WizardForm) do
    begin
      Bitmap:= WizardForm.WizardSmallBitmapImage.Bitmap;
      SetBounds(0, 315, 200, 48);
      Parent:= WizardForm;
      Stretch:= True;
    end;
  // создаём Label, на который вешаем ссылку
  with TLabel.Create(WizardForm) do
    begin
      AutoSize:= False;
      SetBounds(0, 315, 200, 48);
      OnClick:= @imgClick;
      Cursor:= crHand;
      Transparent:= True;
      Parent:= WizardForm;
    end;
end;

Упс... не успел, извиняюсь за повтор.

[A1EXXX]

Serega, случайно не знаешь, как сделать такие переходы:

[Serega]

как сделать такие переходы »

Как-то так:

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code]
var
  lbl1, lbl2, lbl3, lbl4, lbl5: TLabel;

procedure initializeWizard();
begin
  WizardForm.PageDescriptionLabel.Hide;
  // создаём Label'ы, на который вешаем ссылку
  lbl1:= TLabel.Create(WizardForm);
  with lbl1 do
    begin
      AutoSize:= False;
      SetBounds(20, 40, 50, 13);
      Caption:= '|';
      Transparent:= True;
      Parent:= WizardForm.MainPanel;
    end;
  lbl2:= TLabel.Create(WizardForm);
  with lbl2 do
    begin
      AutoSize:= False;
      SetBounds(50, 40, 50, 13);
      Caption:= 'lbl2';
      Transparent:= True;
      Parent:= WizardForm.MainPanel;
    end;
  lbl3:= TLabel.Create(WizardForm);
  with lbl3 do
    begin
      AutoSize:= False;
      SetBounds(100, 40, 50, 13);
      Caption:= '|';
      Transparent:= True;
      Parent:= WizardForm.MainPanel;
    end;
  lbl4:= TLabel.Create(WizardForm);
  with lbl4 do
    begin
      AutoSize:= False;
      SetBounds(130, 40, 50, 13);
      Caption:= 'lbl4';
      Transparent:= True;
      Parent:= WizardForm.MainPanel;
    end;
  lbl5:= TLabel.Create(WizardForm);
  with lbl5 do
    begin
      AutoSize:= False;
      SetBounds(180, 40, 50, 13);
      Caption:= '|';
      Transparent:= True;
      Parent:= WizardForm.MainPanel;
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectDir then
    begin
      lbl1.Font.Color:= clBlack;
      lbl1.Font.Style:= [fsBold];
      lbl2.Font.Color:= clBlack;
      lbl2.Font.Style:= [fsBold];
      lbl3.Font.Color:= clBlack;
      lbl3.Font.Style:= [fsBold];
      lbl4.Font.Color:= clGray;
      lbl4.Font.Style:= [];
      lbl5.Font.Color:= clGray;
      lbl5.Font.Style:= [];
    end;
  if CurPageID = wpReady then
    begin
      lbl1.Font.Color:= clGray;
      lbl1.Font.Style:= [];
      lbl2.Font.Color:= clGray;
      lbl2.Font.Style:= [];
      lbl3.Font.Color:= clBlack;
      lbl3.Font.Style:= [fsBold];
      lbl4.Font.Color:= clBlack;
      lbl4.Font.Style:= [fsBold];
      lbl5.Font.Color:= clBlack;
      lbl5.Font.Style:= [fsBold];
    end;
end;

[A1EXXX]

Serega, спасибо!

[A1EXXX]

ISPack v5.3.5 & ISPack v5.3.5 Unicode

[A1EXXX]

Русификатор для Inno Setup 5.3.5
Содержит версии: cтандарт, ISPP (для 2х версий один файл), стандарт unicode, ISPP unicode (для 2х версий один файл, лежит в папке unicode).

[_Monster_]

Господа, как читал на другом форуме, что для более лучшего сжатия можно использовать программу FreeArc. Раскажите пожалуйста о том как ей воспльзоваться.