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

[Mailchik]

kingshady,

Спойлер: Код

[SOURCE="inno"][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=userdocs:Inno Setup Examples Output

[Components]
Name: text; Description: Язык интерфейса:; Types: full; Flags: fixed;
Name: text\rus; Description: Русский; Flags: exclusive;
Name: text\eng; Description: Английский; Flags: exclusive;

[Registry]
Root: HKLM; SubKey: SOFTWARE\CAPCOM\RERC; ValueType: string; ValueName: locale; ValueData: 1049; Components: text\rus; Flags: uninsdeletevalue uninsdeletekeyifempty; Check: CheckError
Root: HKLM; SubKey: SOFTWARE\CAPCOM\RERC; ValueType: string; ValueName: locale; ValueData: 1033; Components: text\eng; Flags: uninsdeletevalue uninsdeletekeyifempty; Check: CheckError[/source]

nazbek010,

Спойлер: Код

[SOURCE="inno"] procedure CancelButtonOnClick(Sender: TObject);
begin
SuspendProc;
MyExitMessage();
if MyExit.ShowModal() = mryes then ISDoneCancel:=1;
ResumeProc;
end;
MyCancelButton.OnClick := @CancelButtonOnClick;[/source]

 

[Adil]

Как поменять формы выбора каталога, и выбора каталога меню пуск
Пробывал через

Спойлер: Код

[SOURCE="inno"]procedure DirBrowseButtonClick(Sender: TObject);
begin
DirBrowseFormMessage();
end;

with WizardForm.DirBrowseButton do
begin
Parent := WizardForm;
Left := ScaleX(232);
Top := ScaleY(160);
Width := ScaleX(83);
Height := ScaleY(25);
Font.Style:=[fsbold];
Font.Size:=9;
OnClick := @DirBrowseButtonClick;
end;

var
DirBrowseForm: TSetupForm;
DirBevel1, DirBevel2: TBevel;
DirBitmapImage: TBitmapImage;
BrowseEdit: TEdit;
BrowseFolderTree: TFolderTreeView;

procedure DirBrowseFormMessage();
begin
DirBrowseForm := CreateCustomForm();
with DirBrowseForm do
begin
///BorderIcons := [];
Position := poScreenCenter;
ClientHeight := ScaleY(303);
ClientWidth := ScaleX(405);
Caption := ExpandConstant(SetupMessage(msgBrowseDialogTitle));
Font.Style:=[fsbold];
Font.Size:=9;
Font.Color:=clblack;
Font.Name:= 'Comic Sans MS';
Color := clwhite;
end;

BrowseEdit := TEdit.Create(DirBrowseForm);
with BrowseEdit do begin
Parent := DirBrowseForm;
Left := ScaleX(16);
Top := ScaleY(136);
Width := ScaleX(373);
Height := ScaleY(21);
Text := WizardForm.DirEdit.Text;
end;

BrowseFolderTree := TFolderTreeView.Create(DirBrowseForm);
with BrowseFolderTree do begin
Parent := DirBrowseForm;
Left := ScaleX(16);
Top := ScaleY(160);
Width := ScaleX(373);
Height := ScaleY(129);
Directory := WizardForm.DirEdit.Text;
///OnChange := @ObjectFunc;
end;

DirBevel1 := TBevel.Create(DirBrowseForm);
with DirBevel1 do
begin
Name := 'DirBevel1';
Parent := DirBrowseForm;
Left := ScaleX(8);
Top := ScaleY(104);
Width := ScaleX(390);
Height := ScaleY(194);
Shape := bsFrame;
end;

DirBevel2 := TBevel.Create(DirBrowseForm);
with DirBevel2 do
begin
Name := 'DirBevel2';
Parent := DirBrowseForm;
Left := ScaleX(8);
Top := ScaleY(8);
Width := ScaleX(390);
Height := ScaleY(90);
Shape := bsFrame;
end;

DirBitmapImage := TBitmapImage.Create(DirBrowseForm);
with DirBitmapImage do
begin
Name := 'DirBitmapImage';
Parent := DirBrowseForm;
Left := ScaleX(16);
Top := ScaleY(16);
Width := ScaleX(213);
Height := ScaleY(73);
Center := True;
Bitmap.LoadFromResourceName(HInstance, '_IS_Logo');
end;
end;[/source]

Но он вообще теперь не открывает форму

 

[Mailchik]

nazbek010, Может лучше покажешь весь код? Если и в коде у тебя такой же порядок процедур, который ты показал выше, то еще при компиляции у тебя должны были быть ошибки.

 

[namquang93]

Can anyone help me a function to convert TGUID to String ? TGUID is defined as this:

type
TGUID = record D1: Cardinal; D2: Word; D3: Word; D4: Array [0..8] of Byte; end;

Thanks in advanced : Help:

 

[Shegorat]

Can anyone help me a function to convert TGUID to String ? TGUID is defined as this:

I think it will be something like this
Guid2Str

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

type
  TGUID = record D1: Cardinal; D2: Word; D3: Word; D4: Array [0..8] of Byte; end;

function HVal(N: Integer): String;
begin
  case N of
    15: Result:= 'F';
    14: Result:= 'E';
    13: Result:= 'D';
    12: Result:= 'C';
    11: Result:= 'B';
    10: Result:= 'A';
  else
    Result:= IntToStr(N);
  end;
end;

function IntToHex(N: Integer; Digits: Integer): String;
var
  tmp: String;
  c, d, i: Integer;
begin
  Result:= '';
  repeat
    c:= N and $FF;
    d:= c div 16;
    i:= c mod 16;
    tmp:= HVal(d)+HVal(i);
    Result:= tmp+Result;
    N:= N shr 8;
  until N=0;
  while Length(Result)<Digits do
    Result:= '0'+Result;
end;

function GUID2Str(Guid: TGUID): String;
var
  i: Integer;
begin
  Result:= '{'+IntToHex(Guid.D1, 8)+'-'+
           IntToHex(Guid.D2, 4)+'-'+
           IntToHex(Guid.D3, 4)+'-';
  for i:=0 to 8 do
    Result:= Result+IntToHex(Guid.D4[i], 2);
  Result:= Result+'}';
end;[/source][/more]

 

[Games]

Всем привет хотелось бы узнать где можно прочитать или узнать как создать свой красивый инсталлятор?

 

[Shegorat]

Всем привет хотелось бы узнать где можно прочитать или узнать как создать свой красивый инсталлятор?

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

 

[Games]

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

Это все я понимаю, в скриптах не особо разбираюсь вот в чем проблема

 

[LexBell]

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

 

[Games]

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

Хорошо спасибо скачал Русская справка к версии 5.5.1, автор перевода BagIra, bugron Chm-версия думаю научусь.

 

[sergey3695]

Блин, хоть убей не помню... Как сделать установщик поверх всех окон? Помню было, знал, но забыл.. блин.

 

[Mailchik]

sergey3695, InnoSetup Ultra->Scripts->WindowEffects->Wizard OnTop-NoTop.iss
Ну или вот оригинальный скрипт:

Спойлер: Код

[SOURCE="inno"][Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

Const
  HWND_TOP = 0;
  HWND_TOPMOST = -1;
  HWND_NOTOPMOST = -2;
  SWP_NOSIZE = $1;
  SWP_NOMOVE = $2;
  SWP_NOZORDER = $4;
  SWP_NOREDRAW = $8;
  SWP_NOACTIVATE = $10;
  SWP_FRAMECHANGED = $20;
  SWP_SHOWWINDOW = $40;
  SWP_HIDEWINDOW = $80;
  SWP_NOCOPYBITS = $100;
  SWP_NOOWNERZORDER = $200;
  SWP_DRAWFRAME = SWP_FRAMECHANGED;
  SWP_NOREPOSITION = SWP_NOOWNERZORDER;

function SetWindowPos(hWnd, hWndInsertAfter, X, Y, cx, cy, wFlags: Longint):Boolean; external 'SetWindowPos@user32.dll stdcall';

procedure DirOnClick(Sender: TObject);
var
  res: Boolean;
  UserSelectDir: String;
begin
  UserSelectDir:= WizardForm.DirEdit.Text;
  res:= BrowseForFolder('Выберите папку из списка и нажмите «ОК»', UserSelectDir, True);
  if res then
    begin
      WizardForm.DirEdit.Text:= UserSelectDir;
    end;
end;

procedure InitializeWizard;
begin
  WizardForm.DirBrowseButton.OnClick:= @DirOnClick;
  SetWindowPos(WizardForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  SetWindowPos(WizardForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
  SetWindowPos(WizardForm.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
  Confirm:= False;
  Cancel:= ExitSetupMsgBox;
  if Not Cancel then
    SetWindowPos(WizardForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_SHOWWINDOW);
end;


[/source][/SPOILER]

 

[nik1967]

sergey3695, Mailchik, у меня есть другой вариант.

[SOURCE="inno"][Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

procedure btnClick(Sender: TObject);
begin
  case WizardForm.FormStyle of
    fsNormal:
      begin
        WizardForm.FormStyle := fsStayOnTop;
        TButton(Sender).Caption := 'Отменить стиль StayOnTop';
      end;
    fsStayOnTop:
      begin
        WizardForm.FormStyle := fsNormal;
        TButton(Sender).Caption := 'Задать стиль StayOnTop';
      end;
  end;
end;

procedure InitializeWizard();
begin
  with TButton.Create(WizardForm) do
    begin
      Parent := WizardForm;
      SetBounds(ScaleX(20), WizardForm.NextButton.Top, ScaleX(200), WizardForm.NextButton.Height);
      Caption := 'Задать стиль StayOnTop';
      OnClick := @btnClick;
    end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  // это необходимо, а то при ножатии на кнопку, мы не увидим сообщения
  if WizardForm.FormStyle = fsStayOnTop then
    WizardForm.FormStyle := fsNormal;
end;[/SOURCE][/MORE]

 

[sergey3695]

WizardForm.FormStyle := fsStayOnTop;

Во.. то что надо. Именно это я забыл. Спс (сохраню пример, а тож потом забуду... )

 

[Adil]

Привет всем, при создании своей формы выбора папки, как сделать
чтобы выбранная в TFolderTreeView папка, была выбрана и в TNewEdit формы, и в DirEdit

 

[aLLeXUs]

nazbek010,
как-то так

procedure BrowseOnChange(Sender: TObject);
begin
    BrowseText.Text:=AddBackslash(DirTree.Directory) + '{#AppName}';
    DirEdit.Text:=BrowseText.Text;
end;

DirTree.OnChange:=@BrowseOnChange;

 

[kingshady]

сори... это все из-за двоеточия в названии игры...

 

[Winst@n]

Подскажите и извините за нубство в данном вопросе, но как сделать исключение (отключение) одного компонента если уже выбран другой .

 

[Snoopak96]

Winst@n,
ты про это?

procedure CompOnClick(Sender: TObject);
 var
   i: Integer;
 begin
   with WizardForm.ComponentsList do begin
     for i:= 0 to ItemCount -1 do begin
       case i of
         1,5: Checked[i]:=  Checked[9];
         2,3,6,7: ItemEnabled[i]:= not Checked[9];
       end;
     end;
   end;
 end;

 

[aLLeXUs]

Обновлен компилятор от китайцев.
Скачать InnoCompiler120808(7zip).zip