||
-- 这些操作在点击“下一步”按钮时执行。
-- 来自 _SUF70_Global_Functions.lua:
-- 确定安装文件夹的路径格式正确 (即是一个有效的 UNC 或 DOS 路径字符串)
if(g_IsValidPath(strInstallFolderPath)) then
-- 如果所选驱动器上有足够空间,就继续下一个屏幕
if(_SpaceAvailable>= _SpaceRequired) then
-- 驱动器上有足够空间...那么
-- 继续下一个屏幕
--判断是否选择的根目录,是的话直接加一个。2013-12-13
result1 = String.Length(strInstallFolderPath);
if (result1 == 3) then
strInstallFolderPath = String.Concat(strInstallFolderPath, "医院办公系统");
--给系统变量赋值
SessionVar.Set("%AppFolder%", strInstallFolderPath);
end
Screen.Next();
else
-- 驱动器上没有足够空间...
-- 来自 _SUF70_Global_Functions.lua:
-- 询问用户是否无论如何也要继续
if g_ConfirmFreeSpaceOverride() then
-- 用户确定要继续安装...那么
-- 进入下一个屏幕
Screen.Next();
end
end
else
-- 安装文件夹路径无效...
local strTitle = SetupData.GetLocalizedString("MSG_INVALID_ENTRY");
local strPrompt;
-- 来自 _SUF70_Global_Functions.lua:
-- 检查安装文件夹路径是否只包含了有效的路径字符
if(g_ContainsValidPathChars(strInstallFolderPath)) then
-- 字符串格式错误
strPrompt = SetupData.GetLocalizedString("ERR_INVALID_PATH");
else
-- 字符串包含无效的字符
strPrompt = SetupData.GetLocalizedString("ERR_INVALID_CHARACTERS") .. "\r\n/ * ? \" <> |";
end
-- 告诉用户需要修正路径
Dialog.Message(strTitle, strPrompt, MB_OK, MB_ICONEXCLAMATION);
end |
result=Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\.NETFramework\\policy\\v2.0");
if (result == false) then
result = File.Run(SessionVar.Expand("%TempLaunchFolder%\\NetFx20SP2_x86.exe"), "", "", SW_SHOWNORMAL, true);
end |
Powered by Discuz! X3.2
© 2001-2013 Comsenz Inc.