Как поменять заголовок, показываемый в панели задач?

[hgdagon]

Доброго времени суток. Вот, нашел этот код в топике FAQ по Inno Setup:

[Code]
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongW@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
Function GetWindow (HWND: Longint; uCmd: cardinal): Longint;external 'GetWindow@user32.dll stdcall';

procedure InitializeWizard();
begin
  SetWindowLong(WizardForm.Handle, -8,GetWindowLong(GetWindow(WizardForm.Handle, 4),-8));
end;

Я совру, конечно, если скажу, что понимаю, что тут происходит, но вкратце понимаю, что это какая-то переадрессация с MainForm на WizardForm.
А можно ли сделать то же самое проделать с MainForm.Caption на WizardForm.Caption?

----------------------------------------
В итоге у меня получилось так (Спасибио @sergey3695 ):

[Code]
function SetWindowText(hWnd: Longint; Caption: String): Boolean;                  external 'SetWindowTextW@user32.dll stdcall';
function SetWindowLong(hWnd: Longint; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongW@user32.dll stdcall';
function GetWindowLong(hWnd: Longint; Index: Integer): Longint;                   external 'GetWindowLongA@user32.dll stdcall';
Function GetWindow    (hWnd: Longint; uCmd: Cardinal): Longint;                   external 'GetWindow@user32.dll stdcall';

<event('InitializeWizard')>
procedure InitializeWizardTBThumbFix();
begin
  WizardForm.Caption := FmtMessage(CustomMessage('Installer'), ['{#SetupSetting("AppName")}']);
  SetWindowText(GetWindowLong(MainForm.Handle, -8), WizardForm.Caption);
  SetWindowLong(WizardForm.Handle, -8,GetWindowLong(GetWindow(WizardForm.Handle, 4),-8));
end;

 

[sergey3695]

есть https://krinkels.org/resources/wintb_stripped-version.372/
не вижу смысла городить код в inno.
вот на меге лежит.

DLL - WinTB

It is not working properly with windows 10 latest update. I would appreciate if you can give some of your precious time to update the wintb.

krinkels.org

 

[hgdagon]

Спасибо за ответ. Вообще-то сойдет, но у меня и так куча DLL, хотелось бы метод без сторонних DLL, как альтернативу. Еще спасибо за исходники, ответ нашелся там.

 

[DiCaPrIo]

Application.Title:='YourTitle'

 

[hgdagon]

Application.Title:='YourTitle'

Мне надо было конкретно через код, так как секция Messages принимает только прямой текст.

 

[sergey3695]

@hgdagon, в Enhanced Inno Setup Compiler это в секции [code_] и делается. Я уж и забыл про это.

Название установщика на панеле задач

Как сделать чтобы на панеле задач вместо "Установка" было например "Установка Моя программа v1.0"?

krinkels.org

это пример с SetWindowText.

 

[hgdagon]

это пример с SetWindowText.

Ну, да. Я сделал примерно то же самое. Обновил шапку с кодом, полученным после рассмотрения исходного кода WinTB.

 

[sergey3695]

@hgdagon,

Спойлер

[CustomMessages]
Installer=Example

[code]
function SetWindowLong(hWnd: Longint; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongW@user32.dll stdcall';
function GetWindowLong(hWnd: Longint; Index: Integer): Longint;                   external 'GetWindowLongA@user32.dll stdcall';
Function GetWindow    (hWnd: Longint; uCmd: Cardinal): Longint;                   external 'GetWindow@user32.dll stdcall';

procedure InitializeWizard();
begin
  WizardForm.Caption := FmtMessage(CustomMessage('Installer'), ['{#SetupSetting("AppName")}']);
  Application.Title:= WizardForm.Caption;
  SetWindowLong(WizardForm.Handle, -8,GetWindowLong(GetWindow(WizardForm.Handle, 4),-8));
end;

 

[hgdagon]

Application.Title:= WizardForm.Caption;

Пробовал, конечно ) Такого нету в Inno.