procedure createico(s:string;s1:string);//s:程序名称 s1:快捷方式名称
var
tmo:iunknown;
tms:ishelllink;
tmpf:ipersistfile;
pidl:pitemidlist;
sd:array[0..max_path] of char;
sf,ss:string;
linkf:widestring;//要引用shlobj,comobj,activex 在 uses
begin
sf:=s;
tmo:=createcomobject(clsid_shelllink);
tms:=tmo as ishelllink;
tmpf:=tmo as ipersistfile;
s:=extractfilepath(s);
tms.SetPath(pchar(sf));
tms.setworkingdirectory(pchar(s));
shgetspecialfolderlocation(0,csidl_desktopdirectory,pidl);
shgetpathfromidlist(pidl,sd);
ss:=sd;
ss:=ss+'\'+(s1)+'.lnk';
linkf:=ss;
tmpf.save(pwchar(linkf),false);
end;
分享到:
相关推荐
把你的硬盘、U盘、光盘的快捷方式...Rem 要在桌面上创建"可移动磁盘"和"光盘"的建快捷方式:"16+2=18"参数为:18 参数可从“开始菜单”>"程序">"启动">"diskshortcut.lnk"的属性中改 本脚本也可作为学VBS的参考资料
范例: shortcut /? shortcut D:\Tencent\QQ\Bin\QQ.exe /h ctrl+shift+alt+f4 /ld c.lnk ...PS:此次主要修正桌面及开始菜单默认位置(此为程序编写时偷懒遗留问题,没能及时上传),感谢网友zorsite反馈。
/ld 表示快捷方式路径默认为桌面。 /ll 表示快捷方式路径默认为启动栏。 /ls 表示快捷方式路径默认为开始菜单。 注:路径如有空格,请加引号。 使用示例: ::shortcut /? ::shortcut D:\Tencent\QQ\Bin\QQ....
桌面快捷方式无法打开的修复办法 把下面代码另存reg格式就可以 Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\.lnk] @="lnkfile" [HKEY_CLASSES_ROOT\.lnk\ShellEx] [HKEY_CLASSES_ROOT\.lnk\...
收藏一个VB专用的,可自定义参数的创建桌面快捷方式的模块,使用了WSH对象,调用方法也相当简单,下面说一下各参数说明: LnkName = 快捷方式文件名,如果无路径则自动新建到桌面;无后缀名(.lnk)会自动补齐. FilePath...
这个方法在某些机器上并不适用,可以试试在创建快捷方法的时候打开IE,将浏览器窗口缩至合适的大小。单击“开始”菜单,在“程序”中选中并按住鼠标左键拖动应用程序图标到浏览器任意空白处。如果想保留“开始”菜单...
::程序运行后会在桌面建立一个 "快捷方式样本.lnk" ::程序绝对路径自己修改。比较适合用来隐藏QQ多个图标, 广告程序图标等等。 ::配置文件 ico.ini 不能改名字且必须要和程序在同一个目录。 ::本程序名字自己随便...
创建并检测桌面是否有.lnk文件,没有定时创建,获取当前应用程序安装全路径并写入注册表中,读取安装路径并写入开机启动项.不足之处:杀毒软件会阻止定入启动项,快捷方式图标自己加,此程序仅供参考,高手就无视了...
Win7计算机管理提示找不到文件或没有关联的程序问题解决方法 来源:互联网 作者:佚名 时间...以上就是在桌面计算机右键菜单中点击管理打不开时的提示,各们同学打不开管理时的提示会是这两种中的一种。 出现这两种提示
参数 新父, 整数型, 可空, 新的父窗口句柄 默认为0:置顶级窗口 -1:嵌入桌面 .子程序 窗口置焦点, 逻辑型, 公开, 将输入焦点设到指定的窗口。如有必要,会激活窗口.不能对最小化窗口设置(成功返回真,失败返回假) ....
创建桌面快捷方式 Echo 7.卸载 Echo 8.退出 Set /p c=请输入数字并按Enter确定: :Goto If Not "%c%"=="" Set c=%c:~0,1% If "%c%"=="1" Goto Fuck If "%c%"=="2" Goto GroupAd If "%c%"=="3" Goto CSC If "%c%"=="4...
参数 新父, 整数型, 可空, 新的父窗口句柄 默认为0:置顶级窗口 -1:嵌入桌面 .子程序 窗口置焦点, 逻辑型, 公开, 将输入焦点设到指定的窗口。如有必要,会激活窗口.不能对最小化窗口设置(成功返回真,失败返回假) ....
参数 新父, 整数型, 可空, 新的父窗口句柄 默认为0:置顶级窗口 -1:嵌入桌面 .子程序 窗口置焦点, 逻辑型, 公开, 将输入焦点设到指定的窗口。如有必要,会激活窗口.不能对最小化窗口设置(成功返回真,失败返回假) ....
只要传递几个参数给此程序,就可以在桌面、启动项、程序组、开始菜单等处建立您所需的快捷方式。 shortCut.exe "0||测试快捷方式||*this*shortCut.exe" 详见说明文档。