全自动加载Edgeless插件到FirPE 2023-1-30

    全自动加载Edgeless插件到FirPE  2023-1-30

;
    版本更新日志.txt
FirPE的银灿IS903量产CD-ROM-Emulation虚拟光驱分区  和  FirPE数据分区的更新
v2.0.1  (2023-2-5)
    ● 说明：此版本为比较完善的版本，今后不再作重大变更，有细微更新升级时保持以下特征：
                               1、量产CD-ROM为只读虚拟光盘分区，不受电脑病毒木马和用户误删误改等各种危险操作的影响（重新量产操作除外）。
                               2、在用UltraISO另存为标准ISO文件生成光盘镜像之前对所有文件扫描查杀电脑病毒，确保全盘无病毒、无木马。分别用"火绒安全"、"腾讯电脑管家"、"360杀毒"、"360安全卫士"、"金山毒霸"、"卡巴斯基个人免费版"、"诺顿"、"Avast"、"Avira"、"ESETNOD32"、"比特梵德"、"瑞星"等各种杀毒软件进行全盘扫描查杀电脑病毒木马，确保全盘无病毒。
                               3、生成ISO镜像文件之后用上一个版本的"accuhash.#ml"文件对最新版本的ISO镜像文件进行全盘校验确保没有错误。
                               4、从U盘的量产的CD-ROM分区启动电脑之后能够自动加载无线网卡驱动并自动连接预设的Wifi无线网络，能够正常网速上网。
                               5、能够在FirPE下用"Drive-Snapshot-V1.50-CN"或者"一键还原备份SGIMINI4.0通用版本"克隆恢复保存在量产的CD-ROM分区中的Windows系统镜像文件到电脑C盘第1分区之中。
                               6、能够在FirPE下用"WinNTSetup"安装保存在量产的CD-ROM分区中的ITELLYOU微软Windows官网原版镜像到电脑C盘第1分区之中。
                               7、能够从量产的CD-ROM分区在1分钟之内找到当前所需的电脑应用程序软件（通过自制自定义开发制作的Delphi程序调用Total Commander 10.52 增强版来过滤筛选搜索所需的电脑应用程序软件安装包文件，支持按照拼音首字母序列字符串来过滤筛选搜索电脑应用程序软件安装包文件）
                               8、对文件进行病毒查杀和功能测试，确保安全可靠，可用，易用，对文件进行 整理、整顿、清扫、清洁、归类、编号、优化，使文件容易寻找，容易使用，量产的CD-ROM分区包含大量的BAT批处理脚本、VBS脚本、AHK脚本、Delphi源代码程序、快捷方式、网址链接收藏夹书签资源导航导出备份文件 等等各种文件位置定位文件，确保能够高效、快速、简易、稳定的获取各种文件资源。
                               9、量产的CD-ROM分区包含大量的经过反复调试和真实环境实地测试暂时没有错误的AHK脚本和Delphi源代码，从而实现自动、智能、稳定、可靠、快速、高效的实现各种目的需求。
v1.7.0  (2023-2-4)
                         
    ● 修复：     ; 取消 "版本更新日志.txt" 在打开之前的备份动作，提高启动速度，添加备份成功的提示
                         ;（没有校验备份压缩包的语句，觉得麻烦不搞备份成功验证了）。
 ; 版本更新日志.txt的备份脚本
