Inno Setup -如何编辑"About Setup“对话框
Inno Setup -如何编辑"About Setup“对话框
提问于 2013-02-12 16:12:09
我需要编辑或替换Inno Setup的About Setup对话框text中的文本。
这是一张图片：
在互联网上查找，我得到了这个代码：
[Files]
Source: CallbackCtrl.dll; Flags: dontcopy
[Code]
type
TWFProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam: Longint; lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function WrapWFProc(Callback: TWFProc; ParamCount: Integer): Longword; external 'wrapcallbackaddr@files:CallbackCtrl.dll stdcall';
var
OldProc:Longint;
procedure AboutSetupClick;
begin
//Edit your text here
MsgBox('CUSTOM TEXT HERE', mbInformation, MB_OK);
end;
function WFWndProc(h:HWND;Msg,wParam,lParam:Longint):Longint;
begin
if (Msg=$112) and (wParam=9999) then begin
Result:=0;
AboutSetupClick;
end else begin
if Msg=$2 then SetWindowLong(WizardForm.Handle,-4,OldProc);
Result:=CallWindowProc(OldProc,h,Msg,wParam,lParam);
end;
end;
procedure InitializeWizard;
begin
OldProc:=SetWindowLong(WizardForm.Handle,-4,WrapWFProc(@WFWndProc,4));
end;似乎工作得很好..
但如果我关闭安装程序，我会收到崩溃消息。
请帮助我修复这个代码，或者给出一个更好的例子来改变“关于设置”对话框中的文本。
我使用的DLL。HERE
回答 1
Stack Overflow用户
回答已采纳
发布于 2013-02-12 22:21:35
在退出安装应用程序之前，您需要将保存的原始windows过程返回到向导窗体。要执行此操作，请使用类似以下内容：
const
GWL_WNDPROC = -4;
procedure DeinitializeSetup;
begin
SetWindowLong(WizardForm.Handle, GWL_WNDPROC, OldProc);
end;无论如何，您可以使用更可信的库来包装回调，即InnoCallback库。我已经检查了您使用的代码，并添加了对Unicode InnoSetup版本的支持，预计将使用InnoCallback库：
[Files]
Source: "InnoCallback.dll"; DestDir: "{tmp}"; Flags: dontcopy
[Code]
#ifdef UNICODE
#define AW "W"
#else
#define AW "A"
#endif
const
GWL_WNDPROC = -4;
SC_ABOUTBOX = 9999;
WM_SYSCOMMAND = $0112;
type
WPARAM = UINT_PTR;
LPARAM = LongInt;
LRESULT = LongInt;
TWindowProc = function(hwnd: HWND; uMsg: UINT; wParam: WPARAM;
lParam: LPARAM): LRESULT;
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';
var
OldWndProc: LongInt;
procedure ShowAboutBox;
begin
MsgBox('Hello, I''m your about box!', mbInformation, MB_OK);
end;
function WndProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM;
lParam: LPARAM): LRESULT;
begin
if (uMsg = WM_SYSCOMMAND) and (wParam = SC_ABOUTBOX) then
begin
Result := 0;
ShowAboutBox;
end
else
Result := CallWindowProc(OldWndProc, hwnd, uMsg, wParam, lParam);
end;
procedure InitializeWizard;
begin
OldWndProc := SetWindowLong(WizardForm.Handle, GWL_WNDPROC,
WrapWindowProc(@WndProc, 4));
end;
procedure DeinitializeSetup;
begin
SetWindowLong(WizardForm.Handle, GWL_WNDPROC, OldWndProc);
end;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/14828144
复制相关文章
相似问题
腾讯云开发者
