Inno Setup

Про софт и железки.
Сообщение
Автор
Tr1p
Нович0к
Нович0к
Сообщения: 4
Зарегистрирован: 15.08.2009

#76 Сообщение 17.08.2009, 00:47

оййййй в пуск => все программы туда тоже такой же ярлык как впихнуть?

Аватара пользователя
argnist
VIP
VIP
Сообщения: 1083
Зарегистрирован: 21.05.2006
Откуда: Украина, Днепропетровск
Поблагодарили: 1 раз

#77 Сообщение 17.08.2009, 13:16

Код: Выделить всё

[Icons]
Name: {group}\Half-Life 2; Filename: {app}\hl2.exe; WorkingDir: {app}; IconFilename: {app}\game.ico

M1ke
Модератор
Модератор
Сообщения: 1464
Зарегистрирован: 17.06.2007
Откуда: 54
Благодарил (а): 2 раза
Поблагодарили: 90 раз
Контактная информация:

#78 Сообщение 17.08.2009, 14:26

Tr1p, на предыдущей странице есть ссылка на русккий хелп - прочитай её, и не задавай глупых(ламерских, нубских)вопросов.
Изображение
Изображение
Изображение

Nikk1488
VIP
VIP
Сообщения: 2492
Зарегистрирован: 01.01.2008
Поблагодарили: 4 раза
Контактная информация:

#79 Сообщение 17.08.2009, 17:23

Проще взглянуть выше.
[txtspoil]Adiost и я - гей шлюхи!!![/txtspoil]

Tr1p
Нович0к
Нович0к
Сообщения: 4
Зарегистрирован: 15.08.2009

#80 Сообщение 17.08.2009, 18:47

M1ke Я смотрю ты тут слишком умный. Не нравится что то не помогай мне.
argnist Спасибо.
Nikk :)

supercores
Лейтенант
Лейтенант
Сообщения: 167
Зарегистрирован: 03.04.2009
Благодарил (а): 1 раз

#81 Сообщение 28.08.2009, 19:32

Здравствуйте уважаемые.
Нужно реализовать открытие распакованного файла во время установки (сразу после распаковки файла), процесс установки должен в это время приостановится, до момента закрытия файла.
Заранее спасибо.

supercores
Лейтенант
Лейтенант
Сообщения: 167
Зарегистрирован: 03.04.2009
Благодарил (а): 1 раз

#82 Сообщение 29.08.2009, 10:23

