Inno Setup (создание инсталяционных пакетов). Часть 2

[Saratov]

Здравствуйте, хочу спросить, можно ли поменять иконку у папки в которую инсталлируется программа на свою? Находил скрипт, но там только на те можно поменять, которые в свойствах папки есть! Вот он:
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program

[Dirs]
Name: {app}; Attribs: system

[Files]
Source: Files\*; DestDir: {app}

[INI]
Filename: {app}\Desktop.ini; Section: ".ShellClassInfo"; Key: "IconFile"; String: "%SystemRoot%\system32\SHELL32.dll"
Filename: {app}\Desktop.ini; Section: ".ShellClassInfo"; Key: "IconIndex"; String: "27"

 

[Winst@n]

Saratov,
Вы хоть иногда ищите что то сами или сразу спрашиваете?
Данный пример можно найти в F.A.Q.

 

[Saratov]

Winst@n, я и пишу что находил такой пример в F.A.Q-е, но там можно поменять только на стандартные иконки виндовс, а мне надо, например, на ту которая у .exe файла после компиляции, или я что-то непонял в том скрипте?

 

[Winst@n]

Saratov,
Я вам написал где взять,там все понятно и ясно. Тут меняем на сваю иконку.
http://krinkels.org/showpost.php?p=1443&postcount=21

 

[Saratov]

Winst@n, Спасибо за труд, сейчас буду пробывать!!!

 

[PlayHard]

Как убрать эти полосы?

Спойлер: воот

 

[Pirate]

PlayHard,

procedure InitializeWizard();
begin
WizardForm.Bevel.Hide;
WizardForm.Bevel1.Hide;
end;

 

[PlayHard]

Скажите пожалуйста код с помощью которого удаляется картинка папки как

Спойлер: тут

 

[Mailchik]

PlayHard, WizardForm.SelectDirBitmapImage.hide;

 

[AntonOVS]

Можно ли как-то в скрипт проверки свободного места

[SOURCE="inno"]#define NeedSize 4380
#define NeedInstallSize 7890

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

