Свободное общение

[YURSHAT]

YURSHAT, доброго, а темную тему как активировать? Чет не помню где это было.

Тёмной пока нет. Добавим, в ближайшее время

 

[Petrarca]

Добрый день, мне нужно создать простенький инсталлер для мода. Юзер должен выбрать папку игры и чек боксы с вариантами установки (несколько взаимозаменяемых версий). Что можете посоветовать?

 

[Andreo Fadio]

Добрый день, мне нужно создать простенький инсталлер для мода. Юзер должен выбрать папку игры и чек боксы с вариантами установки (несколько взаимозаменяемых версий). Что можете посоветовать?

Используй стандартный мастер сценария и в справке почитай про использование секций - [Types] и [Components]

 

[Edison007]

аргх, у тут всё в этих прямоугольниках стало

 

[Edison007]

А так, да, тёмной темы не хватает

 

[YURSHAT]

А так, да, тёмной темы не хватает

Я чёт думал, что ею никто не пользуется, а оказывается...
Поставим на днях

 

[dixen18]

А это нормально если все уведомления и пункты стали на английском?)

 

[Edison007]

В настройках профиля поменять можно.
Ваш аккаунт > настройки > язык (в самом вверху)

 

[Nemko]

День добрый, помогите побороть, все перепробовал (что на ум пришло). Не могу придумать другой метод создания списковых Control'ов, а тут засада, уже несколько дней ничего не выходит(грубый пример прикрепляю):

Спойлер: Pic

 

[ffmla]

Guys, Need to know some installer information from RG Revenants.
Installer from RG Revenants for the Wolfenstein 2009 Repack, shown in the attached image.

Спойлер: Pic

if it use inno script, then which function use to create the Thumbnails.

PS. Installer heavily modified with custom bevels(support Gradient outlines),Custom AppOnMessage with icons,Working thumbnails without wintb.dll.All the libraries hidden in temp location.

 

[YURSHAT]

if it use inno script

This installer created on Delphi

 

[tihiy_don]

Вот в этом гайде я брал основы по реестру, смотри секцию Registry!

 

[Хамик]

Справка самый лучший гайд

 

[Andreo Fadio]

Справка самый лучший гайд

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

 

[Shegorat]

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

Да как бэ нет. Справка вполне подробно описывает необходимую информацию.

А этот "гайд" берёт инфу в основном с той же самой справки

 

[Andreo Fadio]

Да как бэ нет. Справка вполне подробно описывает необходимую информацию.

С какой точки зрения посмотреть - со стороны новичка, который только скачал программу - справка не всегда понятная.

 

[Хамик]

С какой точки зрения посмотреть - со стороны новичка, который только скачал программу - справка не всегда понятная.

Я начинал из справки, если что-то не получалось, то спрашивал на форуме. Так что не нужно рассказывать про "новичек", "не новичек". Справки как раз и создаются для новичков.

 

[ffmla]

Greeting guys,
Need to know some details about wizardform.statuslabel.?
I have seen this Topic Status label hooking. Is it really working? if so, kindly give practical example using default CallbackAddr method or using CallbackCtrl.dll.

Thanks in advance...

 

[Nemko]

ffmla, found to Internet, this with InnoCallback.dll, possible with CallbackCtrl.dll by analogy:

Спойлер: exp

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=userdocs:Inno Setup Examples Output

[Files]
Source: "InnoCallback.dll"; DestDir: "{tmp}"; Flags: dontcopy