Вопрос не актуален, спасибо.
Procedure Open();
var
ResultCode:integer;
Path:string;
begin
Path:=ExpandConstant(CurrentFileName);
If FileExists(Path)
Then Exec(Path, '', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

[Files]
Source: "C:Program FilesInno Setup 5ExamplesMyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

Аватара пользователя
Fatman
Лейтенант
Лейтенант
Сообщения: 112
Зарегистрирован: 20.06.2008
Откуда: Pyroland
Благодарил (а): 1 раз
Поблагодарили: 2 раза
Контактная информация:

#83 Сообщение 15.09.2009, 21:07

Парни помогите пожалуйста правильно обьединить
Это

Код: Выделить всё

 
 
const 
  ButtonWidth = 80; 
  ButtonHeight = 23; 
 
  bidBack = 0; 
  bidNext = 1; 
  bidCancel = 2; 
  bidDirBrowse = 3; 
  bidGroupBrowse = 4; 
 
var 
  NeedSize: Integer; 
  FreeMB, TotalMB: Cardinal; 
  NeedSpaceLabel,FreeSpaceLabel: TLabel; 
  ButtonPanel: array [0..4] of TPanel; 
  ButtonImage: array [0..4] of TBitmapImage; 
  ButtonLabel: array [0..4] of TLabel; 
 
procedure GetFreeSpaceCaption(Sender: TObject); 
var 
  Path: String; 
begin 
  Path := ExtractFileDrive(WizardForm.DirEdit.Text); 
  GetSpaceOnDisk(Path, True, FreeMB, TotalMB); 
  if FreeMB > 1024 then 
  FreeSpaceLabel.Caption := ExpandConstant('{cm:FREESIZE}') + ': ' + FloatToStr(round(FreeMB/1024*100)/100) + ' GB' else 
  FreeSpaceLabel.Caption := ExpandConstant('{cm:FREESIZE}') + ': ' + IntToStr(FreeMB) + ' MB'; 
  if FreeMB < NeedSize then 
  begin 
    WizardForm.NextButton.Enabled := False; 
  end else 
  begin 
    WizardForm.NextButton.Enabled := True; 
    ButtonLabel[bidNext].Enabled := True; 
    ButtonPanel[bidNext].Enabled := True; 
  end; 
end; 
 
procedure GetNeedSpaceCaption; 
begin 
  if NeedSize > 1024 then 
     NeedSpaceLabel.Caption := ExpandConstant('{cm:NEEDSIZE}') + ': ' + FloatToStr(round(NeedSize/1024*100)/100) + ' GB' 
  else 
  NeedSpaceLabel.Caption := ExpandConstant('{cm:NEEDSIZE}') + ': ' + IntToStr(NeedSize)+ ' MB'; 
end; 
 
procedure ButtonLabelClick(Sender: TObject); 
var 
  Button: TButton; 
begin 
  ButtonImage[TLabel(Sender).Tag].Left:=0 
  case TLabel(Sender).Tag of 
    bidBack: Button:=WizardForm.BackButton 
    bidNext: Button:=WizardForm.NextButton 
    bidCancel: Button:=WizardForm.CancelButton 
    bidDirBrowse: Button:=WizardForm.DirBrowseButton 
    bidGroupBrowse: Button:=WizardForm.GroupBrowseButton 
  else 
    Exit 
  end 
  Button.OnClick(Button) 
end; 
 
procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
  if ButtonLabel[TLabel(Sender).Tag].Enabled then 
     ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth 
end; 
 
procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
  ButtonImage[TLabel(Sender).Tag].Left:=0 
end; 
 
procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer); 
var 
  Image: TBitmapImage; 
  Panel: TPanel; 
  Labl: TLabel; 
 
begin 
  Panel:=TPanel.Create(WizardForm) 
  Panel.Left:=AButton.Left 
  Panel.Top:=AButton.Top 
  Panel.Width:=AButton.Width 
  Panel.Height:=AButton.Height 
  Panel.Tag:=AButtonIndex 
  Panel.Parent:=AButton.Parent 
  ButtonPanel[AButtonIndex]:=Panel 
 
  Image:=TBitmapImage.Create(WizardForm) 
  Image.Width:=160 
  Image.Height:=23 
  Image.Enabled:=False 
  Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\button.bmp')) 
  Image.Parent:=Panel 
  ButtonImage[AButtonIndex]:=Image 
 
  with TLabel.Create(WizardForm) do begin 
    Tag:=AButtonIndex 
    Parent:=Panel 
    Width:=Panel.Width 
    Height:=Panel.Height 
    Transparent:=True 
    OnClick:[email protected] 
    OnDblClick:[email protected] 
    OnMouseDown:[email protected] 
    OnMouseUp:[email protected] 
  end 
 
  Labl:=TLabel.Create(WizardForm) 
  Labl.Left:=23 
  Labl.Top:=5 
  Labl.Autosize:=True 
  Labl.Alignment:=taCenter 
  Labl.Tag:=AButtonIndex 
  Labl.Transparent:=True 
  Labl.Font.Color:=clWhite 
  Labl.Caption:=AButton.Caption 
  Labl.OnClick:[email protected] 
  Labl.OnDblClick:[email protected] 
  Labl.OnMouseDown:[email protected] 
  Labl.OnMouseUp:[email protected] 
  Labl.Parent:=Panel 
  ButtonLabel[AButtonIndex]:=Labl 
end; 
 
procedure UpdateButton(AButton: TButton;AButtonIndex: integer); 
begin 
  ButtonLabel[AButtonIndex].Caption:=AButton.Caption 
  ButtonPanel[AButtonIndex].Visible:=AButton.Visible 
  ButtonLabel[AButtonIndex].Enabled:=Abutton.Enabled 
end; 
 
procedure LicenceAcceptedRadioOnClick(Sender: TObject); 
begin 
  ButtonLabel[bidNext].Enabled:=True 
end; 
 
procedure LicenceNotAcceptedRadioOnClick(Sender: TObject); 
begin 
  ButtonLabel[bidNext].Enabled:=False 
