// 检查安装路径是否是英文 function IsEnglishStr(file: String): Boolean; var value: Integer; len: Integer; i: Integer; begin Result := true; len := length(file); for i := 1 to len do begin // 将字符转成ascii值 value := ord(file[i]); // 根据字符的ascii码值判断字符是否为中文 if (value < 41) or (value > 122) then begin Result := false; end; end; end;
// 选择安装路径下一步按钮触发事件,返回 false 则不会跳到下一步 function NextButtonClick(CurPageID:Integer):Boolean; begin Result := True; if (CurPageID = wpSelectDir) then begin if(IsEnglishStr(WizardDirValue) = false) then begin Result := False; MsgBox('Install folder is invalid !', mbError, MB_OK); end; end; end;