PrivateDeclareFunctionfCreateShellLinkLib"STKIT432.DLL"(ByVallpstrFolderNameAsString,ByVallpstrLinkNameAsString,ByVallpstrLinkPathAsString,ByVallpstrLinkArgsAsString)AsLong SubCommand1_Click() DimlReturnAsLong '添加到桌面 lReturn=fCreateShellLink("....Desktop","ShortcuttoCalculator","c:windowscalc.exe","") '添加到程序组 lReturn=fCreateShellLink("...
[ 查看全文 ]