end; 
 
procedure InitializeWizard(); 
begin 
  NeedSize := 307200; 
   
  WizardForm.DiskSpaceLabel.Hide; 
 
  NeedSpaceLabel := TLabel.Create(WizardForm); 
  NeedSpaceLabel.Left := ScaleX(0); 
  NeedSpaceLabel.Top := ScaleY(202); 
  NeedSpaceLabel.Width := ScaleX(209); 
  NeedSpaceLabel.Height := ScaleY(13); 
  NeedSpaceLabel.Parent := WizardForm.SelectDirPage; 
 
  FreeSpaceLabel := TLabel.Create(WizardForm); 
  FreeSpaceLabel.Left := ScaleX(0); 
  FreeSpaceLabel.Top := ScaleY(220); 
  FreeSpaceLabel.Width := ScaleX(209); 
  FreeSpaceLabel.Height := ScaleY(13); 
  FreeSpaceLabel.Parent := WizardForm.SelectDirPage; 
   
  WizardForm.BackButton.Width:=ButtonWidth 
  WizardForm.BackButton.Height:=ButtonHeight 
 
  WizardForm.NextButton.Width:=ButtonWidth 
  WizardForm.NextButton.Height:=ButtonHeight 
     
  WizardForm.CancelButton.Width:=ButtonWidth 
  WizardForm.CancelButton.Height:=ButtonHeight 
   
  WizardForm.DirBrowseButton.Left:=337 
  WizardForm.DirBrowseButton.Width:=ButtonWidth 
  WizardForm.DirBrowseButton.Height:=ButtonHeight 
   
  WizardForm.GroupBrowseButton.Left:=337 
  WizardForm.GroupBrowseButton.Width:=ButtonWidth 
  WizardForm.GroupBrowseButton.Height:=ButtonHeight 
   
  WizardForm.LicenseAcceptedRadio.OnClick:[email protected] 
 
  WizardForm.LicenseNotAcceptedRadio.OnClick:[email protected] 
 
  ExtractTemporaryFile('button.bmp') 
  LoadButtonImage(WizardForm.BackButton,bidBack) 
  LoadButtonImage(WizardForm.NextButton,bidNext) 
  LoadButtonImage(WizardForm.CancelButton,bidCancel) 
  LoadButtonImage(WizardForm.DirBrowseButton,bidDirBrowse) 
  LoadButtonImage(WizardForm.GroupBrowseButton,bidGroupBrowse) 
end; 
 
procedure CurPageChanged(CurPageID: Integer); 
begin 
  UpdateButton(WizardForm.BackButton,bidBack) 
  UpdateButton(WizardForm.NextButton,bidNext) 
  UpdateButton(WizardForm.CancelButton,bidCancel) 
   
  if CurPageID = wpSelectDir then 
  begin 
    GetNeedSpaceCaption; 
    WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption; 
    WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + #0; 
    if FreeMB < NeedSize then 
    begin 
      WizardForm.NextButton.Enabled := False; 
      ButtonLabel[bidNext].Enabled := False; 
      ButtonPanel[bidNext].Enabled := False; 
    end; 
  end; 
end;[/spoiler]
и
[spoiler="это"][Code]
const
Color = clblack;

var
  WelcomeLabel1, WelcomeLabel2: TLabel;
  BmpFile: TBitmapImage;

 procedure InitializeWizard1();
begin
  ExtractTemporaryFile('fon.bmp');

  BmpFile:= TBitmapImage.Create(WizardForm);
  BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\fon.bmp'));
  BmpFile.SetBounds(0, 0, 497, 320); // ðàçìåð êàðòèíêè
  BmpFile.Stretch:= true
  BmpFile.Parent:= WizardForm.WelcomePage;

  with WizardForm do
  begin
    WelcomeLabel1.Hide;
    WelcomeLabel2.hide;
  end;
