[No4noylis]

А что это за строка? : Код: WizardForm.ComponentsList.LoadBGBmpFromFile(BGImgFile, WizardForm.ComponentsList.Left+BorderWidt »

ntrx, именно эта строка ставит картиночку, чтобы компонент-лист был как-бы прозрачным. У меня все отлично компилировалось...
Ошибка, должно помочь если добавить это в скрипт:

Код:

procedure LoadBGBmpFromFile(FileName: String; OffsetX, OffsetY: Integer);

[Dark_Delphin]

No4noylis, вот такое выбивает эта строка((((

[VASYAKRN]

Пожалста подскажите как сделать деинсталятор похож на инсталятор(добавить маску маска и сделать 3 странице:Приветствие,Деинсталяция и готово)
ссилка

[Gnom_aka_Lexander]

вот такое выбивает эта строка(((( »

Потому, что в стандартной версии нет такой функции. ставь расширенную.

[Blid]

Подскажите как сделать такую фиху

[valyok666]

Blid, ты имеешь ввиду рамку или что?

[Gnom_aka_Lexander]

Подскажите как сделать такую фиху »

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

Код:

#define NeedSize 4380
#define NeedInstallSize 7890

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

[_code]
var
  SpaceLabel:array[0..3]of TLabel;
  FreeMB, TotalMB: Cardinal;

function NumToStr(Float: Extended): String;
begin
  Result:= format('%.2n', [Float]); StringChange(Result, ',', '.');
  while (Result[Length(Result)] = '0')or((Result[Length(Result)] = '.')and(Pos('.', Result) > 0)) do
    SetLength(Result, Length(Result)-1);
end;

function MbOrTb(Float: Extended): String;
begin
  if Float < 1024 then Result:= NumToStr(Float)+' Мб' else
    if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' Гб' else
      Result:= NumToStr(Float/(1024*1024))+' Тб';
end;

procedure DirEditOnChange(Sender: TObject);
var Drive: String;
begin
  Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
  GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
  SpaceLabel[0].Caption:= 'Всего места на диске: '+MbOrTb(TotalMB);
  SpaceLabel[1].Caption:= 'Доступно места на диске: '+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  SpaceLabel[2].Caption:= 'Требуется места для установки: '+MbOrTb({#NeedInstallSize});
  SpaceLabel[3].Caption:= 'Требуется места на диске: '+MbOrTb({#NeedSize});
  WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize});
  WizardForm.SelectDirPage.Repaint;
end;

procedure InitializeWizard();
var i:integer;
begin
  { SpaceLabel }
  for i:=0 to 3 do
   begin
   SpaceLabel[i]:= TLabel.Create(WizardForm);
    with SpaceLabel[i] do
    begin
      Transparent:=True;
      Parent:= WizardForm.SelectDirpage;
      SetBounds(ScaleX(7),ScaleY(115+i*20),ScaleX(300),ScaleY(17));
    end;
  end;
  WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then begin
    DirEditOnChange(nil)
  end;
end;

Подредактировал пример - сделал покороче

[Blid]

Лександер

У меня эти строки красного цвета и при запуске выдаёт ошибку.

#define NeedSize
#define NeedInstallSize 7890

[Gnom_aka_Lexander]

У меня эти строки красного цвета и при запуске выдаёт ошибку. »

Они и должны быть красного цвета. А ошибка говорит о отм, что нет, почему-то, препроцессора в компиляторе.

вот такое выбивает эта строка(((( »

вам двоим, могу прописать такое лекарство от ошибок: Скачать -минимальная версия - только компилятор. при установке выбрать расширенную анси.
Другие варианты - с дополнительными инструментами, по ссылке у меня в подписи.

[Blid]

Лександер,
Как понять нет препроцессора в компиляторе ?