快捷方式的函数

原创 2003年07月02日 16:24:00

                                      快捷方式的函数

                                                e271828@163.net

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;

VS2008常用快捷键 最全的快捷键

1.强大的渐进式搜索     操作步骤:  1.按Ctrl+I键;  2.输入你要搜索的文本。注意:这时你会看到光标跳至第一个匹配的位置,并高亮显示搜索的文本。  3.再次按下Ctrl+I键,...
  • loveyaqin1990
  • loveyaqin1990
  • 2014年10月24日 19:17
  • 3466

Android studio 设置注释模板以及函数注释快捷键

一.添加代码注释模板 点击菜单栏的“File“->“Settings”,打开Settings窗口。 点击“IDE Settings”下面的“File and Code Templa...
  • LANGXINLEN
  • LANGXINLEN
  • 2016年02月20日 21:39
  • 9255

eclipse 之快速插入重载函数

~~~~我的生活,我的点点滴滴!!
  • AC_huang
  • AC_huang
  • 2014年11月14日 15:07
  • 2594

建立快捷方式的函数: CreateShortcut - 非常实用、特别方便

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F...
  • wozengcong
  • wozengcong
  • 2014年01月07日 20:53
  • 764

建立快捷方式的函数: CreateShortcut - 非常实用、特别方便

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F...
  • qq752923276
  • qq752923276
  • 2013年12月02日 14:26
  • 750

懒人工具v4.58(32位,Windows快捷方式集合)

  • 2017年12月29日 23:07
  • 23.42MB
  • 下载

桌面快捷方式去除恢复

  • 2017年12月21日 22:54
  • 2KB
  • 下载

wince重启丢失快捷方式的解决办法

  • 2017年11月30日 10:44
  • 36KB
  • 下载

创建快捷方式

  • 2014年08月05日 12:07
  • 1.44MB
  • 下载

C++创建快捷方式

  • 2014年06月24日 18:12
  • 8.92MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:快捷方式的函数
举报原因:
原因补充:

(最多只允许输入30个字)