inno setup code 段常用代码(8)

end;

19、自定义BeveledLabel文字

[Messages]

BeveledLabel=中天VIP工作室

20、自定义安装程序界面左上角“安装”文字

[message]

SetupAppTitle=需要的字

SetupWindowTitle=需要的字

21、自定义安装程序版本号

VersionInfoVersion=1.1

VersionInfoTextVersion=1.1

22、安装完成后显示新特性

[Run]

Filename: "{app}\WhatsNew.Txt"; Description: "安装完成后显示新特性"; Flags: postinstall shellexec skipifsilent

23、安装卸载前检测软件是否在运行

说明：安装前用FindWindowByClassName检测迅雷程序是否在运行，注意这个循环语句。 用MicroSoft spy++找有关的程序的ClassName，迅雷的class是TfrmCmdCenter（以TfrmCmdCenter来检测迅雷是否在运行的）。

[Code]

var

is_value: integer;

function InitializeSetup(): Boolean;

begin

Result :=true;

is_value:=FindWindowByClassName( TfrmCmdCenter );

while is_value<>0 do

begin

if Msgbox( 安装程序检测到您的迅雷软件当前正在运行。 #13#13 您必须先关闭它然后单击“是”继续安装，或按“否”退出！ , mbConfirmation, MB_YESNO) = idNO then