请问大家
怎样在桌面上给自己的程序创建一个快捷式呢?十分感谢了~~~~~~~~~~~~!
怎样在桌面上给自己的程序创建一个快捷式呢?十分感谢了~~~~~~~~~~~~!
解决方案 »
- d7里如何统计某个工程的代码总量呀?一台电脑上同时装d7和d2007会出问题嘛?
- access数据库查询出来的表如果在查询结果前面加一列,表示结果序号:1,2,3,4...呢?
- 紧急在线求助!!如何将Delphi生成的可执行文件的图标修改为指定的bmp图片!!!
- BlockWrite函数的用法(关于I/O Error)
- 用ADO 连接数据库的问题
- 各位仁兄,错误信息“Authentication failed”是什么意思?
- 如何將文本文件中的內容導入database中
- 怎样实现在Delphi与C++之间实现函数与对象共享
- 字符串查询处理
- 如何拦截WM_NCLBUTTONDBLCLK消息?(帖子有问题了,重新发)
- 如何在当前记录的物理位置后插入一条记录(数据库是.dfb表)?
- 让我的程序多语言支持吧!!!
const
CCH_MAXNAME=255;
LNK_RUN_MIN=7;
LNK_RUN_MAX=3;
LNK_RUN_NORMAL=1;type LINK_FILE_INFO=record
FileName:array[0..MAX_PATH] of char;
WorkDirectory:array[0..MAX_PATH] of char;
IconLocation:array[0..MAX_PATH] of char;
IconIndex:integer;
Arguments:array[0..MAX_PATH] of char;
Description:array[0..CCH_MAXNAME] of char;
ItemIDList:PItemIDList;
RelativePath:array[0..255] of char;
ShowState:integer;
HotKey:word;
end;function CreateLinkFile(const info:LINK_FILE_INFO;const DestFileName:string=''):boolean;
var
anobj:IUnknown;
shlink:IShellLink;
pFile:IPersistFile;
wFileName:widestring;
begin
wFileName:=destfilename;
anobj:=CreateComObject(CLSID_SHELLLINK);
shlink:=anobj as IShellLink;
pFile:=anobj as IPersistFile;
shlink.SetPath(info.FileName);
shlink.SetWorkingDirectory(info.WorkDirectory);
shlink.SetDescription(info.Description);
shlink.SetArguments(info.Arguments);
shlink.SetIconLocation(info.IconLocation,info.IconIndex);
// shlink.SetIDList(info.ItemIDList);
shlink.SetHotkey(info.HotKey);
shlink.SetShowCmd(info.ShowState);
shlink.SetRelativePath(info.RelativePath,0);
if DestFileName='' then
wFileName:=ChangeFileExt(info.FileName,'lnk');
result:=succeeded(pFile.Save(pwchar(wFileName),false));
end;