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

Shift85 · 19 Янв 2014

Покажите пожалуйста пример плавного открытия и закрытия инсталлятора... Зарание спасибо...

andrey_167 · 19 Янв 2014

Shift85 написал(а):
Покажите пожалуйста пример плавного открытия и закрытия инсталлятора... Зарание спасибо...

открытие не знаю а вот закрытие так
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

Код:

const 
   AW_BLEND = $00080000;  
   AW_HIDE = $00010000;  
 
function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): Boolean; 
 external 'AnimateWindow@user32 stdcall'; 
 
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); 
begin 
  if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_OKCANCEL) = IDOK then 
  begin 
    Confirm := False; 
    AnimateWindow(WizardForm.Handle, 2500, AW_BLEND or AW_HIDE); 
    Cancel := True; 
  end else 
  Cancel := False; 
end;

y_thelastknight · 19 Янв 2014

Shift85 написал(а):
Покажите пожалуйста пример плавного открытия и закрытия инсталлятора... Зарание спасибо...

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.

[ Code]
const
AW_ACTIVATE = $00020000;
AW_BLEND = $00080000;
AW_HIDE = $00010000;

function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): Boolean;
external 'AnimateWindow@user32 stdcall';

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_OKCANCEL) = IDOK then
begin
Confirm := False;
AnimateWindow(WizardForm.Handle, 2500, AW_BLEND or AW_HIDE);
Cancel := True;
end else
Cancel := False;
end;

procedure InitializeWizard();
begin
AnimateWindow(WizardForm.Handle, 2500, AW_BLEND or AW_ACTIVATE);
end;

Shift85 · 20 Янв 2014

Как сделать чтобы при нехватке места на диске этот лебел становился красным... Можно пример если можно...

Mailchik · 20 Янв 2014

Shift85,

Код:

if FreeSpace < NeedSpace then
  FreeSpaceLabel.Font.Color := clRed;

Shift85 · 20 Янв 2014

Mailchik, Как сюда прикрутить

Код:

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);
  TotalSpaceLabel1.Caption:= ExpandConstant('{cm:TotalSpaceLabel} ') +MbOrTb(TotalMB);
  TotalSpaceLabel2.Caption:= ExpandConstant('{cm:TotalSpaceLabel} ') +MbOrTb(TotalMB);
  FreeSpaceLabel1.Caption:= ExpandConstant('{cm:FreeSpaceLabel} ') +MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  FreeSpaceLabel2.Caption:= ExpandConstant('{cm:FreeSpaceLabel} ') +MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  InstallSpacelabel1.Caption:= ExpandConstant('{cm:InstallSpacelabel} ') +MbOrTb({#NeedInstallSize});
  InstallSpacelabel2.Caption:= ExpandConstant('{cm:InstallSpacelabel} ') +MbOrTb({#NeedInstallSize});
  NeedSpaceLabel1.Caption:= ExpandConstant('{cm:NeedSpaceLabel} ') +MbOrTb({#NeedSize});
  NeedSpaceLabel2.Caption:= ExpandConstant('{cm:NeedSpaceLabel} ') +MbOrTb({#NeedSize});
  WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize})  ;
end;

vint56 · 20 Янв 2014

Shift85

#define NeedSize 43809
#define NeedInstallSize 7890
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
DefaultGroupName=MyApp

[CustomMessages]
TotalSpace=Всего места на диске:
FreeSpace=Доступно места на диске:
InstallSpace=Требуется места для установки:
NeedSpace=Требуется места на диске:

Код:

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:= ExpandConstant('{cm:TotalSpace} ')+MbOrTb(TotalMB);
FreeSpaceLabel.Caption:= ExpandConstant('{cm:FreeSpace} ')+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'% )';
InstallSpacelabel.Caption:= ExpandConstant('{cm:InstallSpace} ')+MbOrTb({#NeedInstallSize});
NeedSpaceLabel.Caption:= ExpandConstant('{cm:NeedSpace} ')+MbOrTb({#NeedSize});

WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize});
[color=Red][b]if WizardForm.NextButton.Enabled then FreeSpaceLabel.Font.Color:=$000000 else FreeSpaceLabel.Font.Color:=$0000FF;[/b][/color]

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;[/SPOILER]

andrey_167 · 20 Янв 2014

Здравствуйте можно пример наложения текстур на кнопки в формате png и если можно желательно через боотву

Shift85 · 20 Янв 2014

andrey_167, http://rghost.ru/51795029

sergey3695 · 20 Янв 2014

Shift85, мда... с фантазией у тебя проблемка

(раз что-то лучше придумать не можешь)
з.ы. animatewindow со скином не пропрет

Shift85 · 20 Янв 2014

sergey3695 написал(а):
animatewindow со скином не пропрет

sergey3695, Я без скина буду юзать. Правда мне нужно зарание знать как будет выглядеть инстяллятор...

sergey3695 написал(а):
мда... с фантазией у тебя проблемка

А то каша в голове

andrey_167 · 20 Янв 2014

как удалить кнопку отмены

urban · 20 Янв 2014

andrey_167, mycancelbutton.hide пробовал?

vint56 · 20 Янв 2014

andrey_167 сделай кнопку ниже и все
with WizardForm.CancelButton do
begin
Top := ScaleY(600);
end;

andrey_167 · 20 Янв 2014

urban написал(а):
andrey_167, mycancelbutton.hide пробовал?

не запускаеться с таким кодом

urban · 20 Янв 2014

andrey_167, у тебя исдон?

andrey_167 · 20 Янв 2014

urban написал(а):
andrey_167, у тебя исдон?

да

urban · 20 Янв 2014

andrey_167, ну так бы сразу и сказал,ответ выше

andrey_167 · 21 Янв 2014

как создать новый лейбл например я создал новую страницу на которую перенес компоненты а

Shift85 · 21 Янв 2014

andrey_167, так

Код:

var
  Bevel2: TBevel;

Bevel2 := TBevel.Create(WizardForm);
with Bevel2 do
begin
Parent := WizardForm;
Left := ScaleX(30);
Top := ScaleY(225);
Width := ScaleX(540);
Height := ScaleY(2);
end;

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

Старожил

Новичок

Мимокрокодил

Старожил

Старожил

Старожил

Ветеран

Новичок

Старожил

Ветеран

Старожил

Новичок

Старожил

Ветеран

Новичок

Старожил

Новичок

Старожил

Новичок

Старожил