如何用delphi创建url快捷方式到桌面

procedure AddLink

var

 tmpObject : IUnknown

 tmpSLink : IShellLink

 tmpPFile : IPersistFile

 PIDL : PItemIDList

 StartupDirectory : array[0..MAX_PATH] of Char

 LinkFilename : WideString

 linkshortname:string

begin

 tmpObject := CreateComObject(CLSID_ShellLink)//创建建卜备立快捷方式的外壳扩展

 tmpSLink := tmpObject as IShellLink//取得接口

 tmpPFile := tmpObject as IPersistFile//用来储存*.lnk文件的接口

 tmpSLink.SetPath(pChar(ExtractFilePath(application.exename)+ExtractFileName(Application.ExeName)))

//设定nFolder所在路径

 tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(application.exename)))//设定简弊森工作目录

 SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL) //获得桌面的Itemidlist

 SHGetPathFromIDList(PIDL,StartupDirectory)//获得桌面路径

 //linkshortname:=Copy(ExtractFileName(Application.ExeName),0,Length(ExtractFileName(Application.ExeName))-4)

 linkshortname:='2017居民医保登记'  

 LinkFilename 拦亩:= string(StartupDirectory)+'\'+linkshortname+'.lnk'

 tmpPFile.Save(pWChar(LinkFilename),FALSE)

//保存*.lnk文件

//showmessage('已经成功添加快捷方式'''+linkshortname+'.lnk''!')

 end

delphi 的工程文件，如果包含有多个窗体，可以设置某个窗体为启动的主窗体，设定完成之后，修改其中的窗体或文件代码，直接按快捷键 Ctrl + F9 ，就可以将源代码编译成 exe 文凳没件帆粗宏。态册

1.下载并安装delphi

2.运行delphi, 打开源文件中工程文件，即以.dpr为扩展名的。

3.按F9运行即可。

dfm文件：是delphi的窗体定义文件，可以用普通答旅庆的文本编辑器打开并编辑。

pas文件：是delphi的源码文件，如果是带有窗口的可能有同名的dfm文件相配套。

dpr文件：是delphi的工程文件，一般来说，建立一个程序软件，都需要这个文件，这个文件里通常会包含整个软件所需要的各个dfm窗体、pas源码等。

res文件：是delphi的资源文件，里面一般会保存字符串、图标等资源。

综合来说，一个delph软件必需的几个文件是：dpr、pas。

如果是有窗口的软件（不是dos那种控制台程序)，那镇配么还需要dfm文件。

如果这个窗口文件需要图标等资源，那么就还要res文件。

拿到一个程序的delphi源码，通常都是打开.dpr文件，这是入口文件，打开后会自动载入其他的pas/dfm/res文件，再按F9运行，如果有什么错误，会提示你的。