WelcomeLabel1:= TLabel.Create(WizardForm);
  with WelcomeLabel1 do
  begin
    Left:= ScaleX(0);
    Top:= ScaleY(0);
    Width:= ScaleX(0);
    Height:= ScaleY(0);
    AutoSize:= false;
    Transparent:= true;
    WordWrap:= true;
    Font.Size:= 12;
    Font.Color:=ClWhite
    Parent:= WizardForm.WelcomePage;
    Caption:= WizardForm.WelcomeLabel1.Caption;
 end;

   WelcomeLabel2:=TLabel.Create(WizardForm);
  with WelcomeLabel2 do
  begin
    Top:= ScaleY(0);
    Left:= ScaleX(0);
    Width:= ScaleX(0);
    Height:= ScaleY(0);
    AutoSize:= false;
    WordWrap:= true;
    Font.Color:=ClWhite
    Transparent:= true;
    Parent:= WizardForm.WelcomePage;
    Caption:= WizardForm.WelcomeLabel2.Caption;
end;
end;

procedure InitializeWizard2();
begin
with WizardForm do begin
with MainPanel do
Height := Height - 1;
with WizardSmallBitmapImage do begin
Left := 0;
Top := 0;
Height := 58; //
Width := 497; //
end;
with PageNameLabel do begin
Width := Width - 0; //
Left := Left + 0; //
end;
with PageDescriptionLabel do begin
Width := Width - 0; //
Left := Left + 0; //
end;
end;
end;


procedure InitializeWizard();
begin
  InitializeWizard1();
  InitializeWizard2();
begin
WizardForm.PageNameLabel.Font.Color:=clWhite;
WizardForm.LicenseAcceptedRadio.Font.Color:=clWhite;
WizardForm.LicenseNotAcceptedRadio.Font.Color:=clWhite;
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
end;
end;[/spoiler]

Аватара пользователя
argnist
VIP
VIP
Сообщения: 1083
Зарегистрирован: 21.05.2006
Откуда: Украина, Днепропетровск
Поблагодарили: 1 раз

#84 Сообщение 23.09.2009, 11:18


Аватара пользователя
Fatman
Лейтенант
Лейтенант
Сообщения: 112
Зарегистрирован: 20.06.2008
Откуда: Pyroland
Благодарил (а): 1 раз
Поблагодарили: 2 раза
Контактная информация:

#85 Сообщение 23.09.2009, 13:16

argnist писал(а):Fatman
http://forum.ru-board.com/topic.cgi?for ... it=1&m=2#1
InnoSetup Script Joiner
Бесполезная вещь абсолютно.Ещё ни разу правильно не обьединила.

Аватара пользователя
argnist
VIP
VIP
Сообщения: 1083
Зарегистрирован: 21.05.2006
Откуда: Украина, Днепропетровск
Поблагодарили: 1 раз

#86 Сообщение 23.09.2009, 21:54

Fatman
значит я везунчик... у меня нормально прикрутило скрипт проверки системных требований к обычному скрипту

Аватара пользователя
Fatman
Лейтенант
Лейтенант
Сообщения: 112
Зарегистрирован: 20.06.2008
Откуда: Pyroland
Благодарил (а): 1 раз
Поблагодарили: 2 раза
Контактная информация:

#87 Сообщение 23.09.2009, 23:28

argnist писал(а):Fatman
значит я везунчик... у меня нормально прикрутило скрипт проверки системных требований к обычному скрипту
Я в основном балуюсь с

Код: Выделить всё

.Она видимо под это не заточена :)

Аватара пользователя
argnist
VIP
VIP
Сообщения: 1083
Зарегистрирован: 21.05.2006
Откуда: Украина, Днепропетровск
Поблагодарили: 1 раз

#88 Сообщение 24.09.2009, 07:34

дык сам подумай, скрипт перерисовующий виндоу капшн и применяющий вызов из длл + системные требования - здесь я сам не смог объеденить, чтоб работало. А джойнер смог!

Аватара пользователя
Fatman
Лейтенант
Лейтенант
Сообщения: 112
Зарегистрирован: 20.06.2008
Откуда: Pyroland
Благодарил (а): 1 раз
Поблагодарили: 2 раза
Контактная информация:

#89 Сообщение 24.09.2009, 12:12

Ну флаг ему в руки значит :D

Аватара пользователя
argnist
VIP
VIP
Сообщения: 1083
Зарегистрирован: 21.05.2006
Откуда: Украина, Днепропетровск
Поблагодарили: 1 раз

#90 Сообщение 24.09.2009, 19:47

вышла версия 5.3.5

Ответить