如何用代码创建应用程序的桌面快捷方式，或创建一个指向某一网页的桌面快捷方式？

jasper 2003-08-20 11:29:41

如何用代码创建应用程序的桌面快捷方式，或创建一个指向某一网页的桌面快捷方式?

...全文

50 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxpbuaa 2003-08-20

打赏
举报

例子，将本应用程序Project1.exe快捷方式加到桌面：
uses
ShlObj, ActiveX, ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
FileName : String;
DesktopDir : PChar;
WFileName : WideString;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
FileName := ParamStr(0);

with MySLink do begin
SetPath(PChar(ParamStr(0)));
SetWorkingDirectory(PChar(ExtractFilePath(ParamStr(0))));
end;

GetMem(DesktopDir, MAX_PATH);
SHGetSpecialFolderPath(0, DesktopDir, CSIDL_DESKTOP, False);
WFileName := DesktopDir + '\快捷方式.lnk';
FreeMem(DesktopDir);
MyPFile.Save(PWChar(WFileName), False);
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

随着使用的熟练，快捷键便派上用场，超过一半的元素均有快捷方式，这更有助于原型的快速构造，几乎几分钟便可实现一个满意的而复杂的原型设计；跨平台，Balsamiq Mokups是用Flex和Air实现的，所以在Mac OS, Linux和...