快捷方式的函数

                                      快捷方式的函数

use  shlobj,comobj,activex;//查DEL6VCL.HLP可以查到olecheck属于comobj
procedure   link(const appname,savepath:string);
var
sl:IShellLink;
pf:IPersistFile;
lnkname:widestring;
begin
olecheck(cocreateinstance(CLSID_ShellLink,nil,CLSCTX_INPROC_SERVER,IShellLink,sl));
pf:=sl as IPersistFile;
olecheck(sl.setpath(pchar(appname)));
lnkname:=savepath+´\´+changefileext(extractfilename(appname),´.lnk´);
pf.save(pwidechar(lnkname),true);
end;

• · 初级X编程2
• · 彻底粉碎“指针与数组的困惑”（上）
• · ADSL组建局域网快捷方案
• · ADSL组建局域网快捷方案
• · 形形色色的自定义消息（上）
• · 数据结构学习（C++）——线性链式结构总结（代后记）【1】
• · vc入门宝典(九)
• · 形形色色的自定义消息（下）
• · C++中的预处理（上）
• · 非常时期突现网络办公的魅力！
• · asp_dll
• · 学Java，观GP
• · 怎样写一个 NT 服务程序
• · 代码优化试验——短循环优化（上）
• · 代码优化试验——短循环优化（下）
• · =========<C++未眠夜---我学习C++的心路历程>========
• · BOOK
• · 读《Efficient C++》疑惑
• · C++中的预处理（下）
• · DSP v1.0--序列化和反序列化对象和DNS v1.0--得到域的邮件服务器
• · C++入门解惑（0）——序
• · 代码自动完成、文档自动生成、提高开发效率----介绍VcExtend
• · “瑜珈山夜话”---序
• · C++入门解惑（1）——浅析cout
• · VC6使用#pragma warning的一点经验
• · 如何在一个容器中放入不同对象（续）
• · “瑜珈山夜话” ----内存分配（一）
• · 最简单的屏幕拷贝程序（象素拷贝）
• · vc入门宝典(十)
• · Win32学习笔记 第六章 程序6-3 Typer 说明
• · 自动建库的安装程序制作方法
• · “瑜珈山夜话” ----内存分配（二）
• · 让Windows 2000/XP中的任意窗口透明起来
• · 不比不知道，一比吓一跳！
• · “瑜珈山夜话” ----内存分配（三）
• · WTL体系结构(3)
• · 控制台程序的事件處理
• · 深入DCOM之DCOM的发展史