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

[AlexandR]

Спасибо всем кто помог...
Вот только как сделать чтоб этот лейбел при нажатии на кнопку "Отменить" скрывался?

 

[GVS276]

AlexandR,
NewLabel1.Hide; - Скрыть лайбел
Но при этом создай кнопку и задай обработчик...

Пример

var
NewLabel1: TLabel;
MyButton: TButton;

procedure ButtonOnClick(Sender: TObject);
begin
NewLabel1.Hide;
end;

procedure InitializeWizard();
begin
NewLabel1 := TLabel.Create(WizardForm);
with NewLabel1 do begin
Name := 'NewLabel1';
Parent := WizardForm.InstallingPage;
Transparent := True;
Caption :='Установка игры'
Font.Style:= [fsBold];
Font.Size :=15;
Left := ScaleX(192);
Top := ScaleY(180);
Width := ScaleX(500);
Height := ScaleY(500);
end;

MyButton:=TButton.Create(WizardForm);
with MyButton do begin
Parent:=WizardForm;
Width:=ScaleX(135);
Caption:='Скрыть';
Left:=ScaleX(10);
Top:=WizardForm.cancelbutton.top;
OnClick:=@ButtonOnClick;
end;
end;

Для отмены аналогично:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
Cancel := True;
NewLabel1.Hide;
end;

или

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
Cancel := True;
if CurPageID=wpInstalling then begin
NewLabel1.Hide;
end;
end;

Можно по другому:

procedure DeinitializeSetup();
begin
NewLabel1.Hide;
end;

 

[AlexandR]

По выше приведенных примерам у меня всеровно не получается скрыть лейбел при нажатии на кнопку "Отменить"...
Извеняюсь не досмотрел одну строчку.

 

[GVS276]

AlexandR, Эмм, на код взглянуть можно?
как вы это всё делали..

 

[AlexandR]

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

 

[Krinkels]

AlexandR
Ну например так:

Спойлер

[Setup]
AppName=MyApp
AppverName=MyApp
DefaultDirName={pf}\MyApp

[_Code]
procedure InitializeWizard();
begin
	MsgBox('Мое сообщение', mbInformation, MB_OK);
end;

 

[AlexandR]

Спасибо!
А как изменить заголовок в углу сообщения и картинку?

Спойлер

oQetng1s.png7CMVs3KM.png

 

[Krinkels]

заголовок в углу сообщения

Использовать MessageBox

и картинку?

М-м-м, у меня есть пример на дельфи.

 

[AlexandR]

Использовать MessageBox

Можно примерчик?

М-м-м, у меня есть пример на дельфи.

В принципе можно изменить тип сообщения (mbInformation,mbError),а еще какие есть?...

 

[GVS276]

AlexandR,

Можно примерчик?

Пример:

function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';

MessageBox(0, 'Твой текст', 'Заголовок текст', MB_OK or MB_IconError)

P.S.: Иконки в гугле поищи... (MB_IconError - Иконка ошибки)

 

[nik1967]

Можно примерчик?

Спойлер

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

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

[_Code]
#ifdef UNICODE
  #define A "W"
#else
  #define A "A"
#endif

function MessageBox(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: LongWord): Integer;
  external 'MessageBox{#A}@user32.dll stdcall';

procedure ExampleButtonClick(Sender: TObject);
begin
  MessageBox(WizardForm.Handle,'Пример MessageBox', 'Название примера', MB_ICONINFORMATION);
end;

procedure InitializeWizard;
begin
  with TButton.Create(WizardForm) do begin
    SetBounds(ScaleX(10), WizardForm.NextButton.Top, WizardForm.NextButton.Width, WizardForm.NextButton.Height);
    Caption:='Пример';
    Parent:=WizardForm;
    OnClick:=@ExampleButtonClick;
  end;
end;

 

[AlexandR]

AlexandR,Пример:

function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';

 MessageBox(0, 'Твой текст', 'Заголовок текст', MB_OK or MB_IconError)

 P.S.: Иконки в гугле поищи... (MB_IconError - Иконка ошибки)

Ну пускай у меня есть иконка.ico, Как назначить то MB_IconError?

 

[GVS276]

AlexandR, эмм насколько мне не изменяет память, то в MessageBox нельзя загружать свои иконки

 

[AlexandR]

Как сделать Заголовок именно к этому примеру?

[Setup]
AppName=MyApp
AppverName=MyApp
DefaultDirName={pf}\MyApp

[_Code]
procedure InitializeWizard();
begin
	MsgBox('Мое сообщение', mbInformation, MB_OK);
end;

 

[nik1967]

AlexandR, к этому - никак.
А чем не подошёл мой пример?
http://krinkels.ru/showpost.php?p=3685&postcount=449

 

[Krinkels]

AlexandR, эмм насколько мне не изменяет память, то в MessageBox нельзя загружать свои иконки

Спойлер

function MbIserIcon_Ok(hWin: HWND; Caption, Text: String; IDIcon: DWORD): BOOL;
var
  MsgInfo: TMsgBoxParams;
begin
 with MsgInfo do begin
  lpfnMsgBoxCallback := nil;
  cbSize := SizeOf(TMsgBoxParams);
  hwndOwner := hWin;
  hInstance := GetWindowLong(hWin, GWL_HINSTANCE);
  lpszText := @Text[1];
  lpszCaption := @Caption[1];
  dwStyle := MB_USERICON or MB_TOPMOST or MB_OK;
  lpszIcon := MAKEINTRESOURCE(IDICON);
  dwLanguageId := GetSystemDefaultLangID;
 end;
 Result := MessageBoxIndirect(MsgInfo);
end;

Пример MessageBox со своей иконкой. На дельфи

 

[AlexandR]

Попробывал пример VinTagE(Ругается на слово MB_IconError):

Спойлер

function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';
procedure InitializeWizard();
begin
MessageBox(0, 'Твой текст', 'Заголовок текст', MB_OK or [COLOR="Red"]MB_IconError[/COLOR]);
end;

А если делать без него то нормально,но уже без иконки...

function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';
procedure InitializeWizard();
begin
MessageBox(0, 'Твой текст', 'Заголовок текст', MB_OK);
end;

 

[Winst@n]

AlexandR,
Вам нужна расширенная версия от ResTools.

 

[GVS276]

Krinkels, Спасибо, теперь буду знать...
AlexandR, как сказал Winst@n,

Вам нужна расширенная версия от ResTools.

 

[Winst@n]

Замутил вот такой чудной пример ) с формой выбора места установки. Есть несколько вариантов ).
http://rghost.ru/29942231