Lord:如何在程序目录中创建当前应用程序如:test.exe的快捷方式文件。QQ:65466700Mail:alongsun@sina.com(50分)

  • 主题发起人 主题发起人 Alongsun
  • 开始时间 开始时间
A

Alongsun

Unregistered / Unconfirmed
GUEST, unregistred user!
[red][/red]Lord:如何在程序目录中创建当前应用程序如:test.exe的快捷方式文件。
QQ:65466700Mail:alongsun@sina.com
它的情况是这样的打开-》我的电脑-》C 盘--》打开目录--》随便找个 EXE
文件点右键就会出现“创建快捷方式”我要求的就是这个东西!!!!!
 
ShellLink

// uses ShellAPI, ActiveX, ComObj, ShlObj, Registry;
procedure ShellLink(const Path: TFileName; const Arguments, Caption, Folder: string);
var
FileName: WideString;
Unknown: IUnknown;
ShellLink: IShellLink;
PersistFile: IPersistFile;
begin
with TRegistry.Create do begin
OpenKey('Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders', True);
FileName := ReadString(Folder);
end;
Unknown := CreateComObject(CLSID_ShellLink);
ShellLink := Unknown as IShellLink;
PersistFile := ShellLink as IPersistFile;
with ShellLink do begin
SetPath(PChar(Path));
SetArguments(PChar(Arguments));
SetWorkingDirectory(PChar(ExtractFilePath(Path)));
end;
FileName := FileName + '/' + Caption + '.lnk';
PersistFile.Save(PWideChar(FileName), False);
end;
 
我给你个控件,搞定给分
 
后退
顶部