[Юрій_Окропірідзе@vk]

Извините за столь глупый вопрос , но как вы это сделали? Просто я этот скрипт буду не здесь использовать , и очень интересно как вы ето сделали

[saurn]

Юрій_Окропірідзе@vk, вы пошли по верному пути, но в оконцовке напутали с порядком применения процедур, переписав вызваную ранее другой, из-за этого был глюк с фоном, плюс совершенно ненужный дубль InitializeWizard2. Все что я изменил выделено в блоки линиями слешев (////////////////////////////)
Это:

Скрытый текст

Код:

MyLogo:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(480), ScaleX(300), ScaleY(100), False, False); - строка 326
и
with TLabel.Create(nil) do
  begin
      Parent := WizardForm;
      SetBounds(ScaleX(20), ScaleY(480), ScaleX(130), ScaleY(40));
      Transparent:=True;
      Cursor := crHand;
      OnClick:=@LogoLabelOnClick;
  end;  - строка 916 - 923

[sergey3695]

sergey3695, я не разобрался в том, что вы мне скинули ( »

Kashtan007, http://rghost.ru/59952866
В чем там разбираться?

[Юрій_Окропірідзе@vk]

Юрій_Окропірідзе@vk, вы пошли по верному пути, но в оконцовке напутали с порядком применения процедур, переписав вызваную ранее другой, из-за этого был глюк с фоном, плюс совершенно ненужный дубль InitializeWizard2. Все что я изменил выделено в блоки линиями слешев (////////////////////////////) »

Чувак, спасибо , все получилось , ты лучший!!!

[Nordek]

В чем там разбираться? »

Скрипт не рабочий.

Скрытый текст

Код:

[Setup]
AppName=VCL Styles Example
AppVerName=VCL Styles Example v1.0
AppVersion=1.0.0.0
AppCopyright=The Road To Delphi
DefaultDirName={pf}\The Road To Delphi\VCL Styles Inno Demo
DefaultGroupName=The Road To Delphi
Compression=lzma
SolidCompression=true
OutputDir=.
OutputBaseFilename=Setup
VersionInfoVersion=1.0.0.0
VersionInfoCompany=The Road To Delphi
VersionInfoDescription=VCL Styles Setup
VersionInfoTextVersion=1, 0, 0, 0
InternalCompressLevel=max

[Files]
Source: VclStyles.dll; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;
Source: Skin.vsf; DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;

[Code]
#define A = (Defined UNICODE) ? "W" : "A"
procedure LoadVCLStyle(VClStyleFile: String); external 'LoadVCLStyle{#A}@{tmp}\VclStyles.dll stdcall delayload';
procedure UnLoadVCLStyles; external 'UnLoadVCLStyles@{tmp}\VclStyles.dll stdcall delayload';

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

procedure DeinitializeSetup();
begin
  UnLoadVCLStyles;
end;

function InitializeUninstall(): Boolean;
begin
  FileCopy(ExpandConstant('{app}\VclStyles.dll'), ExpandConstant('{tmp}\VclStyles.dll'), False);
  FileCopy(ExpandConstant('{app}\Skin.vsf'), ExpandConstant('{tmp}\Skin.vsf'), False);
  LoadVCLStyle(ExpandConstant('{tmp}\Skin.vsf'));
  Result := True;
end;

procedure DeinitializeUninstall;
begin
  UnLoadVCLStyles;
end;

[sergey3695]

Скрипт не рабочий. »

для Ansi. забыл

[ROMKA-1977]

Подскажите возможно ли в инсталяторах Inno Setup (использую стандартную Ansi) на странице распаковки архивов вывести подробный список установки как в инсталяторах NSIS ?

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

[Dodakaedr]

ROMKA-1977,

Пример

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[Files]
Source: "compiler:Languages\*"; DestDir: {app}; BeforeInstall: AddToMemo; Flags: nocompression recursesubdirs createallsubdirs
Source: "compiler:Examples\*"; DestDir: {app}; BeforeInstall: AddToMemo; Flags: nocompression recursesubdirs createallsubdirs

[Code]
var
  FilesMemo: TNewMemo;

procedure AddToMemo();
var
  AFile: String;
begin
  AFile := ExpandConstant(CurrentFilename);
  if ExtractFileExt(AFile) = '' then
  FilesMemo.Lines.Add('CreateFolder: ' + RemoveBackslash(AFile))
  else
    FilesMemo.Lines.Add('Extract: ' + AFile);
end;

procedure InitializeWizard();
begin
  FilesMemo := TNewMemo.Create(WizardForm);
  FilesMemo.SetBounds(ScaleX(0), ScaleY(80), ScaleX(418), ScaleY(120));
  FilesMemo.WordWrap := False;
  FilesMemo.Parent := WizardForm.InstallingPage;
  FilesMemo.ScrollBars := ssVertical;
  FilesMemo.ReadOnly := True;
  FilesMemo.Clear;
end;

[ekspoint]

[code]
var
DetailsButton: TNewButton;
FilesMemo: TNewMemo;
Flag: Boolean;

procedure AddToMemo();
var
AFile: String;
begin
AFile:=ExpandConstant(CurrentFilename);
If ExtractFileExt(AFile)='' then
FilesMemo.Lines.Add('Копирование: '+RemoveBackslash(AFile)) else
FilesMemo.Lines.Add('Извлечение: '+AFile);
end;

procedure HideShow(Sender: TObject);
begin
If not Flag then begin
FilesMemo.Hide;
DetailsButton.Caption:='Детали';
Flag:=True;
end else begin
FilesMemo.Show;
DetailsButton.Caption:='Скрыть';
Flag:=False;
end;
end;

procedure InitializeWizard12();
begin
WizardForm.ProgressGauge.Top:=ScaleY(34);

FilesMemo:=TNewMemo.Create(WizardForm);
with FilesMemo do
begin
SetBounds(ScaleX(50), ScaleY(80), ScaleX(630), ScaleY(321));
Parent:=WizardForm.InstallingPage;
WordWrap:=True;
ScrollBars:=ssVertical;
ReadOnly:=True;
Visible:=false;
Clear;
end;

DetailsButton:=TNewButton.Create(WizardForm);
with DetailsButton do
begin
Parent:=WizardForm.InstallingPage;
Left := ScaleX(605);
Top := ScaleY(35);
Width := ScaleX(75);
Height := ScaleY(30);
Font.Size:=9;
Font.Style:= [fsItalic];
Caption:='Детали';
OnClick:=@HideShow
end;
Flag:=True;
end;

[ROMKA-1977]

Dodakaedr, ekspoint, код работает при упаковке средствами Inno Setup, а возможен ли вариант если упаковка в архивы (в моём случае архивы FreeArc + ISDone) ?