5,392
社区成员
发帖
与我相关
我的任务
分享innoSetup制作安装包问题请教
innoSetup制作安装包问题请教
innosetup支持pascal语法 使用方便 现在要实现一个功能 就是在安装过程中配置下ip地址，然后将ip地址保存到xml文件中，请问下大家 这样能实现吗？ 谢谢。
innosetup支持pascal语法 使用方便 现在要实现一个功能 就是在安装过程中配置下ip地址，然后将ip地址保存到xml文件中，请问下大家 这样能实现吗？ 谢谢。
...全文
请发表友善的回复…
发表回复
qq_16500217 2014-06-13
- 打赏
- 举报
我想将在安装过程中的用户名 和密码写进xml中 ，请问有什么办法吗？
山东蓝鸟贵薪 2012-11-22
- 打赏
- 举报
占个位置学习中
stephenchern 2012-11-21
- 打赏
- 举报
百度没有 要有 干嘛来这？
jAmEs_ 2012-11-19
- 打赏
- 举报
估计百度搜索一下更实际。
stephenchern 2012-11-15
- 打赏
- 举报
{ UpdateIPForm_NextButtonClick }
function UpdateIPForm_NextButtonClick(Page: TWizardPage): Boolean;
var
s: string;
sTestUrl: string;
rst: Boolean;
begin
s := Trim(tbUpdateIP.Text);
if (s = '') then
begin
MsgBox(ExpandConstant('请输入更新地址！'), mbError, MB_OK);
Result := false;
end else
begin
URL := s; //将输入的地址作为URL
sTestUrl := s + 'App4U.xml';
try
WinHttpRequest.Open('GET', sTestUrl);
WinHttpRequest.Send('');
if Pos('<App4U>', WinHttpRequest.ResponseText) > 0 then
begin
rst := true;
end else
begin
rst := false;
end;
except
rst := false;
end;
if rst then
begin
Result := true;
end else
begin
MsgBox(ExpandConstant('输入的更新地址有误，请重新输入！'), mbError, MB_OK);
Result := false;
end;
end;
end;
自己已经实现 如需详细代码 请联系我。
SQLDebug_Fan 2012-11-13
- 打赏
- 举报
可以实现，你上网搜搜看看有没有现成代码。
mdejtod 2012-11-13
- 打赏
- 举报
当然可以，写代码跟在IDE下没啥区别
