发信人: pango2000()
整理人: ifeelyou(2000-02-14 08:51:47), 站内信件
|
如何使用API建立文件的快捷方式?
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.101.129.240]
发信人: limodou (木头), 信区: SoftDevelope
标 题: Re: 如何使用API建立文件的快捷方式?
发信站: 网易虚拟社区 (Wed Feb 9 15:45:51 2000), 站内信件
【 在 pango2000 (pango) 的大作中提到: 】
: 如何使用API建立文件的快捷方式?
如果用delphi可以去我的主页查看相关的编程技巧。http://smallroom.126.com
--
Wallman(墙纸软件)被评为共享软件推荐软件，欢迎下载，有源码
Delphi的自编程序，收集编程技巧与文章，不定期的邮件发送,欢迎参观
http://smallroom.126.com http://smallroom.yeah.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.99.83.235]
发信人: zengxi (MOONWALKER), 信区: SoftDevelope
标 题: Re: 如何使用API建立文件的快捷方式?
发信站: 网易虚拟社区 (Thu Feb 10 22:43:13 2000), 站内信件
【 在 pango2000 (pango) 的大作中提到: 】
: 如何使用API建立文件的快捷方式?
uses
ShlObj, ActiveX, ComObj, Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
FileName : String;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
FileName := 'NOTEPAD.EXE';
with MySLink do begin
SetArguments('C:\AUTOEXEC.BAT');
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
MyReg:=TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion
\Explorer');
// 使用下一行代码添加到桌面
Directory := MyReg.ReadString('Shell Folders','Desktop','');
// 使用下三行代码添加到开始菜单
// Directory := MyReg.ReadString('Shell Folders','Start Menu','')+
// '\Whoa!';
// CreateDir(Directory);
WFileName := Directory+'\FooBar.lnk';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;
--
http://funstudio.yeah.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.98.110.62]
|
|