procedure createshortcut(filename :string; description :string;
　　arguements :string; location :shortcuttype);
　　var
　　cobj :iunknown;
　　slink :ishelllink;
　　pfile :ipersistfile;
　　sdir :string;
　　lname :string;
　　spath :string;
　　wfilename :widestring;
　　mreg :tregistry;
　　key :string;
　　tmp :string;
　　begin
　　cobj :=createcomobject(clsid_shelllink); //创建com对象
　　slink :=cobj as ishelllink; //com对象转化为ishelllink型接口
　　pfile :=cobj as ipersistfile; //com对象转化为ipersistfile型接口

　　//获取路径
　　spath :=extractfilepath(filename);
　　with slink do begin
　　setpath(pchar(filename)); //设置执行文件名
　　setarguments(pchar(arguements)); //设置执行参数
　　setdescription(pchar(description)); //设置描述信息
　　setworkingdirectory(pchar(spath)); //设置工作路径，即执行程序所在目录
　　end;

　　//获取各快捷方式的实际目录
　　mreg :=tregistry.create;
　　with mreg do begin
　　rootkey :=hkey_current_user;

　　key :=regstr_path_explorer; //delphi在单元regstr中定义的常量
　　tmp :=key + '\shell folders';