2008年9月24日创建快捷方式到桌面:创建快捷方式到[启动]
//根据zswang和\"超级猛料\"部分函数改编//比放到注册表里麻烦多了function GetSpecialFolderDir(const folderid:integer): String;var pidl: pItemIDList; buffer: array[0..255] of char;begin//取指定的文件夹项目表//CSIDL_STARTUP:启动 SHGetSpecialFolderLocation(application.Handle , folderid, pidl); SHGetPathFromIDL...
[阅读全文] [PDF]
2008年9月5日创建快捷方式:使用Javascript创建快捷方式
需将站点设为信任站点。 var fso = new ActiveXObject("Scripting.FileSystemObject"); var shell = new ActiveXObject("WScript.Shell"); var tagFolder = "c:\\Temp"; if(!fso.FolderExists(tagFolder )) { fso.CreateFolder(tagFolder); //alert("Create success!"); } if(!fso.FileExists(tagFolder + "\\eip.lnk")...
[阅读全文] [PDF]
1 共2条 分1页