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

[Дамир]

sergey3695, на Unicode версии не работает, не определяет папки и все тут. А на ANSI версии нормально работает.

 

[YURSHAT]

Дамир
Пример

[SOURCE="iss"]
[Setup]
AppName=Моя программа
AppVersion=1.5
DefaultDirName={pf}\Моя программа
OutputDir=.

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

const
  CSIDL_PROFILE = $28;

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel2.Caption := GetShellFolderByCSIDL(CSIDL_PROFILE, True);
end;
[/SOURCE][/MORE]

 

[Mailchik]

1) Можно ли сделать объект WizardForm.InfoBeforeMemo без заднего фона (т.е. прозрачным) (без ботвы) и если нет, то какой объект можно взять вместо него у которого есть прозрачность и скроллбар?

код...

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
InfoBeforeFile=test.txt

[B][[/B]Code]
const
  TransparentPercent = 100; // процент прозрачности
  TransparentColor = clRed; // прозрачный цвет
  WS_EX_LAYERED = $80000;
  WS_EX_TRANSPARENT = $20;
  LWA_COLORKEY = 1;
  LWA_ALPHA = 2;
  GWL_EXSTYLE = (-20);

function SetLayeredWindowAttributes(hwnd: hWnd; crKey: TColor; bAlpha: byte; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';

procedure InitializeWizard();
begin
  WizardForm.InfoBeforeMemo.Color := TransparentColor
  SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED)
  SetLayeredWindowAttributes(WizardForm.Handle, TransparentColor, (255 * TransparentPercent) / 100, LWA_COLORKEY)
end;

---

Чем отличается

1й код посылает сообщение кнопке (выполняет клик). Для cancelbutton это закрытие формы, то есть второй код.

---

С чем связана ошибка Память не может быть read. Появляется она один раз после установки когда нажимаешь на кнопку заdершить и больше она не появляется, хоть сто раз устанавливай.

https://4gameforum.ru/showthread.php?t=64231
http://www.forum.ru-board.com:9000/topic.cgi?forum=5&topic=30413&start=2580#19

 

[Kaktus]

Mailchik, Не это немного не то я хотел чтобы только WizardForm.InfoBeforeMemo был прозрачным, а то у меня на фоне картинка, а мемо её почти всю закроет. Можно так сделать?

 

[Shift85]

я хотел чтобы только WizardForm.InfoBeforeMemo был прозрачным

Kaktus, Юзай IsPicture2 там все прозрачным можно сделать...

 

[Shift85]

Скажите пожалуйста почему данная процедура в Windows XP неработает...

Спойлер: Код

function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';

procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(WizardForm.Handle,$0112,$F012,0)
end;

 

[Kaktus]

Ну а можно без сторонних библиотек это сделать? А то грузить ISPicture2 только для мемо невыгодно.

 

[Shift85]

Ну а можно без сторонних библиотек это сделать?

Kaktus, Без сторонних я думаю никак...

 

[sergey3695]

Kaktus, с помощью CallbackCtrl.dll (или innocallback.dll или на расширенной версии inno) скрепление формы (есть в факе) -> и вырезание того же цвета что в ispicture.dll (полистай, выкладывал)

 

[Shift85]

Как переделать этот деинсталлятор в одну страницу...

Спойлер: Код

function KillTaskA(ExeFileName: string): Integer;
  external 'KillTask@{app}\Uninstall\ISTask.dll stdcall delayload uninstallonly';
function RunTaskA(FileName: string; bFullpath: Boolean): Boolean;
  external 'RunTask@{app}\Uninstall\ISTask.dll stdcall delayload uninstallonly';

function GetWindowLong(hWnd, nIndex: Integer): Longint;
  external 'GetWindowLongA@user32.dll';
function SetWindowLong(hWnd, nIndex: Integer; dwNewLong: Longint): Longint;
  external 'SetWindowLongA@user32.dll';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL;
  external 'ShowWindow@user32.dll';

const
  GWL_EXSTYLE = -20;
  WS_EX_APPWINDOW = $40000;

var
  UBevel1, UBevel2: TBevel;
  UnistallForm: TSetupForm;
  UCancelButton, UNextButton, UBackButton: TNewButton;
  NBook: TNewNotebook;
  DelAllReadOnly, SkipAllReadOnly: Boolean;
  Form: TSetupForm;
  CheckListBox: TNewCheckListBox;
  OKButton: TButton;
  UninstallImage: TBitmapImage;
  UnistallWelcome1, UnistallWelcome2, UninstallLabel, UninstallLabel1, UninstallFinished1, UninstallFinished2: TLabel;


  //--------------------------------- Äåéñòâèå äëÿ êíîïîê
  //--------------------------------- Íàçàä

