Thinkai's Blog

;获取mysql目录
srvPath := ""
for srv in ComObjGet("winmgmts:").ExecQuery("select * from CIM_Service where Name like '%mysql%'")
{
	try
		tp := srv.PathName
	if tp
	{
		if RegExMatch(tp,"^""([^""]*bin\\)[^""]*""", m) ;匹配路径规则
		{
			srvPath := m1
			break
		}
	}
}