2013-01-21 63 views

回答

3

您可以从UninstallProgressForm对象的Handle属性只是得到它。以下是使用Windows API函数更改卸载窗体窗口文本的示例代码,该窗口API函数通过传递的句柄更改文本以作为证明:

[Code] 
#ifdef UNICODE 
    #define AW "W" 
#else 
    #define AW "A" 
#endif 
function SetWindowText(hWnd: HWND; lpString: string): BOOL; 
    external 'SetWindowText{#AW}@user32.dll stdcall'; 

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
begin 
    if CurUninstallStep = usUninstall then 
    SetWindowText(UninstallProgressForm.Handle, 'Caption set by window handle'); 
end;