[saurn]

neorom

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

Немного измененный перепост:

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirname={pf}\My Program
Compression=none


[Files]
Source: C:\Windows\fonts\*; DestDir: {app}; BeforeInstall: BetterInfo();


[code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

var
  hInfoFile: HWND;

function SetWindowText(hWnd: HWND; lpString: String): BOOL; external 'SetWindowText{#A}@user32.dll stdcall';

procedure BetterInfo();
var
  CurrentFile: String;
begin
  CurrentFile := ExpandConstant(CurrentFilename);
  SetWindowText(hInfoFile,  ExtractFileName(CurrentFile));
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    with TNewStaticText.Create(nil) do
    begin
      Parent := FilenameLabel.Parent;
      SetBounds(FilenameLabel.Left, ScaleY(20), ProgressGauge.Width, ScaleY(16));
      hInfoFile := Handle;
      AutoSize := False;
    end;
    FilenameLabel.Hide;
  end;
end;

Оригинальный пост: http://forum.oszone.net/post-2091992-1651.html Поиском когда пользоватся будем?

Можно еще как-то так:

Код:

[Files]
Source: C:\Windows\fonts\*; DestDir: {app}; BeforeInstall:BetterInfo();

[code]
var
fLabel: TNewStaticText;

procedure BetterInfo();
begin
  fLabel.Caption := MinimizePathName(ExtractFileName(ExpandConstant(CurrentFilename)), WizardForm.FilenameLabel.Font, WizardForm.FilenameLabel.Width);
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    fLabel := TNewStaticText.Create(nil)
    with fLabel do
    begin
      Parent := FilenameLabel.Parent;
      SetBounds(FilenameLabel.Left, ScaleY(20), ProgressGauge.Width, ScaleY(16));
    end;
    FilenameLabel.Hide;
  end;
end;