[*Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif
const
  GWL_WNDPROC = -4;
  WM_MOUSEMOVE = $0200;

type
  WPARAM = UINT_PTR;
  LPARAM = LongInt;
  LRESULT = LongInt;
  TWindowProc = function(hwnd: HWND; uMsg: UINT; wParam: WPARAM;
    lParam: LPARAM): LRESULT;

function SetCapture(hWnd: HWND): HWND; external 'SetCapture@user32.dll stdcall';
function ReleaseCapture: BOOL; external 'ReleaseCapture@user32.dll stdcall';
function GetMessagePos: DWORD; external 'GetMessagePos@user32.dll stdcall';
function GetWindowRect(hWnd: HWND; out lpRect: TRect): BOOL; external 'GetWindowRect@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: LongInt; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'CallWindowProc{#AW}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: LongInt): LongInt; external 'SetWindowLong{#AW}@user32.dll stdcall';

function WrapWindowProc(Callback: TWindowProc; ParamCount: Integer): LongWord; external 'wrapcallback@files:InnoCallback.dll stdcall';

type
  TControlRec = record
    Hovered: Boolean;     // hovering state
    WndProc: LongInt;     // original window proc
    Control: TWinControl; // control instance
  end;

var
  StaticText1: TNewStaticText;
  StaticText2: TNewStaticText;
  ControlList: array of TControlRec;

// helper function for finding control by handle
function GetControlRec(Handle: HWND): TControlRec;
var
  I: Integer;
begin
  for I := 0 to High(ControlList) do
    if ControlList[I].Control.Handle = Handle then
    begin
      Result := ControlList[I];
      Exit;
    end;
end;

// function which attaches the intercepting window procedure to the control
// and creates and adds the control record to the control list
procedure AttachWndProc(Control: TWinControl; WindowProc: TWindowProc);
begin
  SetArrayLength(ControlList, GetArrayLength(ControlList) + 1);
  ControlList[High(ControlList)].Hovered := False;
  ControlList[High(ControlList)].Control := Control;
  ControlList[High(ControlList)].WndProc := SetWindowLong(Control.Handle,
    GWL_WNDPROC, WrapWindowProc(WindowProc, 4));
end;

// function to restore windows procedures to all controls in the list
procedure RestoreWndProcs;
var
  I: Integer;
begin
  for I := 0 to High(ControlList) do
    SetWindowLong(ControlList[I].Control.Handle, GWL_WNDPROC, ControlList[I].WndProc);
end;

// helper function to create a TPoint structure from the result of GetMessagePos
// function call
function MakePoint(Value: DWORD): TPoint;
begin
  Result.X := Value and $FFFF;
  Result.Y := Value shr 16;
end;

// helper function which substitutes PtInRect Windows API function which I wasn't
// able to import for some reason
function PointInRect(const Rect: TRect; const Point: TPoint): Boolean;
begin
  Result := (Point.X >= Rect.Left) and (Point.X <= Rect.Right) and
    (Point.Y >= Rect.Top) and (Point.Y <= Rect.Bottom);
end;

// interceptor window procedure
function StaticTextWndProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM;
  lParam: LPARAM): LRESULT;
var
  P: TPoint;
  R: TRect;
  ControlRec: TControlRec;
begin
  // get control record
  ControlRec := GetControlRec(hwnd);
  // if the cursor moves, then...
  if uMsg = WM_MOUSEMOVE then
  begin
    // set mouse capture for this control to be notified by the WM_MOUSEMOVE even if
    // we leave the control
    SetCapture(ControlRec.Control.Handle);
    // get the current cursor position and control rectangle (both screen relative)
    P := MakePoint(GetMessagePos);
    GetWindowRect(ControlRec.Control.Handle, R);
    // check if the cursor is inside the control; if yes, then...
    if PointInRect(R, P) then
    begin
      // if the hovering flag was not yet set, it means we just entered the control
      // with the mouse, so let's change the style and remember the hovering state
      if not ControlRec.Hovered then
      begin
        if ControlRec.Control is TNewStaticText then
          TNewStaticText(ControlRec.Control).Font.Style := [fsBold];
        ControlRec.Hovered := True;
      end;
    end
    else
    begin
      // the cursor is not over the control, so let's release the mouse capture, set
      // the style and remember the hovering state
      ReleaseCapture;
      if ControlRec.Control is TNewStaticText then
        TNewStaticText(ControlRec.Control).Font.Style := [];
      ControlRec.Hovered := False;
    end;
  end;
  // call the original window procedure
  Result := CallWindowProc(ControlRec.WndProc, hwnd, uMsg, wParam, lParam);
end;

procedure InitializeWizard;
begin
  with WizardForm do begin
    OuterNotebook.Hide;
    StatusLabel.Caption:='123';
    StatusLabel.Parent:=WizardForm;
    AttachWndProc(StatusLabel, @StaticTextWndProc);
  end;
end;

procedure DeinitializeSetup;
begin
  RestoreWndProcs;
end;

P.S.: on CallbackCtrl.dll see this.

 

[ffmla]

ffmla, found to Internet, this with InnoCallback.dll, possible with CallbackCtrl.dll by analogy:

Спойлер: exp

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=userdocs:Inno Setup Examples Output

[Files]
Source: "InnoCallback.dll"; DestDir: "{tmp}"; Flags: dontcopy

[*Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif
const
  GWL_WNDPROC = -4;
  WM_MOUSEMOVE = $0200;

type
  WPARAM = UINT_PTR;
  LPARAM = LongInt;
  LRESULT = LongInt;
  TWindowProc = function(hwnd: HWND; uMsg: UINT; wParam: WPARAM;
    lParam: LPARAM): LRESULT;

function SetCapture(hWnd: HWND): HWND; external 'SetCapture@user32.dll stdcall';
function ReleaseCapture: BOOL; external 'ReleaseCapture@user32.dll stdcall';
function GetMessagePos: DWORD; external 'GetMessagePos@user32.dll stdcall';
function GetWindowRect(hWnd: HWND; out lpRect: TRect): BOOL; external 'GetWindowRect@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: LongInt; hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'CallWindowProc{#AW}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: LongInt): LongInt; external 'SetWindowLong{#AW}@user32.dll stdcall';

function WrapWindowProc(Callback: TWindowProc; ParamCount: Integer): LongWord; external 'wrapcallback@files:InnoCallback.dll stdcall';

type
  TControlRec = record
    Hovered: Boolean;     // hovering state
    WndProc: LongInt;     // original window proc
    Control: TWinControl; // control instance
  end;

var
  StaticText1: TNewStaticText;
  StaticText2: TNewStaticText;
  ControlList: array of TControlRec;

// helper function for finding control by handle
function GetControlRec(Handle: HWND): TControlRec;
var
  I: Integer;
begin
  for I := 0 to High(ControlList) do
    if ControlList[I].Control.Handle = Handle then
    begin
      Result := ControlList[I];
      Exit;
    end;
end;

// function which attaches the intercepting window procedure to the control
// and creates and adds the control record to the control list
procedure AttachWndProc(Control: TWinControl; WindowProc: TWindowProc);
begin
  SetArrayLength(ControlList, GetArrayLength(ControlList) + 1);
  ControlList[High(ControlList)].Hovered := False;
  ControlList[High(ControlList)].Control := Control;
  ControlList[High(ControlList)].WndProc := SetWindowLong(Control.Handle,
    GWL_WNDPROC, WrapWindowProc(WindowProc, 4));
end;

// function to restore windows procedures to all controls in the list
procedure RestoreWndProcs;
var
  I: Integer;
begin
  for I := 0 to High(ControlList) do
    SetWindowLong(ControlList[I].Control.Handle, GWL_WNDPROC, ControlList[I].WndProc);
end;

// helper function to create a TPoint structure from the result of GetMessagePos
// function call
function MakePoint(Value: DWORD): TPoint;
begin
  Result.X := Value and $FFFF;
  Result.Y := Value shr 16;
end;

// helper function which substitutes PtInRect Windows API function which I wasn't
// able to import for some reason
function PointInRect(const Rect: TRect; const Point: TPoint): Boolean;
begin
  Result := (Point.X >= Rect.Left) and (Point.X <= Rect.Right) and
    (Point.Y >= Rect.Top) and (Point.Y <= Rect.Bottom);
end;

// interceptor window procedure
function StaticTextWndProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM;
  lParam: LPARAM): LRESULT;
var
  P: TPoint;
  R: TRect;
  ControlRec: TControlRec;
begin
  // get control record
  ControlRec := GetControlRec(hwnd);
  // if the cursor moves, then...
  if uMsg = WM_MOUSEMOVE then
  begin
    // set mouse capture for this control to be notified by the WM_MOUSEMOVE even if
    // we leave the control
    SetCapture(ControlRec.Control.Handle);
    // get the current cursor position and control rectangle (both screen relative)
    P := MakePoint(GetMessagePos);
    GetWindowRect(ControlRec.Control.Handle, R);
    // check if the cursor is inside the control; if yes, then...
    if PointInRect(R, P) then
    begin
      // if the hovering flag was not yet set, it means we just entered the control
      // with the mouse, so let's change the style and remember the hovering state
      if not ControlRec.Hovered then
      begin
        if ControlRec.Control is TNewStaticText then
          TNewStaticText(ControlRec.Control).Font.Style := [fsBold];
        ControlRec.Hovered := True;
      end;
    end
    else
    begin
      // the cursor is not over the control, so let's release the mouse capture, set
      // the style and remember the hovering state
      ReleaseCapture;
      if ControlRec.Control is TNewStaticText then
        TNewStaticText(ControlRec.Control).Font.Style := [];
      ControlRec.Hovered := False;
    end;
  end;
  // call the original window procedure
  Result := CallWindowProc(ControlRec.WndProc, hwnd, uMsg, wParam, lParam);
end;

procedure InitializeWizard;
begin
  with WizardForm do begin
    OuterNotebook.Hide;
    StatusLabel.Caption:='123';
    StatusLabel.Parent:=WizardForm;
    AttachWndProc(StatusLabel, @StaticTextWndProc);
  end;
end;

procedure DeinitializeSetup;
begin
  RestoreWndProcs;
end;

P.S.: on CallbackCtrl.dll see this.

thanks @Nemko ,
But the above mentioned post @Avengerz13 use only a callback to grab the wizardform.Statuslabel. And to feed the caption into TLabel.Is it realy possible?
Exact thing is Posted by @Veskella on this POST

Спойлер: My concern

i try to make installer with wizardform as a background and hide the OuterNotebook and InnerNotebook.Then how can i use the Wizardform.statuslabel.caption on (TLabel or label with sprite library ) installtion page.