[alert30]

Johny777, а-а-а, я протупил.
DestDir отвечает куда копировать. Все понятно.

[Ivan_009]

Почему при использовании botva2p загрузка картинок проходит нормально но стоит нажать на кнопку отмена установки и выход так возникает звук ошибки....Вот код загрузки картинок....

[Gnom_aka_Lexander]

Ivan_009, Проверь, есть у тебя такой момент?

Код:

procedure DeinitializeSetup;
begin
  gdipShutdown;
end;

[Ivan_009]

Gnom_aka_Lexander, Спасибо большое как раз этот момент я упустил...

[Ivan_009]

Подскажите пожалуйста как сдесь прописать чтобы музыка воспроизводилась...BASS_Init(ExpandConstant('{tmp}\*')) //Поиск по маске...

[Johny777]

Ivan_009,
может так:
BASS_Init(ExpandConstant('{tmp}\*.mp3'))

попробуй

[Raf-9600]

Ктонить может сделать так чтобы в коде на отображение комментария к компонентам, комментарий к первому компоненту различался на разных Windows? Ну грубо говоря нужно к одному описанию как-то присобачить правило MinVersion: 4.90.3000,4.0.1381; OnlyBelowVersion: 0,6.0.5999, а если у юзера другой Windows, чтобы отображалось другое описание.

Собстно код на описание компонентов:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Components]
Name: Version; Description: Версия; Flags: fixed; Types: full compact custom;
Name: Version\101; Description: 1.01; Flags: exclusive;
Name: Version\102; Description: 1.02; Flags: exclusive;
Name: Version\103; Description: 1.03; Flags: exclusive; 
Name: Version\104; Description: 1.04; Flags: exclusive; Types: full;

[C0de]
var
  DRTF: TRichEditViewer;
  
  
procedure MemoKeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

procedure MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Key := 0;
end;

procedure RedesignWizardForm;
begin
  with WizardForm.ComponentsList do
  begin
    Width := ScaleX(212);
  end;

  DRTF := TRichEditViewer.Create(WizardForm);
  with DRTF do
  begin
    Name := 'DRTF';
    Parent := WizardForm.SelectComponentsPage;
    Left := ScaleX(220);
    Top := WizardForm.ComponentsList.Top;
    Width := ScaleX(197);
    Height := WizardForm.ComponentsList.Height;
    Color := clMenu;
    ReadOnly := True;
    ScrollBars := ssVertical;
    Text := '';
    OnKeyDown := @MemoKeyDown;
    OnKeyPress := @MemoKeyPress;
  end;
  DRTF.TabOrder := 4;
end;

type
  TComponentDesc = record Description: String; Index: Integer; end;

var
  Descs: array of TComponentDesc;
  Indx: Integer;

procedure ShowDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var i: Integer;
begin
  Indx:=-1;
  for i:= 0 to GetArrayLength(Descs)-1 do begin
  if (Descs[i].Index=Index) then begin Indx:=i; Break end; end;
  if (Indx >=0)and(Area=iaItem) then DRTF.Text:= Descs[Indx].Description; 
end;

procedure AddDescription(AIndex: Integer; ADescription: String);
var i, k: Integer;
begin
i:= GetArrayLength(Descs); SetArrayLength(Descs, i+1);
Descs[i].Description:= ADescription; Descs[i].Index:= AIndex-1
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
  WizardForm.ComponentsList.OnItemMouseMove:= @ShowDescription
  
  AddDescription(1, 'текст 1.');
  AddDescription(2, 'текст 2.');
  AddDescription(3, 'текст 3.');
  AddDescription(3, 'текст 4.');
  
end;

[Johny777]

Raf-9600,
вот если бы кто-нибудь подкинул код на определение версии винды через код, то думаю можно б было так сделать

Код:

procedure InitializeWizard();
begin
 ...  
  if  версия такоя then AddDescription(1, 'при такой версии') else (те др. версия) AddDescription(1, 'описание при другой версии') ;
...
end;

[nik1967]

Raf-9600,

типа так?

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Components]
Name: Version; Description: Версия; Flags: fixed; Types: full compact custom;
Name: Version\101; Description: 1.01; Flags: exclusive;
Name: Version\102; Description: 1.02; Flags: exclusive;
Name: Version\103; Description: 1.03; Flags: exclusive; 
Name: Version\104; Description: 1.04; Flags: exclusive; Types: full;

[ Code]
var
  DRTF: TRichEditViewer;
  
  
procedure MemoKeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

procedure MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Key := 0;
end;

procedure RedesignWizardForm;
begin
  with WizardForm.ComponentsList do
  begin
    Width := ScaleX(212);
  end;

  DRTF := TRichEditViewer.Create(WizardForm);
  with DRTF do
  begin
    Name := 'DRTF';
    Parent := WizardForm.SelectComponentsPage;
    Left := ScaleX(220);
    Top := WizardForm.ComponentsList.Top;
    Width := ScaleX(197);
    Height := WizardForm.ComponentsList.Height;
    Color := clMenu;
    ReadOnly := True;
    ScrollBars := ssVertical;
    Text := '';
    OnKeyDown := @MemoKeyDown;
    OnKeyPress := @MemoKeyPress;
  end;
  DRTF.TabOrder := 4;
end;

type
  TComponentDesc = record Description: String; Index: Integer; end;

var
  Descs: array of TComponentDesc;
  Indx: Integer;
  Version: TWindowsVersion;

procedure ShowDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var i: Integer;
begin
  Indx:=-1;
  for i:= 0 to GetArrayLength(Descs)-1 do begin
  if (Descs[i].Index=Index) then begin Indx:=i; Break end; end;
  if (Indx >=0)and(Area=iaItem) then DRTF.Text:= Descs[Indx].Description; 
end;

procedure AddDescription(AIndex: Integer; ADescription: String);
var i, k: Integer;
begin
  i:= GetArrayLength(Descs); SetArrayLength(Descs, i+1);
  Descs[i].Description:= ADescription; Descs[i].Index:= AIndex-1;
end;

function needversion():boolean;
var Version: TWindowsVersion;
begin
  GetWindowsVersionEx (Version);
  Result:= (Version.Major = 6) and (Version.Minor = 0) and (Version.Build = 5999);
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
  WizardForm.ComponentsList.OnItemMouseMove:= @ShowDescription;
if needversion then AddDescription(2, 'текст 1.') else AddDescription(2, 'текст 1.1');
  AddDescription(3, 'текст 2.');
  AddDescription(4, 'текст 3.');
  AddDescription(5, 'текст 4.'); 
end;

[Raf-9600]

типа так? »

Что-то там не так, ибо и под WinXP и под Win7 одно и то же описание =\