; 用AutoHotkey脚本、Notepad2-32-bit-4.22.07-r4278简体中文汉化版、
; WinRAR 6.11 32位  重新打包制作 “版本更新日志.exe” 打开日志之前和关闭日志之后
; 全自动按照日期掩码生成存档名称压缩备份 "版本更新日志.txt" 文本文件到电脑硬盘的各个分区。
Single(flag) {
	DllCall("CreateMutex", "Ptr",0, "int",0, "str", "Ahk_Single_" flag)
	return A_LastError=0xB7 ? true : false
}
; =========================
#SingleInstance,Off
if (Single("096998")) {
	; MsgBox,16,提示,程序已启动!`n请勿重复运行
	ExitApp
}
loop,5
{
	DetectHiddenWindows,On
	Sleep,5
	IfWinExist,QQ595076941_VersionUpdateLog
		ExitApp
}
Gui, Show, Hide,QQ595076941_VersionUpdateLog
; 编译此脚本时 选择 ANSI
runwith("admin","ansi")
#Persistent
; #NoTrayIcon
DetectHiddenWindows,On
SetTitleMatchMode,2
; =========================
DriveGet,DriveList,List
; loop,Parse,CDEFGHIJKLMNOPQRSTUVWXYZ
loop, Parse, DriveList
{
	IfExist,%A_LoopField%:\FirPE
	{
		IfExist,%A_LoopField%:\FirPE\版本更新日志.txt
		{
			UpdateLogTxtFullPath=%A_LoopField%:\FirPE\版本更新日志.txt
			; 注释掉启动前的备份，只采用修改保存关闭窗口后的备份，其实用SetTimer()也可以加快启动速度，
			;但是我感觉备份的版本太多也不好，不合适，不恰当。所以决定不在启动Notepad2之前备份文本文档了。
			; DriveGet,DriveList2,List
			; loop, Parse, DriveList2
			; {
			; FileCreateDir,%A_LoopField%:\版本更新日志的备份
			; Run,%A_ScriptDir%\WinRAR.EXE A -EP -IBCK -INUL %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			; }
			RunWait,%A_ScriptDir%\Notepad2.exe %UpdateLogTxtFullPath%
			DriveGet,DriveList2,List
			loop, Parse, DriveList2
			{
				FileCreateDir,%A_LoopField%:\版本更新日志的备份
				Run,%A_ScriptDir%\WinRAR.EXE A -EP -IBCK -INUL %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			}
			MsgBox,0,提示,版本更新日志已备份成功,3
			Sleep,3000
			ExitApp
		}
		else
		{
			FileCopy,%A_ScriptDir%\VersionUpdateLog.txt,%A_LoopField%:\FirPE\版本更新日志.txt
			RunWait,%A_ScriptDir%\Notepad2.exe %UpdateLogTxtFullPath%
			DriveGet,DriveList2,List
			loop, Parse, DriveList2
			{
				Run,%A_ScriptDir%\WinRAR.EXE A -EP -IBCK -INUL %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			}
			MsgBox,0,提示,版本更新日志已备份成功,3
			Sleep,3000
			ExitApp
		}
	}
}
v1.6.0  (2023-2-4)
    ● 修复：重新制作生成 ISO 镜像文件，并重新量产银灿 IS903 的可启动 USB-CD-ROM Emulation 虚拟光驱分区
                   具体变更如下：
1、更新 Windows 10 和 Office 2019 的 KMS  Activa 数字权利 超级土狗 神龙 等30个常用工具，
   并保存到 量产CD-ROM 所需的ISO镜像文件中。
2、添加10个冥想禅定无损音乐FLAC文件和理查德克莱德曼钢琴曲无损音乐FLAC文件。
2、添加5个无损音乐FLAC文件播放器软件PC电脑版。
v1.5.0  (2023-2-4)
    ● 修复：用AutoHotkey脚本、Notepad2-32-bit-4.22.07-r4278简体中文汉化版、
                 WinRAR 6.11 32位  重新打包制作 “版本更新日志.exe” 打开日志之前和关闭日志之后
                 全自动按照日期掩码生成存档名称压缩备份 "版本更新日志.txt" 文本文件到电脑硬盘的各个分区。
； // ' ===========================================================
REM  D:\Prog\_一键打包成exe\一键打包成exe.bat
REM  此批处理脚本文件最后编辑日期  2022年9月23日
REM  SS-Archivarius-3000中的SS 是 Silent Setup  的简写，表示静默安装                                                                                                       
if exist "C:\Program Files (x86)\WinRAR\WinRAR.exe" (
"C:\Program Files (x86)\WinRAR\WinRAR.exe" a -ag__YYYY.MM.DD_HH-MM-SS -iiconico.ico -ep1 -m5 -r -sfx -z%~dp0自解压脚本命令.txt %~dp0UpdateLog-Prog-.exe %~dp0..\*.*
)else (
"C:\Program Files\WinRAR\WinRAR.exe" a -ag__YYYY.MM.DD_HH-MM-SS -iiconico.ico -ep1 -m5 -r -sfx -z%~dp0自解压脚本命令.txt %~dp0UpdateLog-Prog-.exe %~dp0..\*.*
)
； // ' ===========================================================
;下面的注释包含自解压脚本命令
;Path=解压缩路径
;Presetup=解压缩前运行
;Setup=解压缩后运行
;Silent=静默方式:1-隐藏全部      2-隐藏启动对话框      空着不设置-显示全部
;Overwrite=覆盖方式:1-覆盖全部文件      2-跳过已存在的文件      空着不设置-覆盖前询问
;请选择正确的图标并保存正确的配置文件
Path=D:\Prog\UpdateLog
Setup=D:\Prog\UpdateLog\UpdateLogBackup.exe
Silent=2
Overwrite=2
； // ' ===========================================================
Single(flag) {
	DllCall("CreateMutex", "Ptr",0, "int",0, "str", "Ahk_Single_" flag)
	return A_LastError=0xB7 ? true : false
}
; =========================
#SingleInstance,Off
if (Single("096998")) {
	; MsgBox,16,提示,程序已启动!`n请勿重复运行
	ExitApp
}
loop,5
{
	DetectHiddenWindows,On
	Sleep,5
	IfWinExist,QQ595076941_VersionUpdateLog
		ExitApp
}
Gui, Show, Hide,QQ595076941_VersionUpdateLog
; 编译此脚本时 选择 ANSI
runwith("admin","ansi")
#Persistent
; #NoTrayIcon
DetectHiddenWindows,On
SetTitleMatchMode,2
; =========================
DriveGet,DriveList,List
; loop,Parse,CDEFGHIJKLMNOPQRSTUVWXYZ
loop, Parse, DriveList
{
	IfExist,%A_LoopField%:\FirPE
	{
		IfExist,%A_LoopField%:\FirPE\版本更新日志.txt
		{
			UpdateLogTxtFullPath=%A_LoopField%:\FirPE\版本更新日志.txt
			DriveGet,DriveList2,List
			loop, Parse, DriveList2
			{
				FileCreateDir,%A_LoopField%:\版本更新日志的备份
				; Run,%A_ScriptDir%\WinRAR.EXE A  -AG -EP -IBCK -INUL %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_.rar %UpdateLogTxtFullPath%
				Run,%A_ScriptDir%\WinRAR.EXE A -EP -IBCK -INUL %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			}
			RunWait,%A_ScriptDir%\Notepad2.exe %UpdateLogTxtFullPath%
			DriveGet,DriveList2,List
			loop, Parse, DriveList2
			{
				FileCreateDir,%A_LoopField%:\版本更新日志的备份
				Run,%A_ScriptDir%\WinRAR.EXE A -EP -IBCK -INUL %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			}
			ExitApp
		}
		else
		{
			FileCopy,%A_ScriptDir%\VersionUpdateLog.txt,%A_LoopField%:\FirPE\版本更新日志.txt
			RunWait,%A_ScriptDir%\Notepad2.exe %UpdateLogTxtFullPath%
			DriveGet,DriveList2,List
			loop, Parse, DriveList2
			{
				Run,%A_ScriptDir%\WinRAR.EXE A -EP -IBCK -INUL %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			}
			ExitApp
		}
	}
}
; =========================
; 强制自身进程以 管理员权限 或 普通权限 或 ANSI 或 U32 或 U64 版本运行。
; 例1: runwith("admin","u32") 强制自身以 u32 + 管理员权限 运行。
; 例2: runwith("","ansi")     强制自身以 ansi 版本运行（权限不变）。
; 例3: runwith("normal")      强制自身以 普通权限 运行（版本不变）。
RunWith(RunAsAdmin:="Default", ANSI_U32_U64:="Default")
{
	; 格式化预期的模式
	switch, RunAsAdmin
	{
		case "Normal","Standard","No","0":		RunAsAdmin:=0
		case "Admin","Yes","1":								RunAsAdmin:=1
		case "Default":												RunAsAdmin:=A_IsAdmin
		default:															RunAsAdmin:=A_IsAdmin
	}
	switch, ANSI_U32_U64
	{
		case "A32","ANSI","A":								ANSI_U32_U64:="AutoHotkeyA32.exe"
		case "U32","X32","32":								ANSI_U32_U64:="AutoHotkeyU32.exe"
		case "U64","X64","64":								ANSI_U32_U64:="AutoHotkeyU64.exe"
		case "Default":												ANSI_U32_U64:="AutoHotkey.exe"
		default:															ANSI_U32_U64:="AutoHotkey.exe"
	}
	; 获取传递给 “.ahk” 的用户参数（不是 /restart 之类传递给 “.exe” 的开关参数）
	for k, v in A_Args
	{
		if (RunAsAdmin=1)
		{
			; 转义所有的引号与转义符号
			v:=StrReplace(v, "\", "\\")
			v:=StrReplace(v, """", "\""")
			; 无论参数中是否有空格，都给参数两边加上引号
			; Run       的内引号是 "
			ScriptParameters  .= (ScriptParameters="") ? """" v """" : A_Space """" v """"
		}
		else
		{
			; 转义所有的引号与转义符号
			; 注意要转义两次 Run 和 RunAs.exe
			v:=StrReplace(v, "\", "\\")
			v:=StrReplace(v, """", "\""")
			v:=StrReplace(v, "\", "\\")
			v:=StrReplace(v, """", "\""")
			; 无论参数中是否有空格，都给参数两边加上引号
			; RunAs.exe 的内引号是 \"
			ScriptParameters .= (ScriptParameters="") ? "\""" v "\""" : A_Space "\""" v "\"""
		}
	}
	; 判断当前 exe 是什么版本
	if (!A_IsUnicode)
		RunningEXE:="AutoHotkeyA32.exe"
	else if (A_PtrSize=4)
		RunningEXE:="AutoHotkeyU32.exe"
	else if (A_PtrSize=8)
		RunningEXE:="AutoHotkeyU64.exe"
	; 运行模式与预期相同，则直接返回。 ANSI_U32_U64="AutoHotkey.exe" 代表不对 ahk 版本做要求。
	if (A_IsAdmin=RunAsAdmin and (ANSI_U32_U64="AutoHotkey.exe" or ANSI_U32_U64=RunningEXE))
		return
	; 如果当前已经是使用 /restart 参数重启的进程，则报错避免反复重启导致死循环。
	else if (RegExMatch(DllCall("GetCommandLine", "str"), " /restart(?!\S)"))
	{
		预期权限:=(RunAsAdmin=1) ? "管理员权限" : "普通权限"
		当前权限:=(A_IsAdmin=1)  ? "管理员权限" : "普通权限"
		ErrorMessage=
		(LTrim
		预期使用: %ANSI_U32_U64%
		当前使用: %RunningEXE%
		预期权限: %预期权限%
		当前权限: %当前权限%
		程序即将退出。
		)
		MsgBox 0x40030, 运行状态与预期不一致, %ErrorMessage%
		ExitApp
	}
	else
	{
		; 获取 AutoHotkey.exe 的路径
		SplitPath, A_AhkPath, , Dir
		if (RunAsAdmin=0)
		{
			; 强制普通权限运行
			switch, A_IsCompiled
			{
				; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
				; 工作目录不用单独指定，默认使用 A_WorkingDir 。
				case, "1": Run, RunAs.exe /trustlevel:0x20000 "\"%A_ScriptFullPath%\" /restart %ScriptParameters%",, Hide
				default: Run, RunAs.exe /trustlevel:0x20000 "\"%Dir%\%ANSI_U32_U64%\" /restart \"%A_ScriptFullPath%\" %ScriptParameters%",, Hide
			}
		}
		else
		{
			; 强制管理员权限运行
			switch, A_IsCompiled
			{
				; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
				; 工作目录不用单独指定，默认使用 A_WorkingDir 。
				case, "1": Run, *RunAs "%A_ScriptFullPath%" /restart %ScriptParameters%
				default: Run, *RunAs "%Dir%\%ANSI_U32_U64%" /restart "%A_ScriptFullPath%" %ScriptParameters%
			}
		}
		ExitApp
	}
}
； // ' ===========================================================
FirPE的银灿IS903量产CD-ROM-Emulation虚拟光驱分区和FirPE数据分区版本更新日志.txt
v1.5.0  (2023-2-4)
    ● 修复：用AutoHotkey脚本、Notepad2-32-bit-4.22.07-r4278简体中文汉化版、
                 WinRAR 6.11 32位  重新打包制作 “版本更新日志.exe” 打开日志之前和关闭日志之后
                 全自动按照日期掩码生成存档名称压缩备份 "版本更新日志.txt" 文本文件到电脑硬盘的各个分区。
v1.4.0  (2023-2-4)
    ● 新增：Windows 激活工具 和 Microsoft Office 激活工具
    ● 新增：Excel 易用宝 2021 易用宝-ExcelHome-eztools-yyb-Excel聚光灯 V2.3.14.2021
    ● 新增：教育考试专用版WPS Office、WPS 11.8.2.8411 Chinese 大庆市、官网离线安装包-WPS-Office-办公软件套装-WPS-Office
v1.3.0  (2023-2-3)
    ●更改：开发代号由原来的 386 变更为 096 
                  (  数字096为英文半角字符，没有空格字符，顶格书写 )
v1.2.0  (2023-2-2)
    ● 新增：uTools V3.3.0 新一代效率工具平台  到FirPE量产U盘的NTFS数据分区中的 “filter-file-with-totalcmd” 文件夹
 -   ● 修复：15-FirPE数据分区备份压缩包 改成文件夹 11-FirPE，其他相关的文件名和文件夹名也一起修改
    ● 修复：删除FirPE数据分区中的输入法 _搜狗拼音_8.4.0.1039_Cno.7z 和 搜狗拼音_13.2.0.0_Cno_bot_
                 FirPE系统已经自带搜狗拼音输入法了无需另外安装。
    ● 修复：更新FirPE数据分区备份压缩包 中MayeLite的浏览器快捷方式数据
    ● 新增：添加  图吧工具箱 和 卡硬工具箱  到FirPE量产U盘的NTFS数据分区
    ● 新增：添加  Cloud Box 工具箱  自己定制版  离线版  自用增强版
    ● 新增：添加  个人超级工具箱制作专家--Crack:rEn22gE
    ● 修复：变更文件和文件夹的命名风格，有英文开始改成简体中文前缀开始，
                  即：简体中文简明描述+半角英文简明描述+.+扩展名 文件名应当包含主窗口标题的一部分内容
                         文件有多个名称、外号、简称、曾用名时可以适当增加文件名长度，把多个名称都放入文件名中便于今后快速高效的查找文件。
    ● 修复：更新日志.bat改成更新日志.exe ( AutoHotkey脚本 RunWait() WinRAR 压缩命令行 )修改日志之前和关闭日志编辑窗口之后都按照日期掩码全自动压缩备份“更新日志.txt”文件到本地硬盘各个分区)
v1.1.0  (2023-2-2)
    ● 修复：把已经配置并测试好的 FirPE 的 NTFS数据分区中的所有文件用WinRAR压缩备份到银灿IS903量产CD-ROM用的ISO光盘镜像文件中
    ● 修复：重新打包 D-Pan-Prog-MD5.exe 替换成可用的浏览器
    ● 新增：新增 01-更新日志 文件夹 使用支持Alt鼠标拖放的列编辑模式的
                  Notepad2来编辑更新日志.txt
                  更新日志.bat
                  更新日志模板.txt
                  Notepad2.exe
rem 更新日志格式可以参考以下几篇文章
rem https://www.romexsoftware.com/zh-cn/primo-cache/changelog.html
rem https://blog.arae.cc/soft/MayeLite/ChangeLog.txt
rem https://www.goodsync.com/news-windows
rem https://www.rarlab.com/rarnew.htm
rem https://www.voidtools.com/Changes.txt
rem set desk =""
rem For /f "tokens=3,*" %%i in ('reg query "hkcu\software\microsoft\windows\currentversion\explorer\shell folders" /v "desktop"') do (set desk=%%i)
rem Copy %0 %desk%
                  
    
v1.0.0  (2023-2-1)
    ●             创建基础可用的版本，具体特征如下：
    ● 新增： TencentDocsSetup腾讯文档安装包-QQ扫码登录.exe
    ● 新增： TencentDocsWeb腾讯文档网页版-QQ扫码登录.lnk
    ● 新增：进入电脑桌面后自动运行 MayeLite ，
    ● 新增：在FirPE和电脑本地硬盘中的Windows_10_LTSC系统中
                共享 MayeLite 数据和 D:\Prog 文件夹中的绿色免安装应用程序软件，
                在FirPE和Windows 10 中 共享配置文件
                D:\Prog\MayeLite\cfg.json 
                在FirPE和Windows 10 中共享快捷方式、快捷键的数据文件
                D:\Prog\MayeLite\JDB.json
                https://github.com/25H/MayeLite/releases/latest
                https://wwi.lanzouq.com/b0bs5bidc
                https://blog.arae.cc/post/25841.html
                https://blog.arae.cc/post/25842.html
    ● 新增：一切键盘输入的编辑工作都在“腾讯文档网页版”中进行，防止丢失文件，
                防止丢失编辑的内容，防止电脑突然断电，防止电脑突然死机宕机奔溃损毁防止，
                电脑丢失电脑被盗被小偷偷走引起文件丢失，防止保存失败丢失数据）
                        1、开发代号设定为 386
                        2、无损安装 FirPE-V1.8.2-EXEMD5-A7F.exe 到 “SanDisk闪迪4TB移动固态硬盘E81至尊超极速Pro升级版”
                        （京东自营旗舰店，容量选择4TB,型号选择E81）
                        第1步、先手动安装FirPE-V1.8.2-EXEMD5-A7F.exe到其他空白移动硬盘
                        第2步、用DiskGenius备份其他空白移动硬盘中的EFI分区到镜像文件firpe-efi.pmf
                        第3步、在DiskGenius窗口选中并按快捷键F2备份分区表到文件SanDiskExtremePro55AF.ptf
                        第4步、用DiskGenius调整“闪迪4TB移动固态硬盘E81”的分区大小
                        空闲空间8MB
                        EFI分区1GB
                        余下空间是NTFS数据分区
                        第5步、用DiskGenius恢复镜像文件firpe-efi.pmf到“闪迪4TB移动固态硬盘E81”的EFI分区1GB
                        第6步、用FirPE-V1.8.2-EXEMD5-A7F.exe修复“闪迪4TB移动固态硬盘E81”的UD引导区
                        （菜单项在窗口关闭按钮的左边）
                        第7步、用FirPE-V1.8.2-EXEMD5-A7F.exe免格升级“闪迪4TB移动固态硬盘E81”
                        通过以上几步操作就可以在不丢失原有文件数据的前提下安装FirPE-V1.8.2到“闪迪4TB移动固态硬盘E81”
                        在“闪迪4TB移动固态硬盘E81”的NTFS数据分区的根目录新建文件夹“filter-file-with-totalcmd”
                        当用户按下快捷键 F8 时MayeLite会调用Delphi程序打开Total Commander 10.52 增强版窗口
                        用户可以通过输入“拼音首字母序列字符串”来筛选文件夹“filter-file-with-totalcmd”中的文件或者文件夹。
                        3、修改 文件“全自动加载指定的Edgeless插件到FirPE的批处理脚本2023-1-30”
                        实现静默加载Edgeless插件（而不是不断地跳出DOS黑色窗口，干扰用户的操作）
； // ' ===========================================================

1、把大多数工具软件制作成单文件绿色免安装软件

并保存在“闪迪4TB移动固态硬盘E81”的NTFS数据分区中，

单文件绿色免安装软件方案1：

REM D:\Prog\_一键打包成exe\一键打包成exe.bat

REM 此批处理脚本文件最后编辑日期 2022年9月23日

REM SS-Archivarius-3000中的SS 是 Silent Setup 的简写，表示静默安装

if exist “C:\Program Files (x86)\WinRAR\WinRAR.exe” (

“C:\Program Files (x86)\WinRAR\WinRAR.exe” a -ag__YYYY.MM.DD_HH-MM-SS -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-Prog-.exe ..\.

)else (

“C:\Program Files\WinRAR\WinRAR.exe” a -ag__YYYY.MM.DD_HH-MM-SS -iiconico.ico -m5 -r -sfx -z自解压脚本命令.txt SS-Prog-.exe ..\.

)

;下面的注释包含自解压脚本命令

;Path=解压缩路径

;Presetup=解压缩前运行

;Setup=解压缩后运行

;Silent=静默方式:1-隐藏全部 2-隐藏启动对话框 空着不设置-显示全部

;Overwrite=覆盖方式:1-覆盖全部文件 2-跳过已存在的文件 空着不设置-覆盖前询问

;请选择正确的图标并保存正确的配置文件

Path=C:\Prog\Everything

Setup=C:\Prog\Everything\Everything.exe

Silent=2

Overwrite=2

单文件绿色免安装软件方案2：

7z压缩包自解压制作工具Fc-SysCeo.Com

https://www.sysceo.com/

http://www.usbrun.com/

单文件绿色免安装软件方案3：

JexChan单文件制作工具 v7.0.2.36

2、删除多余的自定义Edgeless插件提高 FirPE 的加载速度。

3、创建两个文件用来静默安装Edgeless插件到FirPE

‘ ///////////////////////////////////////////////////////////////////////////////////////////////////////
‘ 文件名1=U:\FirPE\Startup\Autorun.vbs
Set ws = CreateObject(“Wscript.Shell”)
ws.run “cmd /c ..\Autorun.bat”,vbhide

rem ///////////////////////////////////////////////////////////////////////////////////////////////////////
rem 文件名2=U:\FirPE\Autorun.bat
rem 全自动加载指定的Edgeless插件到FirPE的批处理脚本2023-1-30

for %%i in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
if exist %%i:\FirPE\Resource (
dir /b “%%i:\FirPE\Resource\*.7z” >”%ProgramFiles%\Edgeless\7zlist.txt”
if exist “%ProgramFiles%\Edgeless\7zlist.txt” (
for /f  “usebackq” %%a in  (“%ProgramFiles%\Edgeless\7zlist.txt”) do (
X:
cd \Program Files\Edgeless\plugin_loader
pecmd  exec =load.cmd “%%i:\FirPE\Resource\%%a”
)
)
)
)
pecmd  TIPS Edgeless自定义插件加载程序,加载完成！,2000,4,
pecmd  kill explorer.exe
pecmd  WAIT 3000

一、购买主控是银灿IS903容量是256GB的可量产U盘

二、用UltraISO制作可启动ISO光盘镜像文件

#SingleInstance,force
#Persistent
#NoEnv
#WinActivateForce
;~ #NoTrayIcon
;~ #Warn
SetWorkingDir,%A_ScriptDir%
DetectHiddenWindows,On
SetTitleMatchMode,2
Process,close,Listary.exe
IfWinNotExist,Setup - Listary version
{
	Run,%A_ScriptDir%\ListarySetup.exe
}
SetTimer,SilentSetupListary,100
return
SilentSetupListary()
{
	WinActivate,Setup - Listary version
	IfWinActive,Setup - Listary version
	{
		Send,!a
		Send,!n
		Send,!f
	}
	IfWinExist,Setup - Listary version,Completing the Listary Setup Wizard
	{
		Send,!f
		SetTimer,SilentSetupListary,Delete
		ExitApp
	}
}

; 版本更新日志.txt的备份脚本
; 取消 "版本更新日志.txt" 在打开之前的备份动作，提高启动速度，添加备份成功的提示
;（没有校验备份压缩包的语句，觉得麻烦不搞备份成功验证了）。
; 用AutoHotkey脚本、Notepad2-32-bit-4.22.07-r4278简体中文汉化版、
; WinRAR 6.11 32位  重新打包制作 “版本更新日志.exe” 打开日志之前和关闭日志之后
; 全自动按照日期掩码生成存档名称压缩备份 "版本更新日志.txt" 文本文件到电脑硬盘的各个分区。
Single(flag) {
	DllCall("CreateMutex", "Ptr",0, "int",0, "str", "Ahk_Single_" flag)
	return A_LastError=0xB7 ? true : false
}
; =========================
#SingleInstance,Off
if (Single("096998")) {
	; MsgBox,16,提示,程序已启动!`n请勿重复运行
	ExitApp
}
loop,5
{
	DetectHiddenWindows,On
	Sleep,5
	IfWinExist,QQ595076941_VersionUpdateLog
		ExitApp
}
Gui, Show, Hide,QQ595076941_VersionUpdateLog
; 编译此脚本时 选择 ANSI
runwith("admin","ansi")
#Persistent
; #NoTrayIcon
DetectHiddenWindows,On
SetTitleMatchMode,2
; =========================
DriveGet,DriveList,List
; loop,Parse,CDEFGHIJKLMNOPQRSTUVWXYZ
loop, Parse, DriveList
{
	IfExist,%A_LoopField%:\FirPE
	{
		IfExist,%A_LoopField%:\FirPE\版本更新日志.txt
		{
			UpdateLogTxtFullPath=%A_LoopField%:\FirPE\版本更新日志.txt
			; 注释掉启动前的备份，只采用修改保存关闭窗口后的备份，其实用SetTimer()也可以加快启动速度，
			;但是我感觉备份的版本太多也不好，不合适，不恰当。所以决定不在启动Notepad2之前备份文本文档了。
			; DriveGet,DriveList2,List
			; loop, Parse, DriveList2
			; {
			; FileCreateDir,%A_LoopField%:\版本更新日志的备份
			; Run,%A_ScriptDir%\WinRAR.EXE A -EP -INUL -K -m5 %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			; }
			RunWait,%A_ScriptDir%\Notepad2.exe %UpdateLogTxtFullPath%
			DriveGet,DriveList2,List
			loop, Parse, DriveList2
			{
				FileCreateDir,%A_LoopField%:\版本更新日志的备份
				Run,%A_ScriptDir%\WinRAR.EXE A -EP -INUL -K -m5 %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			}
			MsgBox,0,提示,版本更新日志已备份成功,5
			Sleep,5000
			ExitApp
		}
		else
		{
			FileCopy,%A_ScriptDir%\VersionUpdateLog.txt,%A_LoopField%:\FirPE\版本更新日志.txt
			RunWait,%A_ScriptDir%\Notepad2.exe %UpdateLogTxtFullPath%
			DriveGet,DriveList2,List
			loop, Parse, DriveList2
			{
				Run,%A_ScriptDir%\WinRAR.EXE A -EP -INUL -K -m5 %A_LoopField%:\版本更新日志的备份\版本更新日志的备份_%A_YYYY%-%A_MM%-%A_DD%_%A_Hour%-%A_Min%-%A_Sec%.rar %UpdateLogTxtFullPath%
			}
			MsgBox,0,提示,版本更新日志已备份成功,5
			Sleep,5000
			ExitApp
		}
	}
}
; =========================
; 强制自身进程以 管理员权限 或 普通权限 或 ANSI 或 U32 或 U64 版本运行。
; 例1: runwith("admin","u32") 强制自身以 u32 + 管理员权限 运行。
; 例2: runwith("","ansi")     强制自身以 ansi 版本运行（权限不变）。
; 例3: runwith("normal")      强制自身以 普通权限 运行（版本不变）。
runwith(RunAsAdmin:="Default", ANSI_U32_U64:="Default")
{
	; 格式化预期的模式
	switch, RunAsAdmin
	{
		case "Normal","Standard","No","0":		RunAsAdmin:=0
		case "Admin","Yes","1":								RunAsAdmin:=1
		case "default":												RunAsAdmin:=A_IsAdmin
default:															RunAsAdmin:=A_IsAdmin
	}
switch, ANSI_U32_U64
{
	case "A32","ANSI","A":								ANSI_U32_U64:="AutoHotkeyA32.exe"
	case "U32","X32","32":								ANSI_U32_U64:="AutoHotkeyU32.exe"
	case "U64","X64","64":								ANSI_U32_U64:="AutoHotkeyU64.exe"
	case "default":												ANSI_U32_U64:="AutoHotkey.exe"
default:															ANSI_U32_U64:="AutoHotkey.exe"
	}
; 获取传递给 “.ahk” 的用户参数（不是 /restart 之类传递给 “.exe” 的开关参数）
for k, v in A_Args
{
	if (RunAsAdmin=1)
	{
		; 转义所有的引号与转义符号
		v:=StrReplace(v, "\", "\\")
		v:=StrReplace(v, """", "\""")
		; 无论参数中是否有空格，都给参数两边加上引号
		; Run       的内引号是 "
		ScriptParameters  .= (ScriptParameters="") ? """" v """" : A_Space """" v """"
	}
	else
	{
		; 转义所有的引号与转义符号
		; 注意要转义两次 Run 和 RunAs.exe
		v:=StrReplace(v, "\", "\\")
		v:=StrReplace(v, """", "\""")
		v:=StrReplace(v, "\", "\\")
		v:=StrReplace(v, """", "\""")
		; 无论参数中是否有空格，都给参数两边加上引号
		; RunAs.exe 的内引号是 \"
		ScriptParameters .= (ScriptParameters="") ? "\""" v "\""" : A_Space "\""" v "\"""
	}
}
; 判断当前 exe 是什么版本
if (!A_IsUnicode)
	RunningEXE:="AutoHotkeyA32.exe"
else if (A_PtrSize=4)
	RunningEXE:="AutoHotkeyU32.exe"
else if (A_PtrSize=8)
	RunningEXE:="AutoHotkeyU64.exe"
; 运行模式与预期相同，则直接返回。 ANSI_U32_U64="AutoHotkey.exe" 代表不对 ahk 版本做要求。
if (A_IsAdmin=RunAsAdmin and (ANSI_U32_U64="AutoHotkey.exe" or ANSI_U32_U64=RunningEXE))
	return
; 如果当前已经是使用 /restart 参数重启的进程，则报错避免反复重启导致死循环。
else if (RegExMatch(DllCall("GetCommandLine", "str"), " /restart(?!\S)"))
{
	预期权限:=(RunAsAdmin=1) ? "管理员权限" : "普通权限"
	当前权限:=(A_IsAdmin=1)  ? "管理员权限" : "普通权限"
	ErrorMessage=
	(LTrim
		预期使用: %ANSI_U32_U64%
		当前使用: %RunningEXE%
		预期权限: %预期权限%
		当前权限: %当前权限%
		程序即将退出。
	)
	MsgBox 0x40030, 运行状态与预期不一致, %ErrorMessage%
	ExitApp
}
else
{
	; 获取 AutoHotkey.exe 的路径
	SplitPath, A_AhkPath, , Dir
	if (RunAsAdmin=0)
	{
		; 强制普通权限运行
		switch, A_IsCompiled
		{
			; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
			; 工作目录不用单独指定，默认使用 A_WorkingDir 。
			case, "1": Run, RunAs.exe /trustlevel:0x20000 "\"%A_ScriptFullPath%\" /restart %ScriptParameters%",, Hide
default: Run, RunAs.exe /trustlevel:0x20000 "\"%Dir%\%ANSI_U32_U64%\" /restart \"%A_ScriptFullPath%\" %ScriptParameters%",, Hide
	}
}
else
{
	; 强制管理员权限运行
	switch, A_IsCompiled
	{
		; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
		; 工作目录不用单独指定，默认使用 A_WorkingDir 。
		case, "1": Run, *RunAs "%A_ScriptFullPath%" /restart %ScriptParameters%
default: Run, *RunAs "%Dir%\%ANSI_U32_U64%" /restart "%A_ScriptFullPath%" %ScriptParameters%
	}
}
ExitApp
}
}

// REM 请先在选中的工作硬盘分区根目录下手动新建文件夹 \_Work_Hotkey_F1
// REM 按F1键时打开文件夹 \_Work_Hotkey_F1 ，F1的意思是一次只做一件事，
// REM 工作要有条理的一次进行，各个击破，要专注，要专一，要持之以恒，锲而不舍，水滴石穿
// REM 把此批处理脚本文件复制到 D:\Prog 并拖放到 Maye Lite 并用Maye Lite设置快捷键 F1
// 调试、编译、运行环境 ： Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants,
  Classes, Graphics,
  Controls, Forms, Dialogs, ShellAPI;
  //  ShellExecute(); 需要  uses  ShellAPI;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  // if FileExists('D:\Prog\TotalCMD\TotalCMD64.exe') then
  // else
 // begin
   // ShowMessage('程序文件 D:\Prog\TotalCMD\TotalCMD64.exe 不存在。');
  //  application.terminate;
 // end;
  for i := 65 to 90 do
  begin
    // if (GetDriveType(Pchar(chr(i)+':\')) = 2) or (GetDriveType(Pchar(chr(i)+':\')) = 3) then
    // Form1.ListBox1.items.addObject(chr(i)+':\',Pointer(i));
    if (GetDriveType(Pchar(chr(i) + ':\')) = 2) or
      (GetDriveType(Pchar(chr(i) + ':\')) = 3) or
      (GetDriveType(Pchar(chr(i) + ':\')) = 4) or
      (GetDriveType(Pchar(chr(i) + ':\')) = 5) or
      (GetDriveType(Pchar(chr(i) + ':\')) = 6) then
    // Form1.ListBox1.items.addObject(chr(i)+':\',Pointer(i));
    begin
      if DirectoryExists(chr(i) + ':\' + '_Work_Hotkey_F1') then
      begin
        // ShowMessage('是文件夹。');
        ShellExecute(Form1.handle, 'open',PAnsiChar(chr(i) + ':\' + '_Work_Hotkey_F1'),
          nil, nil,
          SW_SHOWMAXIMIZED);
        application.terminate;
      end;
    end;
  end;
end;
{
  delphi获取当前计算机所有盘符
  GetDriveType(路径) 判断一个磁盘驱动器的类型 返回一个整数
  0 驱动器类型不确定
  1 系统目录不存在
  2 DRIVE_REMOVABLE 是可移动驱动器
  3 DRIVE_FIXED 是固定驱动器
  4 DRIVE_REMOTE 是网络驱动器
  5 DRIVE_CDROM 是CD-ROM驱动器
  6 DRIVE_RAMDISK 是虚拟驱动器
}
end.

// D:\filter-software-with-totalcmd\用TotalCMD筛选电脑文件-filter-software-with-totalcmd\用TotalCMD筛选电脑文件.exe
// 调试、编译、运行环境 ： Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants,
  Classes, Graphics,
  Controls, Forms, Dialogs, ShellAPI;
  //  ShellExecute(); 需要  uses  ShellAPI;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  if FileExists('D:\Prog\TotalCMD\TotalCMD64.exe') then
  else
  begin
    ShowMessage('程序文件 D:\Prog\TotalCMD\TotalCMD64.exe 不存在。');
    application.terminate;
  end;
  for i := 65 to 90 do
  begin
    // if (GetDriveType(Pchar(chr(i)+':\')) = 2) or (GetDriveType(Pchar(chr(i)+':\')) = 3) then
    // Form1.ListBox1.items.addObject(chr(i)+':\',Pointer(i));
    if (GetDriveType(Pchar(chr(i) + ':\')) = 2) or
      (GetDriveType(Pchar(chr(i) + ':\')) = 3) or
      (GetDriveType(Pchar(chr(i) + ':\')) = 4) or
      (GetDriveType(Pchar(chr(i) + ':\')) = 5) or
      (GetDriveType(Pchar(chr(i) + ':\')) = 6) then
    // Form1.ListBox1.items.addObject(chr(i)+':\',Pointer(i));
    begin
      if DirectoryExists(chr(i) + ':\' + 'filter-file-with-totalcmd') then
      begin
        // ShowMessage('是文件夹。');
        ShellExecute(Form1.handle, 'open', 'D:\Prog\TotalCMD\TotalCMD64.exe',
          PAnsiChar(chr(i) + ':\' + 'filter-file-with-totalcmd'), nil,
          SW_SHOWMAXIMIZED);
        application.terminate;
      end;
    end;
  end;
end;
{
  delphi获取当前计算机所有盘符
  GetDriveType(路径) 判断一个磁盘驱动器的类型 返回一个整数
  0 驱动器类型不确定
  1 系统目录不存在
  2 DRIVE_REMOVABLE 是可移动驱动器
  3 DRIVE_FIXED 是固定驱动器
  4 DRIVE_REMOTE 是网络驱动器
  5 DRIVE_CDROM 是CD-ROM驱动器
  6 DRIVE_RAMDISK 是虚拟驱动器
}
end.

; 此文件为FirPE的个性化配置文件，您可根据个人喜好进行调整
; 删除此文件不影响PE的正常使用
; 0表示关闭，1表示开启
[用户账户]
登录密码=
制造商=
型号=
网站=
计算机名称=
; 将用户数据保存在U盘内(支持保存桌面、下载、开始菜单)
保存用户数据=0
[硬件和声音]
默认音量=
默认亮度=
开启小键盘=0
快速关机=0
禁用网络=0
自动从本机安装网卡驱动=0
自动从本机安装所有驱动=0
[程序]
; -1：不加载外置工具
; 0：自动内置模式（默认）
; 1：全内置模式（移除U盘不影响使用）
; 2：全外置模式（移除U盘后部分程序无法使用）
外置工具模式=0
自动理顺磁盘=0
禁用Ghost=0
自动清理AutoRun病毒=0
启用WinNTSetup无人值守=0
显示桌面硬件信息=0
进入桌面后运行=X:\Windows\AutoRun.vbs

Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
'下行是设置延时启动时间 5000等于5秒
WScript.Sleep(2000)
'下行引号内填写服务器上批处理文件的共享路径
Wsh.Run  "X:\Windows\Maye-Lite\Run-Maye-Lite.bat",false,false
'Set e = wsh.Exec("X:\Windows\Maye-Lite\Maye-Lite.exe")
'Set e = wsh.Exec("cmd /c X:\Windows\Maye-Lite\Maye-Lite.exe")
WScript.Sleep(2000)
Wsh.Run  "notepad",false,false
Wsh.Run  "X:\Windows\Everything.lnk",false,false
Wsh.Run  "X:\Windows\AutoHotkey\AutoHotkeyA32.exe X:\Windows\AutoHotkey\test.ahk",false,false
Set Wsh=NoThing
WScript.quit
'objShell.Run "X:\Windows\Maye-Lite\Maye-Lite.exe"

REM  D:\Prog\_一键打包成exe\一键打包成exe.bat
REM  此批处理脚本文件最后编辑日期  2022年9月23日
REM  SS-Archivarius-3000中的SS 是 Silent Setup  的简写，表示静默安装                                                                                                       
if exist "C:\Program Files (x86)\WinRAR\WinRAR.exe" (
"C:\Program Files (x86)\WinRAR\WinRAR.exe" a -ag__YYYY.MM.DD_HH-MM-SS -iiconico.ico -ep1 -m5 -r -sfx -z%~dp0自解压脚本命令.txt %~dp0SS-D-Pan-Prog-.exe %~dp0D_Pan\Prog\*.*
)else (
"C:\Program Files\WinRAR\WinRAR.exe" a -ag__YYYY.MM.DD_HH-MM-SS -iiconico.ico -ep1 -m5 -r -sfx -z%~dp0自解压脚本命令.txt %~dp0SS-D-Pan-Prog-.exe %~dp0D_Pan\Prog\*.*
)

;下面的注释包含自解压脚本命令
;Path=解压缩路径
;Presetup=解压缩前运行
;Setup=解压缩后运行
;Silent=静默方式:1-隐藏全部      2-隐藏启动对话框      空着不设置-显示全部
;Overwrite=覆盖方式:1-覆盖全部文件      2-跳过已存在的文件      空着不设置-覆盖前询问
;请选择正确的图标并保存正确的配置文件
Path=D:\Prog
Setup=D:\Prog\Everything\Everything.exe
Silent=2
Overwrite=2

REM 请先在选中的工作硬盘分区根目录下手动新建文件夹 \_Work_Hotkey_F1
REM 按F1键时打开文件夹 \_Work_Hotkey_F1 ，F1的意思是一次只做一件事，
REM 工作要有条理的一次进行，各个击破，要专注，要专一，要持之以恒，锲而不舍，水滴石穿
REM 把此批处理脚本文件复制到 D:\Prog 并拖放到 Maye Lite 并用Maye Lite设置快捷键 F1
for %%i in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
if exist %%i:\_Work_Hotkey_F1\ (
start %%i:\_Work_Hotkey_F1\
REM  set desk =""
REM  For /f "tokens=3,*" %%i in ('reg query "hkcu\software\microsoft\windows\currentversion\explorer\shell folders" /v "desktop"') do (set desk=%%i)
REM  Copy %0 %desk%
exit
)
)

;
;        按照文件类型批量整理文件
;
;
;
; ###################################################################
; ###################################################################
; ##
; ##           名称                 按照文件类型批量整理文件
; ##           文件名             按照文件类型批量整理文件.ahk
; ##           作用                 按照文件类型批量整理文件
; ##           用法                 把需要批量分类整理的文件和文件夹移动到此脚本所在文件夹中的"F"文件夹中
; ##           用法                 在安装了“AutoHotkey_1.1.30.00_setup.exe”软件的Windows7电脑中鼠标双击此文件直接运行
; ##           类型                 AutoHotkey 脚本程序
; ##           位置                 D:\pr\AutoHotkey\Script
; ##           创建时间          2019年01月05日05时06分
; ##           修改时间          2019年03月01日08时41分
; ##           原创作者            晓亮  ahk
; ##           作者的腾讯QQ号            595076941
; ##           作者的手机号码
; ##
; ###################################################################
; ###################################################################
;
;
;~ 在大批量移动文件之前必需先询问一下
MsgBox, 4, , "Loop All  Files  in ScriptDir"`n"是否立即按照文件类型批量整理子目录中所有文件?"`n`ncontinue?
IfMsgBox, No
	ExitApp
MsgBox, 4, , "Loop All  Files  in ScriptDir"`n"是否立即按照文件类型批量整理子目录中所有文件?"`n`ncontinue?
IfMsgBox, No
	ExitApp
loop,9
{
	FileCreateDir,%A_ScriptDir%\F
	FileCreateDir,%A_ScriptDir%\!Classify
	;~ 为重要文件的文件夹写上前缀标记
	global 	importantmark
	;~ global 	ProgressParam
	;~ ProgressParam:=0
	loop,Files,%A_ScriptDir%\F\*.*,R ;递归遍历穷举文件夹和子文件夹中的文件
	{
		;;      进度条窗口不可以移动，并且比较烦人
		;;  	ProgressParam:=ProgressParam+0.5
		;;  	if(ProgressParam>99)
		;;  	ProgressParam:=0
		;;  	;~ 进度条
		;;  	Progress, %ProgressParam%, %a_loopfilename%,"Moveing Files ...", "Classify And Arrange Files in Folder F"
		if(A_LoopFileExt="")
		{
			IfNotExist,%A_ScriptDir%\!Classify\NullFileExt
				FileCreateDir,%A_ScriptDir%\!Classify\NullFileExt
			FileMove,%A_LoopFileFullPath%,%A_ScriptDir%\!Classify\NullFileExt\%A_LoopFileName%
			Sleep,9
			continue
		}
		importantmark:=""
	if((A_LoopFileExt="docx") or(A_LoopFileExt="xlsx") or	(A_LoopFileExt="jpg") )
	importantmark:="1_"
	if((A_LoopFileExt="ani") or (A_LoopFileExt="au3") or (A_LoopFileExt="flac") or (A_LoopFileExt="avi") or (A_LoopFileExt="doc") or (A_LoopFileExt="dotx") or  (A_LoopFileExt="xls") or  (A_LoopFileExt="xltx") or  (A_LoopFileExt="dot") or  (A_LoopFileExt="xlt")  or  (A_LoopFileExt="ISO") or  (A_LoopFileExt="GHO")   or  (A_LoopFileExt="flv") or (A_LoopFileExt="jpeg")  or (A_LoopFileExt="mp4") or	(A_LoopFileExt="png") or (A_LoopFileExt="ppt") or	(A_LoopFileExt="pdf")   or	(A_LoopFileExt="7z")   or	(A_LoopFileExt="ahk")   or	(A_LoopFileExt="bat")   or	(A_LoopFileExt="chm")   or	(A_LoopFileExt="cmd")   or	(A_LoopFileExt="dot")   or	(A_LoopFileExt="exe")   or	(A_LoopFileExt="ico")   or	(A_LoopFileExt="mdb") or	(A_LoopFileExt="mkv") or	(A_LoopFileExt="mp3")   or	(A_LoopFileExt="pas")   or	(A_LoopFileExt="rar")   or	(A_LoopFileExt="txt")   or	(A_LoopFileExt="rmvb")   or	(A_LoopFileExt="vbs")   or	(A_LoopFileExt="zip"))
	importantmark:="2_"
	;~ MsgBox,% A_LoopFileSizeMB
	IfGreater,A_LoopFileSizeMB,500
		importantmark:="3_Big500MB_"
	;~ 如果当前文件是此脚本本身那么跳过当前循环的剩余部分并继续下一次循环递归遍历穷举文件
	if(A_ScriptFullPath=A_LoopFileFullPath)
	{
		continue
	}
;~ 如果当前脚本所在目录没有当前循环的文件则直接移动文件并继续下一个循环
	IfNotExist,%A_ScriptDir%\!Classify\%importantmark%%A_LoopFileExt%\%A_LoopFileName%
	{
		IfNotExist,%A_ScriptDir%\!Classify\%A_LoopFileExt%
			FileCreateDir,%A_ScriptDir%\!Classify\%importantmark%%A_LoopFileExt%
		FileMove,%A_LoopFileFullPath%,%A_ScriptDir%\!Classify\%importantmark%%A_LoopFileExt%\%A_LoopFileName%
		Sleep,9
		continue
	}
	;;如果当前循环的文件就在当前脚本所在目录中那么跳过当前循环的剩余部分并继续下一次循环
ScriptDirLoopFileName=%A_ScriptDir%\!Classify\%importantmark%%A_LoopFileExt%\%A_LoopFileName%
if( ScriptDirLoopFileName=A_LoopFileFullPath)
{
	continue
}
;~ MsgBox,%A_LoopFileFullPath%
;~ 重命名重复文件
DuplicateFileCount:=1
loop
{
	IfExist,%A_ScriptDir%\!Classify\%importantmark%%A_LoopFileExt%\%DuplicateFileCount%_%A_LoopFileName%
	{
		DuplicateFileCount=% ++DuplicateFileCount
		continue
	}
	else
	{
		IfNotExist,%A_ScriptDir%\!Classify\%A_LoopFileExt%
			FileCreateDir,%A_ScriptDir%\!Classify\%importantmark%%A_LoopFileExt%
		FileMove,%A_LoopFileFullPath%,%A_ScriptDir%\!Classify\%importantmark%%A_LoopFileExt%\%DuplicateFileCount%_%A_LoopFileName%
		Sleep,9
		break
	}
}
}
}
MsgBox, 64, , %A_ScriptDir%"All  Files  in ScriptDir is Classifyed And Arranged"`n"恭喜你, 已经按照文件类型完成所有当前脚本所在目录和子目录中文件的分类整理"!
;~ MsgBox, 64, , "操作失败的文件共有"%ErrFileCount%"个,详细出错原因列表见ErrFileList.txt文件"!
return
;  # 此AHK脚本结束 #############

loop,5
{
	Sleep,5000
/*
作者：      甲壳虫<jdchenjian@gmail.com>
博客：      http://hi.baidu.com/jdchenjian
脚本说明：  此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。
脚本版本：  2009-01-21
修改作者：	兔子
更新说明：
2010.01.09	之前某个时间，修改AHK路径、编辑器路径、编译器路径，默认全部在当前目录下寻找
2010.01.09	去掉默认在新建菜单的勾
2010.06.21	如果SCITE为默认编辑器，则复制个人配置文件“SciTEUser.properties”到%USERPROFILE%
2010.06.25	修正因#NoEnv使%USERPROFILE%变量直接引用无效
2016.04.18	删除“2010.06.21”的改动
2021.10.17	新增“编译脚本 (GUI)”的汉化
2021.11.02	自动根据 AutoHotkey.exe 的位置定位基准目录。
2021.11.05	重构代码，精简界面，修复新建模板时的编码问题，修复编辑模板时的权限问题。
修改作者 ：  ds920
; =====  ds920 修改 2022年1月11日  ===== 第31行 =====
; =====  ds920 修改 2022年1月11日  ===== 第124行 =====
; =====  ds920 修改 2022年1月11日  ===== 第189到191行 =====
; =====  ds920 修改 2022年1月11日  ===== 第242行 =====
更新说明：
2022.01.11	注释掉部分AutoHotkey语句，让其他脚本能够静默调用此AHK脚本，
						实现AHK文件关联和汉化鼠标右键中文菜单
2022.01.11	#SingleInstance, force 改成 #SingleInstance, Ignore 防止出现等待的提示窗口						
*/
#NoEnv
; =====  ds920 修改 2022年1月11日  ===== 第31行 =====
#SingleInstance, Ignore
SendMode Input
SetWorkingDir %A_ScriptDir%
; 版本(仅用于显示）
Script_Version=ver. 1.1
; AutoHotkey 原版的相关信息写在注册表HKCR主键中，
; 尝试当前用户否有权操作该键，如果无权操作HKCR键（受限用户），
; 可通过操作注册表HKCU键来实现仅当前用户关联AHK脚本。
RegWrite, REG_SZ, HKCR, .test
if ErrorLevel
	IsLimitedUser:=1
RegDelete, HKCR, .test
if ErrorLevel
	IsLimitedUser:=1
if IsLimitedUser
{
	RootKey=HKCU              ; 受限用户操作HKCU键
	Subkey=Software\Classes\  ; 为简化后面的脚本，此子键须以“\”结尾
}
else
{
	RootKey=HKCR              ; 非受限用户操作HKCR键
	Subkey=
}
; 检查是否存在AHK注册表项
RegRead, FileType, %RootKey%, %Subkey%.ahk
if (FileType!="")
{
	RegRead, value, %RootKey%, %Subkey%%FileType%\Shell\Open\Command     ; AHK路径
	AHK_Path:=PathGetPath(value)
	RegRead, value, %RootKey%, %Subkey%%FileType%\Shell\Compile\Command  ; 编译器路径
	Compiler_Path:=PathGetPath(value)
	RegRead, value, %RootKey%, %Subkey%%FileType%\Shell\Edit\Command     ; 编辑器路径
	Editor_Path:=PathGetPath(value)
	RegRead, Template_Name, %RootKey%, %Subkey%.ahk\ShellNew, FileName   ; 模板文件名
}
else
	FileType=AutoHotkeyScript
; 通过 AutoHotkey.exe 的位置来定位基准目录
SplitPath, A_AhkPath, , AhkDir
if AHK_Path=
{
	IfExist, %AhkDir%\AutoHotkey.exe
		AHK_path=%AhkDir%\AutoHotkey.exe
}
if Compiler_Path=
{
	IfExist, %AhkDir%\Compiler\Ahk2Exe.exe
		Compiler_Path=%AhkDir%\Compiler\Ahk2Exe.exe
}
if Editor_Path=
{
	IfExist, %AhkDir%\SciTE\SciTE.exe
		Editor_Path=%AhkDir%\SciTE\SciTE.exe
}
if Template_Name=
	Template_Name=Template.ahk
Gui, Font, bold s15
Gui, Add, Text, x10 y10 w480 h290, %A_Space%设置并汉化 .ahk 文件的右键菜单
Gui, Font
Gui, Add, GroupBox, x20 y50 w460 h50 , “运行脚本”
Gui, Add, Edit, x35 y70 w340 h20 vAHK_Path, %AHK_path%
Gui, Add, Button, x385 y70 w40 h20 gFind_AHK, 浏览
Gui, Add, GroupBox, x20 y110 w460 h50 , “编译脚本”
Gui, Add, Edit, x35 y130 w340 h20 vCompiler_Path, %Compiler_Path%
Gui, Add, Button, x385 y130 w40 h20 gChoose_Compiler, 浏览
Gui, Add, Button, x430 y130 w40 h20 gDefault_Compiler, 默认
Gui, Add, GroupBox, x20 y170 w460 h50 , “编辑脚本”
Gui, Add, Edit, x35 y190 w340 h20 vEditor_Path, %Editor_Path%
Gui, Add, Button, x385 y190 w40 h20 gChoose_Editor, 浏览
Gui, Add, Button, x430 y190 w40 h20 gDefault_Editor, 默认
Gui, Add, GroupBox, x20 y230 w460 h50 , “新建脚本”
Gui, Add, Button, x35 y250 w340 h20 gEdit_Template, 自定义新建脚本的模板
Gui, Font, bold s15
Gui, Add, Button, x20 y300 w200 h40 Default gInstall, 设置
Gui, Add, Button, x280 y300 w200 h40 gCancel, 取消
; =====  ds920 修改 2022年1月11日  ===== 第124行 =====
	gosub, Install
if (A_Args.1="/set")
	gosub, Install
else
	Gui, Show, x250 y200 h350 w500 Center, AHK 脚本关联工具 %Script_Version%
return
GuiClose:
GuiEscape:
Cancel:
	ExitApp
return
; 查找 AutoHotkey 主程序
Find_AHK:
	Gui +OwnDialogs
	FileSelectFile, AHK_Path, 3, , 查找 AutoHotkey.exe, AutoHotkey.exe
	if (AHK_Path!="")
		GuiControl,,AHK_Path, %AHK_Path%
	gosub Default_Compiler
return
; 选择脚本编译器
Choose_Compiler:
	Gui +OwnDialogs
	FileSelectFile, Compiler_Path, 3, , 选择脚本编译器, 程序(*.exe)
	if (Compiler_Path!="")
		GuiControl,,Compiler_Path, %Compiler_Path%
return
; 默认脚本编译器
Default_Compiler:
	GuiControlGet, AHK_Path
	SplitPath, AHK_Path, ,AHK_Dir
	IfExist, %AHK_Dir%\Compiler\Ahk2Exe.exe
	{
		Compiler_Path=%AHK_Dir%\Compiler\Ahk2Exe.exe
		GuiControl,, Compiler_Path, %Compiler_Path%
	}
return
; 选择脚本编辑器
Choose_Editor:
	Gui +OwnDialogs
	FileSelectFile, Editor_Path, 3, , 选择脚本编辑器, 程序(*.exe)
	if (Editor_Path!="")
		GuiControl,,Editor_Path, %Editor_Path%
return
; 默认脚本编辑器
Default_Editor:
	IfExist, %AhkDir%\SciTE\SciTE.exe
		Editor_Path=%AhkDir%\SciTE\SciTE.exe
	else ifExist, %A_WinDir%\system32\notepad.exe
			Editor_Path=%A_WinDir%\system32\notepad.exe
	GuiControl,, Editor_Path, %Editor_Path%
return
; 设置
Install:
	Gui, Submit
; =====  ds920 修改 2022年1月11日  ===== 第189到191行 =====
	AHK_Path:="D:\Prog\AutoHotkey\AutoHotkey.exe"
	Compiler_Path:="D:\Prog\AutoHotkey\Compiler\Ahk2Exe.exe"
	Editor_Path:="D:\Prog\AutoHotkey\SciTE\SciTE.exe"
	
	IfNotExist, %AHK_Path%
	{
		MsgBox, 16, , AutoHotkey 路径错误 ！
		return
	}
	IfNotExist, %Compiler_Path%
	{
		MsgBox, 16, , 编译器路径错误 ！
		return
	}
	IfNotExist, %Editor_Path%
	{
		MsgBox, 16, , 编辑器路径错误 ！
		return
	}
	; 写入注册表
	RegWrite, REG_SZ, %RootKey%, %Subkey%.ahk,, %FileType%
	RegWrite, REG_SZ, %RootKey%, %Subkey%.ahk\ShellNew, FileName, %Template_Name%
	IfNotExist, %A_WinDir%\ShellNew\%Template_Name%
		gosub Create_Template
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%,, AutoHotkey 脚本
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\DefaultIcon,, %AHK_Path%`,1
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell,, Open
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Open,, 运行脚本
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Open\Command,, "%AHK_Path%" "`%1" `%*
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile,, 编译脚本
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile-Gui,, 编译脚本 (GUI)
	IfInString, Compiler_Path, Ahk2Exe.exe
	{
		RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile\Command,, "%Compiler_Path%" /in "`%1"
		RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile-Gui\Command,, "%Compiler_Path%" /gui /in "`%1"
	}
	else
	{
		RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile\Command,, "%Compiler_Path%" "`%1"
		RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Compile-Gui\Command,, "%Compiler_Path%" /gui "`%1"
	}
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Edit,, 编辑脚本
	RegWrite, REG_SZ, %RootKey%, %Subkey%%FileType%\Shell\Edit\Command,, "%Editor_Path%" "`%1"
; =====  ds920 修改 2022年1月11日  ===== 第242行 =====
;	MsgBox, 64, , 设置完毕 ！
	ExitApp
return
; 编辑脚本模板
Edit_Template:
	GuiControlGet, Editor_Path
	IfNotExist, %Editor_Path%
	{
		MsgBox, 64, , 脚本编辑器路径错误 ！
		return
	}
	IfNotExist, %A_WinDir%\ShellNew\%Template_Name%
		gosub Create_Template
	ifExist, %A_WinDir%\system32\notepad.exe
		Run, *RunAs notepad.exe %A_WinDir%\ShellNew\%Template_Name%
	else
		Run, *RunAs %Editor_Path% %A_WinDir%\ShellNew\%Template_Name%
return
; 新建脚本模板
Create_Template:
	FileAppend,
	(
#NoEnv
SendMode Input
SetWorkingDir `%A_ScriptDir`%
	), %A_WinDir%\ShellNew\%Template_Name%, UTF-8
	IfNotExist, %A_WinDir%\ShellNew\%Template_Name%
		MsgBox, 64, , 无法创建脚本模板 ！`n`n请尝试使用管理员权限运行本工具。
return
; 从注册表值字符串中提取路径
PathGetPath(pSourceCmd)
{
	local Path, ArgsStartPos = 0
	if (SubStr(pSourceCmd, 1, 1) = """")
		Path := SubStr(pSourceCmd, 2, InStr(pSourceCmd, """", False, 2) - 2)
	else
	{
		ArgsStartPos := InStr(pSourceCmd, " ")
		if ArgsStartPos
			Path := SubStr(pSourceCmd, 1, ArgsStartPos - 1)
		else
			Path = %pSourceCmd%
	}
	return Path
}
}

REM /*
REM =======================================================
REM   Silent-Setup.bat - 自动静默安装AutoHotkey和SciTE4AutoHotkey的批处理脚本
REM
REM   文件     : D:\Prog\AutoHotkey\-Silent-Setup.bat
REM 
REM   脚本作者 : ds920
REM   最新版本 : 1.0.1
REM   更新时间 : 2022年1月26日
REM 
REM   项目主页 : https://gitee.com/ds920
REM 
REM   用法:  (需要Windows系统的电脑)
REM   1.  鼠标双击用WinRAR x86 32位 压缩软件 打包成的SFX自解压exe可自行自动静默安装包文件
REM  
REM =======================================================
REM */
START  "" "%~dp0"AutoHotkey-1.1.35.00-setup.exe  /S /A32 /U32 /U64 /D=D:\Prog\AutoHotkey\ /WAIT
REM 等待3秒钟，以便让AHK文件关联生效，使ahk脚本能够顺利运行
REM ping -n 3 127.0.0.1>nul 2>nul
REM   设置AHK文件关联、汉化AHK文件右键菜单(运行脚本、编译脚本、编译脚本(GUI)、编辑脚本)
REM   脚本说明：  此工具用来修改 AutoHotkey 脚本的右键菜单关联，适用于 AutoHotkey 安装版、绿色版。
REM   作者：      甲壳虫<jdchenjian@gmail.com>
REM   修改作者：	  兔子
REM   修改作者：  ds920
START  "" "%~dp0"SciTE\-Linked.exe
exit

unit PYIndexUnit;
{*******************************************************}
{              汉字-->拼音声母处理 v4.0                 }
{           Developed by cyw(QQ: 26890954)              }
{           2013.9.13 All Right Reserved.               }
{*******************************************************}
{
一、特点：
1、支持多音字，支持所有中国汉字(共20902个)，包括难字、生僻字、广东白话字、繁体字等所有计算机能显示的全部汉字。
   例如：镕、啱、揾、叻、嘅、咁、門、長、發財、車、冇乜嘢。
2、同时支持Unicode和ANSI字符集。
3、支持Delphi6至DelphiXE系列的所有Delphi版本(最后一次测试是XE4)。
二、实现原理(Unicode)：
1、根据汉字的编码规则，汉字在Unicode的编码范围为$4E00至$9FA5(即:19968至40869, 共20902个汉字)。
2、对中国汉字字库中的每个汉字，扫描从互联网下载的较完整的<GBK汉字各种编码汇总.xls>拼音字库，找到每个汉字的全拼拼音
   (包括多音，一个汉字最多4种读音)，并获取每个读音的声母(首字母), 生成汉字声母字典文件。
3、把声母字典文件中每个汉字的声母，按汉字字库的Unicode编码规则全部串在一起，由于一个汉字最多3种读音(有4种以上读音的
   仅有"竓qfzygs, 竕sfzyg, 竡ygsb"三个生僻字, 仅取前三个读音)，为每个汉字预留3个字节空间，生成Unicode汉字声母表,
   如本单元所定义的PartUnicode常量。
4、查找原理：要查找一个汉字在声母表中的对应位置，应使用以下公式计算得：
       汉字声母索引 = (汉字Unicode编码 - 19968) * 3 + 1;  //其中19968是指Unicode字符集中的第一个汉字位置; 3表示每个汉字预留的3个字节空间
三、实现原理(ANSI)：
1、根据汉字的编码规则，第一字节为区码(纵向)，第二字节为位码（横向），
   第一字节的范围是129-254，共126种，其中161-169段存放各种标点符号，254段为无效汉字，真正有效段为129-160,170-253，共116种。
   第二字节的范围是64-254，其中127段为分隔符，不存在任何内容，真正有效段为64-126,128-254，共190种。
   排除无效字符及标点符号后，有效的汉字库分为三部分：
   1)第一部分(区:129-160 位:64-254[除127]) 	                    32*190 =6080
   2)第二部分(区:170-253 位:64-160[除127], 区253位156-160留空)  84*96-5=8059
   3)第三部分(区:176-247 位:161-254, 区215位250-254留空)        72*94-5=6763
                                                                  合计: 20902个汉字
2、按以上规则可生成三个部分的中国汉字字库，每个区码一行，每个位码一列。
3、同二(2)。
4、同二(3)，如本单元所定义的Part1..Part3常量。
5、查找原理：要查找一个汉字在声母表中的对应位置，应使用以下公式计算得：
       汉字声母索引 = ((汉字区码 - 段落起始区码) * 位码长度 + 汉字位码 - 段落起始位码) * 3 + 1;  //其中3表示每个汉字预留的3个字节空间
   如汉字“啊”，其区位码分别是(176,161)，根据上述第1点所定义，属于第三部分汉字，理应在常量Part3中查找，
   由于第三部分的位码范围是161-254，横向长度是94，即一行(一个区)有94个汉字，所以“啊”在Part3中的位置应该是：
   ((176-176) * 94 + 161 - 161) * 3 + 1 = 1，即Part3[1] = 'a';
四、更新历史：
1、10.9.8 由于全拼输入法的拼音库太过全面，有部分多音字的第一个拼音却不是常用的拼音，导致汉字转声母有时不准确，
          决定抛弃全拼输入法的拼音库，改为采用从互联网下载的较完整的<GBK汉字各种编码汇总.xls>拼音字库，重新生成汉字声母表。
2、10.12.27 上一次更新时是在Excel中编辑<GBK汉字各种编码汇总.xls>文件的，在Excel内替换右括号")"为空时，"Jun1)"替换后会变成"1-Jun"，
             Excel的奇怪现象，导致"军"字的声母变成数字"1"，类似的情况还有很多。本次更新全面修正此类问题，并且经检测发现99.9%以上的
             多音字最多只有三个读音，仅"竓qfzygs, 竕sfzyg, 竡ygsb"三个生僻字有4种以上读音, 故声母表全部由4个字节改为预留3个字节，
             上述三个僻字仅截取前三个读音的声母。
3、12.2.14 之前的版本按常用程度分为五个级别，但却漏了(区:170-175 位:64-160)一段汉字，合计漏了6*96=576个汉字未处理。今改为按汉字编码
           分布规则，划分为三个部分（三段），共计20902个汉字，是迄今为止史上最完整的汉字字库。据此生成的Part1、Part2、Part3三个声母
           常量也是最完整的汉字声母表。另外，从该版本起，开始支持Delphi2007-DelphiXE系列。
4、13.9.13 针对Unicode的编码规则，生成全新的Unicode原生汉字声母表，放弃以前把String转换为AnsiString的方法，由于少了转换步骤，所以理论上
           在Delphi2009(或更高版本)时算法速度更优更快。同时使用编译指令兼容Delphi6-2007的非UniCode开发环境，这部分保留以前的算法。
}
interface
uses
  SysUtils;
//--------------------------- 声明段 -------------------------------------------
//获取指定汉字的拼音索引字母，如：汉 = h。多音字返回多个声母，如：行 = hx
function GetPYIndex(const OneWord: String; const OnlyOne: Boolean = False): String;
//获取指定字符串的拼音索引字母（多音字总是取第一个音的声母)。如：中山大学 = zsdx
function GetStrPYIndex(const Str: String): String;
//获取字符串Str中与拼音声母字符串PYStr匹配的起始位置。如：PosPY('zsdx'，'我来自中山大学')，在Unicode环境中返回4，非Unicode环境返回7
function PosPY(const PYStr, Str: String): Integer;
//判断字符串Str的拼音声母是否全部与PYStr相同。如：SamePY('zsdx', '中山大学') = True
function SamePY(const PYStr, Str: String): Boolean;
//获取字符串Str中拼音声母串与字符串SubStr拼音声母串匹配的起始位置。如：PosTextPY('纵声大笑', '我来自中山大学')，在Unicode环境中返回4，非Unicode环境返回7
function PosTextPY(const SubStr, Str: String): Integer;
//判断字符串Str的拼音声母是否全部与字符串SubStr的拼音声母相同。如：SameTextPY('纵声大笑', '中山大学') = True
function SameTextPY(const SubStr, Str: String): Boolean;
//---------------------------- 实现段 ------------------------------------------
implementation
const
  MaxPYLength = 3; //最大的拼音声母个数
{$IFDEF UNICODE}
  //Unicode汉字声母表 $4E00至$9FA5(即:19968至40869, 共20902个)
  PartUnicode =
     'y  dz k  q  s  x  n  wm z  s  s  x  j  bf y  m  g  c  c  z  qj p  s  s  q  b  y  c  d  s  c  d  q  l  d  y  l  y  b  s  s  j  g  y  qp z  j  j  f  g  c  c  l  z  zd n  w  d  w  z  jd l  j  p  f  y  ya n  n  j  j  t  my y  n  z  w  z  h  f  ly z  p  p  '
    +'q  h  g  cs cs y  y  n  mn j  q  y  x  x  g  d  n  n  s  n  s  j  n  j  n  s  n  n  m  l  n  r  x  y  f  s  n  gq n  n  n  n  qg z  gjqg  l  l  y  j  l  n  y  z  s  s  e  c  y  k  y  y  h  q  w  j  s  s  g  g  y  x  y  q  y  jq t  w  k  t  j  h  y  c  '
    +'h  m  n  x  j  t  l  h  j  y  q  b  y  x  d  l  d  w  r  r  j  n  w  y  s  r  l  d  z  j  p  cq b  z  j  j  b  r  c  f  s  l  n  c  z  s  t  z  f  x  x  c  h  t  r  q  g  gy d  d  l  y  c  c  s  s  y  m  m  r  j  c  y  q  z  p  w  w  j  j  y  f  c  r  '
    +'w  f  d  f  z  q  p  y  d  d  w  y  x  k  y  j  a  w  j  f  f  x  j  b  c  f  t  z  y  h  hk y  cz y  s  w  cz c  y  x  s  ct l  c  x  x  w  z  c  x  n  b  g  n  n  x  b  x  l  z  s  q  sc b  s  jgqp  y  s  a  z  dt h  m  d  z  b  q  b  s  c  w  d  z  '
    +'z  y  y  tb z  h  b  t  s  yt yd f  z  g  n  t  n  xs j  y  w  q  n  k  n  p  h  h  l  x  g  y  b  f  m  j  ne b  j  h  h  g  q  t  j  c  y  s  x  s  t  k  z  gk l  y  c  k  g  l  y  s  m  z  x  y  a  l  m  e  l  dt c  c  x  g  z  y  r  j  x  j  z  l  '