方法/步骤 1 根据百度网盘链接下载此版本inno setup安装，然后制作软件包时在代码处setup加入UserInfoPage=true，并复制以下代码到code段，自行修改生成机器码数字不然算法通用，如下图var HDSerial: LongInt;function GetVolumeInformation( lpRootPathName: PChar; lpVolumeNameBuffer: PChar; nVolumeNameSize: LongInt;...
Log('String length = ' + IntToStr(stringLength)); { Create a string with the right size } innoString := ''; SetLength(innoString, stringLength); { This check is necessary because an empty Inno string would translate to a NULL pointer and not a pointer to an empty string, and lstrc...
writeln('The stringlist now has ' + IntToStr(Str.Count) + ' string(s).'); Readln; Str.Free; //Release the memory used by this stringlist instance end. This is a simple console program that will create and add one string to a stringlist. Now here's some things you should know: ...
Root: HKA; Subkey: "Software\Classes\{#MyAppAssocKey}\DefaultIcon"; ValueType: string; ValueName: ""; ValueData: "{app}\{#MyAppExeName},0" Root: HKA; Subkey: "Software\Classes\{#MyAppAssocKey}\shell\open\command"; ValueType: string; ValueName: ""; ValueData: """{app}\{#MyA...
我需要找出字符串是否包含一个给定的子字符串. 例如,如果我正在这样寻找一个字符串中的子字符串ABC:S := 'ABC String'; 我应该得到结果为真,而对于以下字符串我应该得到结果False:S := 'DEF String'; 如何检查一个字符串是否包含InnoSetup中的子字符串? 2、办法 Innosetup有一个Pos()函数,与Delphi完全一样...
path:string; rtn:boolean; begin //MsgBox(inttostr(curpageid),mbInformation,mb_ok); if (curpageId =7) then begin rtn := checkTomcat6(path); if rtn then//如果系统以前没安装tomcat则选中组件,否则不选中 begin WizardForm.ComponentsList.CheckItem(2,coUnCheck); ...
inno setup 脚本常用修改 转 、 有人提及想更换安装界面的图片,其实方法很简单,只需要修改inno setup安装目录下的WizModernImage.bmp和WizModernSmallImage.bmp两张图片就可以了。 只需在代码页,添加如下代码,即可实现页面的优化。 、 #define MyAppName "服务端"...
MsgBox(IntToStr(GetCurrentProcessId()), mbInformation, mb_Ok); end; procedure InitializeWizard(); begin myPage:=CreateCustomPage(wpWelcome, '标题:自定义页面', '描述:这是我的自定义页面'); Button := TNewButton.Create(mypage); Button.Width := ScaleX(75); ...
''+GetExceptionMessage+'''occurred)'); end; 5、根据环境变量选择组件，获取系统环境变量值见方法6 procedureCurPageChanged(CurPageID:Integer); var path:string; rtn:boolean; begin //MsgBox(inttostr(curpageid),mbInformation,mb_ok); if(curpageId=7)then begin rtn:=checkTomcat6(path);
简介:使用笔记1、Inno Setup 是什么?Inno Setup 是一个免费的 Windows 安装程序制作软件。第一次发表是在 1997 年,Inno Setup 今天在功能设置和稳定性上的竞争力可能已经超过一些商业的安装程序制作软件。 使用笔记 Inno Setup 是一个免费的 Windows 安装程序制作软件。第一次发表是在 1997 年,Inno Setup 今天在...