var
  TotalSpaceLabel, FreeSpaceLabel, NeedSpacelabel, InstallSpaceLabel: 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);
  TotalSpaceLabel.Caption:= 'Всего места на диске: '+MbOrTb(TotalMB);
  FreeSpaceLabel.Caption:= 'Доступно места на диске: '+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  InstallSpacelabel.Caption:= 'Требуется места для установки: '+MbOrTb({#NeedInstallSize});
  NeedSpaceLabel.Caption:= 'Требуется места на диске: '+MbOrTb({#NeedSize});
  WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize});
end;

procedure InitializeWizard();
begin
  TotalSpaceLabel:= TLabel.Create(WizardForm);
  TotalSpaceLabel.AutoSize:= False;
  TotalSpaceLabel.SetBounds(0, 120, 300, 20);
  TotalSpaceLabel.Parent:= WizardForm.SelectDirpage;

  FreeSpaceLabel:= TLabel.Create(WizardForm);
  FreeSpaceLabel.AutoSize:= False;
  FreeSpaceLabel.SetBounds(0, 140, 300, 20);
  FreeSpaceLabel.Parent:= WizardForm.SelectDirpage;

  InstallSpacelabel:= TLabel.Create(WizardForm);
  InstallSpacelabel.AutoSize:= False;
  InstallSpacelabel.SetBounds(0, 160, 300, 20);
  InstallSpacelabel.Parent:= WizardForm.SelectDirpage;
  
  NeedSpaceLabel:= TLabel.Create(WizardForm);
  NeedSpaceLabel.AutoSize:= False;
  NeedSpaceLabel.SetBounds(0, 180, 300, 20);
  NeedSpaceLabel.Parent:= WizardForm.SelectDirpage;
  
  WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then begin
    DirEditOnChange(nil)
  end;
end;[/SOURCE][/more] добавить, чтобы при недостаточном месте на диске не не пускало на следующую страницу, а выдавало сообщение, что-то типо "На выбранном диске недостаточно места для установки. Все равно продолжить ?" и было две кнопки "Да", "Нет" или "Ок", "Отмена"

 

[nik1967]

AntonOVS, как то так

[SOURCE="inno"]#define NeedSize 4380
#define NeedInstallSize 47890

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

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

var
  TotalSpaceLabel, FreeSpaceLabel, NeedSpacelabel, InstallSpaceLabel: 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);
  TotalSpaceLabel.Caption:= 'Всего места на диске: '+MbOrTb(TotalMB);
  FreeSpaceLabel.Caption:= 'Доступно места на диске: '+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  InstallSpacelabel.Caption:= 'Требуется места для установки: '+MbOrTb({#NeedInstallSize});
  NeedSpaceLabel.Caption:= 'Требуется места на диске: '+MbOrTb({#NeedSize}); 
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result:= true;
  if CurPageID=wpSelectDir then
  if FreeMB<{#NeedInstallSize} then 
  if MsgBoxEx(0, 'На выбранном диске недостаточно места для установки.'#10'Все равно продолжить ?', 'Недостаточно места', MB_YESNO or MB_ICONQUESTION, 0, 0) = IDNO then
    Result:= false;
end;
 
procedure InitializeWizard();
begin
  TotalSpaceLabel:= TLabel.Create(WizardForm);
  TotalSpaceLabel.AutoSize:= False;
  TotalSpaceLabel.SetBounds(0, 120, 300, 20);
  TotalSpaceLabel.Parent:= WizardForm.SelectDirpage;
 
  FreeSpaceLabel:= TLabel.Create(WizardForm);
  FreeSpaceLabel.AutoSize:= False;
  FreeSpaceLabel.SetBounds(0, 140, 300, 20);
  FreeSpaceLabel.Parent:= WizardForm.SelectDirpage;
 
  InstallSpacelabel:= TLabel.Create(WizardForm);
  InstallSpacelabel.AutoSize:= False;
  InstallSpacelabel.SetBounds(0, 160, 300, 20);
  InstallSpacelabel.Parent:= WizardForm.SelectDirpage;
   
  NeedSpaceLabel:= TLabel.Create(WizardForm);
  NeedSpaceLabel.AutoSize:= False;
  NeedSpaceLabel.SetBounds(0, 180, 300, 20);
  NeedSpaceLabel.Parent:= WizardForm.SelectDirpage;
   
  WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;
 
procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then DirEditOnChange(nil);
end;[/SOURCE][/MORE]

 

[Adil]

Всем добрый день, у меня вопрос можно ли
isslideshow перенести на задний фон, чтобы textworkspace.png был на переднем плане
или это невозможно
использую isslideshow v1.02, example3

 

[LexBell]

nazbek010, невозможно.

 

[PlayHard]

приветствую , хотел спросить, как убрать второй прогресс-бар?
юзаю "ISDone0.5final"

Спойлер: 1

 

[LexBell]

закоментировать строчку #define SecondProgressbar

 

[PlayHard]

ещё хотел спросить , если у меня несколько архивов то нужно просто продублировать строку ?

 

[LexBell]

PlayHard, примеры-то там для чего? да просто повторить столько раз, сколько у тебя архивов. если спросишь, почему проценты больше 100 - забаню, нафиг... Почему на втором архиве прогрессбар ведет странно - тоже не спрашивай - если догадался цифирь 100 поставить, то найдешь, как сделать чтоб все ровно было.

 

[aLLeXUs]

как можно сделать вместо такого выбора языка

кнопку которая изменяет язык во время работы инсталлятора?

 

[LexBell]

alex0413, Конечно можно. кладешь на форму комбобокс и в его обработчике меняешь абсолютно все надписи инсталла. комбо - не принципиально, можно и кнопку, это не суть. суть в том, что это очень геморно и нудно, но долгими зимними вечерами - самое оно, когда заняться нечем.

 

[sergey3695]

alex0413, да это геморойно т.к придется делать свою форму при нажатии на обзор и отмена, чтобы менять надписи. Но если ты знаешь как это делать то тебе это не составит труда.