begin
Result :=false; //安装程序退出
is_value :=0;
end else begin
Result :=true; //安装程序继续
is_value:=FindWindowByClassName( TfrmCmdCenter );
end;
end;
end;
function InitializeUninstall(): Boolean;
begin
is_value:=FindWindowByClassName( TfrmCmdCenter );
if is_value<>0 then begin
MsgBox( 卸载程序检测到您的迅雷软件当前正在运行。 #13#13 为了更安全完整的卸载，您必须关闭它在进行卸载操作！ , mbError, MB_OK);
Result :=false;
end else Result :=true;
end;
24、自定义安装程序右上角图片大小
[code]
procedure InitializeWizard();
begin
WizardForm.WizardSmallBitmapImage.width:=150; //设置页眉图片的大小
WizardForm.WizardSmallBitmapImage.left:=WizardForm.width-150; //设置左边页眉留出的空隙
WizardForm.PAGENAMELABEL.width:=0; //设置标题文字显示的大小
WizardForm.PAGEDESCRIPTIONLABEL.width:=0; //设置标题文字显示的大小 end;
25、跳关安装程序的欢迎界面
INNO 的设计中本身可以跳过所有向导页面（用 ShouldSkipPage 函数），但是唯独不能跳过欢迎页面，据说作者是有意为了防止该功能被滥用，即产生完全没有界面的在后台运行的安装程序。
要跳过欢迎页面，只能调用系统的功能。
参考一
复制内容到剪贴板代码:
[Code]
const