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