API通过路径打开指定文件以及文件夹

.如果真 (编辑框1.内容 ≠ “” 且 文件是否存在 (编辑框1.内容))
path ＝ SHCreateFromPath (编辑框1.内容)
.如果真 (path ≠ 0)
SHOpenFolderAndSelectItems (path, 0, 0, 0)
.如果真结束
SHFree (path)