如何用代码创建应用程序的桌面快捷方式,或创建一个指向某一网页的桌面快捷方式? 如何用代码创建应用程序的桌面快捷方式,或创建一个指向某一网页的桌面快捷方式? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 例子,将本应用程序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;————————————————————————————————————宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。———————————————————————————————————— IdHTTP1.Get 如何下载有空格的文件名的文件? 碰到一个头痛的问题,急!!!! 程序退出时的错误 如何去掉弹出的错误窗口 關於sql-server服務器不存在或拒絕訪問的問題 如何在客户端判断 TcpClient.SendBuf 内容 全部到达 服务器 如何在TDbGrid的各列全部创建完成后触发我的事件? 请问一个关于多表查询的问题 FastReport很好用嘛?? 有谁用delphi做过发送邮件的程序? 特急!!!怎样切换声道? 如何进行批量处理数据 哪位有D7第二张安装盘的下载啊,不胜感激
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;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————