procedure UBackButton_OnClick(Sender: TObject);
begin
  NBook.ActivePage := NBook.Pages[0];
  UBackButton.Hide;
end;
//--------------------------------- Äàëåå

procedure UNextButton_OnClick(Sender: TObject);
begin
  if NBook.ActivePage = NBook.Pages[0] then UnistallForm.ModalResult := mrOk;
  //--------------------------------- Äëÿ äðóãèõ ñòðàíèö (íà÷èíàÿ ñ 0)
  {begin
  if NBook.ActivePage = NBook.Pages[0] then
  begin
  NBook.ActivePage := NBook.Pages[1];
  UBackButton.Show;
  end else
  if NBook.ActivePage = NBook.Pages[1] then
  UnistallForm.ModalResult := mrOk; }
end;

//--------------------------------- ?

procedure UnistallFormOnShow(Sender: TObject);
begin
  ShowWindow(StrToInt(ExpandConstant('{apphwnd}')), SW_HIDE);
end;

//--------------------------------- Óäàëåíèå ôàéëîâ (áåòà íóæíî îáîéòèñü áåç ôàéë ëèñòà)

procedure DeleteFiles();
var
  SR: TFindRec;
  i: integer;
  str: string;
  ResultCode: Integer;
begin
  DelAllReadOnly := False;
  SkipAllReadOnly := False;
  for i := CheckListBox.Items.Count - 1 downto 0 do
  begin
    if CheckListBox.State[i] = cbChecked then
    begin
      str := Trim(TStrings(CheckListBox.ItemObject[i]).Text);
      FindFirst(str, SR);
      if ((SR.Attributes and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY) then
        if not (DelAllReadOnly or SkipAllReadOnly) then
          if DelAllReadOnly then
            Exec('attrib', ' -h -s -r ' + '"' + str + '"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
      FindClose(SR);
      DeleteFile(str);
      RemoveDir(str);
    end;
  end;
end;

procedure DelFolder();
var List: TStringList; src, dest, bat: string; res: Integer;
begin
  bat := ExpandConstant('{app}\Uninstall.bat');
  List := TStringList.Create;
  List.Add('rd /q /s Uninstall');
  List.Add('del /q Uninstall.bat');
  List.SaveToFile(bat);
  List.Free;
  Exec(bat, '', '', SW_hide, ewNoWait, Res);
end;

//--------------------------------- Íà÷àëî (Ôîðìà íà÷àëà óäàëåíèÿ)

function CreateUnistallForm: Integer;
var
  i: Integer;
begin
  FileCopy(ExpandConstant('{app}\Uninstall\Uninstall  Image.bmp'), ExpandConstant('{tmp}\UninstallImage.bmp'), False);
  RunTaskA('Uninstall.dat', false);

  UnistallForm := CreateCustomForm;
  UnistallForm.BorderStyle := bsSingle;
  UnistallForm.BorderIcons := [biSystemMenu, biMinimize];
  UnistallForm.Caption := 'Uninstall My Application Program Maintenance';
  UnistallForm.SetBounds(ScaleX(0), ScaleY(0), ScaleX(705), ScaleY(405));
  UnistallForm.Color := clBlack;

  UninstallImage := TBitmapImage.Create(UnistallForm);
  UninstallImage.AutoSize := False;
  UninstallImage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(705), ScaleY(405));
  UninstallImage.Bitmap.LoadFromFile(ExpandConstant(  '{tmp}\UninstallImage.bmp'));
  UninstallImage.Parent := UnistallForm;
  //UninstallImage.BackColor := clNone;
  //UninstallImage.ReplaceColor := clBlack;
  //UninstallImage.ReplaceWithColor := clNone;

  UnistallWelcome1 := TLabel.Create(UnistallForm);
  UnistallWelcome1.SetBounds(ScaleX(55), ScaleY(100), ScaleX(600), ScaleY(60));
  UnistallWelcome1.AutoSize := False;
  UnistallWelcome1.WordWrap := True;
  UnistallWelcome1.Transparent := True;
  UnistallWelcome1.Caption := 'Âàñ ïðèâåñòâóåò ìàñòåð óäàëåíèÿ èãðû' + #13 '{#GameName}';
  UnistallWelcome1.Font.Color := clWhite;
  UnistallWelcome1.Parent := UnistallForm;
  UnistallWelcome1.Font.Name := 'Archangelsk';
  UnistallWelcome1.Alignment := taCenter;

  UnistallWelcome2 := TLabel.Create(UnistallForm);
  UnistallWelcome2.SetBounds(ScaleX(55), ScaleY(180), ScaleX(600), ScaleY(300));
  UnistallWelcome2.AutoSize := false;
  UnistallWelcome2.WordWrap := true;
  UnistallWelcome2.Transparent := True;
  UnistallWelcome2.Caption := 'Ïðîãðàììà óäàëèò èãðó {#GameName} ñ âàøåãî êîìïüþòåð íàæìèòå «Äàëåå», ÷òîáû ïðîäîëæèòü,èëè «Îòìåíà»,÷òîáû' + #13 + 'âûéòè èç ïðîãðàììû óäàëåíèÿ';
  UnistallWelcome2.Parent := UnistallForm;
  UnistallWelcome2.Font.Color := clWhite;
  UnistallWelcome2.Font.Name := 'Archangelsk';
  UnistallWelcome2.Alignment := taCenter;

  //
  SetWindowLong(UnistallForm.Handle, GWL_EXSTYLE, GetWindowLong(UnistallForm.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);

  //--------------------------------- Ëèíèè
  //--------------------------------- Íèç
  UBevel2 := TBevel.Create(UnistallForm);
  UBevel2.Parent := UnistallForm;
  UBevel2.SetBounds(ScaleX(0), ScaleY(330), ScaleX(700), ScaleY(1));
  UBevel2.Shape := bsTopLine;

  //--------------------------------- Êíîïêè
  //--------------------------------- Íàçàä
  UBackButton := TNewButton.Create(UnistallForm);
  UBackButton.Parent := UnistallForm;
  UBackButton.SetBounds(ScaleX(410), ScaleY(341), ScaleX(78), ScaleY(27));
  UBackButton.Caption := '< &Back';
  UBackButton.Visible := False;
  UBackButton.OnClick := @UBackButton_OnClick;

  //--------------------------------- Äàëåå
  UNextButton := TNewButton.Create(UnistallForm);
  UNextButton.Parent := UnistallForm;
  UNextButton.SetBounds(ScaleX(510), ScaleY(341), ScaleX(78), ScaleY(27));
  UNextButton.Caption := '&Next >';
  UNextButton.Default := True;
  UNextButton.OnClick := @UNextButton_OnClick;
  UNextButton.BringToFront;

  //--------------------------------- Îòìåíû
  UCancelButton := TNewButton.Create(UnistallForm);
  UCancelButton.Parent := UnistallForm;
  UCancelButton.SetBounds(ScaleX(610), ScaleY(341), ScaleX(78), ScaleY(27));
  UCancelButton.Cancel := True;
  UCancelButton.ModalResult := mrCancel;
  UCancelButton.Caption := 'Cancel';
  UCancelButton.ParentFont := true;

  //--------------------------------- Íîâûå ñòð.
  NBook := TNewNotebook.Create(UnistallForm);
  with NBook do
  begin
    for i := 0 to 1 do
      with TNewNotebookPage.Create(UnistallForm) do
        Notebook := NBook;
    ActivePage := Pages[0]; //óêàçûâàåì íóæíûå íàì ñòðàíèöû  âñåãî 2å (íà÷àòü ìîæíî ñ 0 èëè 1) ìîæíî ñäåëàòü áîëüøå
  end;

  UnistallForm.Center;
  UnistallForm.OnShow := @UnistallFormOnShow;
  UnistallForm.Caption := 'Ìàñòåð óäàëåíèÿ ôàéëîâ èãðû';
  Result := UnistallForm.ShowModal;
end;

//--------------------------------- Óäàëåíèå (îñíîâíàÿ ôîðìà)

procedure InitializeUninstallProgressForm();
begin
  UninstallProgressForm.SetBounds(ScaleX(0), ScaleY(0), ScaleX(705), ScaleY(405));
  UninstallProgressForm.Center;
  UninstallProgressForm.Color := clBlack;
  UninstallProgressForm.Caption := 'Ìàñòåð óäàëåíèÿ ôàéëîâ èãðû';


  UninstallImage := TBitmapImage.Create(UninstallProgressForm);
  UninstallImage.AutoSize := False;
  UninstallImage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(705), ScaleY(405));
  UninstallImage.Bitmap.LoadFromFile(ExpandConstant(  '{tmp}\UninstallImage.bmp'));
  UninstallImage.Parent := UninstallProgressForm;

  UninstallProgressForm.Bevel.hide;
  UninstallProgressForm.InnerNotebook.Hide;
  UninstallProgressForm.OuterNotebook.Hide;

  UninstallProgressForm.CancelButton.SetBounds(ScaleX(610), ScaleY(341), ScaleX(78), ScaleY(27));
  UninstallProgressForm.CancelButton.Parent := UninstallProgressForm;

  UninstallProgressForm.ProgressBar.SetBounds(ScaleX  (100), ScaleY(180), ScaleX(500), ScaleY(20));
  UninstallProgressForm.ProgressBar.Parent := UninstallProgressForm;

  UninstallLabel := TLabel.Create(UninstallProgressForm);
  UninstallLabel.SetBounds(ScaleX(55), ScaleY(100), ScaleX(600), ScaleY(60));
  UninstallLabel.AutoSize := False;
  UninstallLabel.WordWrap := True;
  UninstallLabel.Transparent := True;
  UninstallLabel.Font.Color := clWhite;
  UninstallLabel.Font.Name := 'Archangelsk';
  UninstallLabel.Caption := 'Óäàëåíèå';
  UninstallLabel.Parent := UninstallProgressForm;
  UninstallLabel.Alignment := taCenter;

  UninstallLabel1 := TLabel.Create(UninstallProgressForm);
  UninstallLabel1.SetBounds(ScaleX(100), ScaleY(150), ScaleX(600), ScaleY(100));
  UninstallLabel1.AutoSize := False;
  UninstallLabel1.WordWrap := True;
  UninstallLabel1.Transparent := True;
  UninstallLabel1.Font.Color := clWhite;
  UninstallLabel1.Font.Name := 'Archangelsk';
  UninstallLabel1.Caption := 'Âûïîëíÿåòñÿ óäàëåíèå èãðû. Ïîæàëóéñòà ïîäîæäèòå...';
  UninstallLabel1.Parent := UninstallProgressForm;
  UninstallLabel.Alignment := taCenter;

  UBevel1 := TBevel.Create(UninstallProgressForm);
  UBevel1.Parent := UninstallProgressForm;
  UBevel1.SetBounds(ScaleX(0), ScaleY(50), ScaleX(700), ScaleY(1));
  UBevel1.Shape := bsTopLine;

  UBevel2 := TBevel.Create(UninstallProgressForm);
  UBevel2.Parent := UninstallProgressForm;
  UBevel2.SetBounds(ScaleX(0), ScaleY(330), ScaleX(700), ScaleY(1));
  UBevel2.Shape := bsTopLine;
end;

//--------------------------------- Ôèíèøü (Ôîðìà îêîí÷àíèÿ óäàëåíèÿ)

procedure BrowseRemainedFiles();
begin
  Form := CreateCustomForm;
  Form.SetBounds(ScaleX(0), ScaleY(0), ScaleX(705), ScaleY(405));
  Form.Caption := 'Ìàñòåð óäàëåíèÿ ôàéëîâ èãðû';
  Form.Center;
  Form.Color := clBlack;

  UninstallImage := TBitmapImage.Create(Form);
  UninstallImage.AutoSize := False;
  UninstallImage.SetBounds(ScaleX(0), ScaleY(0), ScaleX(705), ScaleY(405));
  UninstallImage.Bitmap.LoadFromFile(ExpandConstant(  '{tmp}\UninstallImage.bmp'));
  UninstallImage.Parent := Form;

  UninstallFinished1 := TLabel.Create(Form);
  UninstallFinished1.SetBounds(ScaleX(55), ScaleY(100), ScaleX(600), ScaleY(100));
  UninstallFinished1.AutoSize := False;
  UninstallFinished1.WordWrap := True;
  UninstallFinished1.Transparent := True;
  UninstallFinished1.Font.Color := clWhite;
  UninstallFinished1.Font.Name := 'Archangelsk';
  UninstallFinished1.Caption := 'Ìàñòåð óäàëåíèÿ çàâåðøèë ñâîþ ðàáîòó è óäàëèëè èãðó' + #13 + '{#GameName} ñ âàøåãî êîìïþòåðà';
  UninstallFinished1.Parent := Form;
  UninstallFinished1.Alignment := taCenter;

  UninstallFinished2 := TLabel.Create(Form);
  UninstallFinished2.SetBounds(ScaleX(55), ScaleY(180), ScaleX(600), ScaleY(300));
  UninstallFinished2.AutoSize := False;
  UninstallFinished2.WordWrap := True;
  UninstallFinished2.Transparent := True;
  UninstallFinished2.Caption := 'Íàæìèòå êíîïêó «Çàâåðøèòü» ÷òîáû âûéòè èç ïðîãðàììû óäàëåíèÿ. Åñëè âû õîòèòå óñòàíîâèòü èãðó ïîâòîðíî çàïóñòèòå Ìàñòåð óñòàíîâêè èãðû';
  UninstallFinished2.Parent := Form;
  UninstallFinished2.Font.Color := clWhite;
  UninstallFinished2.Font.Name := 'Archangelsk';
  UninstallFinished2.Alignment := taCenter;

  UBevel2 := TBevel.Create(Form);
  UBevel2.Parent := Form;
  UBevel2.SetBounds(ScaleX(0), ScaleY(330), ScaleX(700), ScaleY(1));
  UBevel2.Shape := bsTopLine;

  CheckListBox := TNewCheckListBox.Create(Form);
  CheckListBox.SetBounds(ScaleX(0), ScaleY(0), ScaleX(0), ScaleY(0));
  CheckListBox.Offset := 1;
  CheckListBox.Visible := false;
  CheckListBox.Font.Name := 'Arial';
  CheckListBox.Font.Size := 9;
  CheckListBox.Parent := Form;

  OKButton := TButton.Create(Form);
  OKButton.Parent := Form;
  OKButton.SetBounds(ScaleX(610), ScaleY(341), ScaleX(78), ScaleY(27));
  OKButton.Caption := 'Çàâåðøèòü';
  OKButton.ModalResult := mrOk;
  OKButton.ParentFont := true;
  OKButton.BringToFront;

  if Form.ShowModal() = mrOk then DeleteFiles();
end;

//--------------------------------- Óáèðàåì âûâîä ñîîáùåíèé î óäàëåíèå è ïîñëå óäàëåíèÿ

function InitializeUninstall(): Boolean;
var
  RCode: Integer;
begin
  Result := False;
  if not UninstallSilent then
  begin
    Exec(ExpandConstant('{uninstallexe}'), '/SILENT', '', SW_SHOW, ewNoWait, RCode);
    Exit;
  end;
  //---------------------------------
  if CreateUnistallForm <> mrCancel then
  begin
    ShowWindow(StrToInt(ExpandConstant('{apphwnd}')), SW_SHOW);
    Result := True;
  end;
  UnistallForm.Free;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  RCode: Integer;
begin
  KillTaskA('Uninstall.dat');
  if DirExists(ExpandConstant('{app}')) and (CurUninstallStep = usPostUninstall)
    then BrowseRemainedFiles();
  DelFolder();
end;[/SPOILER]

 

[Shift85]

Как можно удалить Меню «О программе». Зарание спасибо...

А лутше все меню http://rghost.ru/52186915

 

[urban]

Shift85,

Как можно удалить Меню «О программе».

WizardForm.Position:=poScreenCenter;

А лутше все меню

WizardForm.BorderStyle:=bsDialog;

 

[307cwam]

Здраствуйте,

У меня в инсталляторе прописана секция рун

[Run]
Filename: "{app}\RC.exe"; Description: "Запустить программу."; Flags: postinstall

То есть при инсталляции программы в последнем окне Готово
стоит чекбокс. И если он установлен, а он установлен,
то происходит запуск указанного файла.

На Windows XP запуск происходит нормально.
А вот на Windows 8.1, нет. Появляется эта ошибка.

http://s009.radikal.ru/i310/1402/ff/2a2aef4cca67.png

Что необходимо прописать ещё,
чтобы этой ошибки не было
и файл запускался?

 

[Дамир]

307cwam, попробуй инсталл запустить от имени администратора.

 

[sergey3695]

При использовании

const
  ID_ASTERISK = 65583;
...
Icon.Handle := ID_ASTERISK;

на 7 и 8 все норм. а на xp отображается другая иконка. Если даже сделать проверку на систему, то какое значение должна принимать иконка на xp? или если воспользоваться функцией LoadIcon...воможно будет тогда норм,но в inno еще не встречал реализации с данной функцией. как это сделать?

 

[Snoopak96]

sergey3695,

function LoadImage(hInst: UINT; ImageName: String; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; 
#ifdef UNICODE
external 'LoadImageW@user32.dll stdcall';
#else
external 'LoadImageA@user32.dll stdcall';
#endif

SendMessage(WizardForm.Handle, $0080, 0, LoadImage(0,ExpandConstant('{tmp}')+'\test.ico',1,16,16,$1010));

 

[Shift85]

Почему кнопка отмены наложенная через ботву не отображается на wpInstalling?
Как ее отобразить с ISDone и почему она скрыта непонятно...:o
Зарание спасибо если кто поможет разобраться...

 

[Silentman]

Shift85, значит где-то ошибка в скрипте, вот через ботву затекстурировал только кнопку отмены исдона, всё работает: http://rghost.ru/52198267

 

[Shift85]

Silentman, Спасибо сам разобрался наложил одну кнопку на другую...

 

[urban]

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