unit Unit1;
interface
uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,

ComObj, ActiveX, ShlObj;

//   ComObj, ActiveX, ShlObj;必备的引用库

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const

maxPath = 200; // 定义最大字符串数组长度

var

Form1: TForm1;
implementation
{$R *.dfm}

{  ml:=ExtractFilePath(Paramstr(0));

if RenameFile (ml+‘Project1.exe’,ml+‘001.exe’) then

begin

ShowMessage(‘修改成功’);

end

else

begin

ShowMessage(‘修改失败’);

end;          }

procedure TForm1.Button1Click(Sender: TObject);

var
tmp: array [0…maxPath] of Char;

WinDir: string;

pitem:PITEMIDLIST;

usrDeskTopPath: string;

begin
//获取当前用户桌面的位置

SHGetSpecialFolderLocation(self.Handle, CSIDL_DESKTOP, pitem);

setlength(usrDeskTopPath, maxPath);

shGetPathFromIDList(pitem, PWideChar(usrDeskTopPath));

usrDeskTopPath := String(PWideChar(usrDeskTopPath));
// 创建快捷方式

CreateLink(

ParamStr(0),                                       // 应用程序完整路径

‘-22 -dd xx=“aa”’,                                 // 传给应用程序的参数
usrDeskTopPath + '\' + Application.Title + '.lnk', // 快捷方式完整路径
'Application.Title'                                // 备注

);

end;

procedure TForm1.CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);

var

AnObj: IUnknown;

ShellLink: IShellLink;

AFile: IPersistFile;

FileName: WideString;

begin

if UpperCase(ExtractFileExt(LinkPath)) <> ‘.LNK’ then //检查扩展名是否正确

begin

raise Exception.Create(‘快捷方式的扩展名必须是 ′′LNK′′!’);

//若不是则产生异常

end;

try

OleInitialize(nil);//初始化OLE库，在使用OLE函数前必须调用初始化

AnObj := CreateComObject(CLSID_ShellLink); //根据给定的ClassID生成

//一个COM对象，此处是快捷方式

ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口

AFile := AnObj as IPersistFile;//强制转换为文件接口

//设置快捷方式属性，此处只设置了几个常用的属性

ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目标文件，一般为可执行文件

ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数
ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)));//目标文件的工作目录

ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述

FileName := LinkPath;//把文件名转换为WideString类型

AFile.Save(PWChar(FileName), False);//保存快捷方式

finally

OleUninitialize;//关闭OLE库，此函数必须与OleInitialize成对调用

end;
end;
end.

CentOS下创建快捷方式
说明：
[Desktop Entry]   ---------快捷方式的固定格式
 Version=1.0      ---------版本号,可以不写              
 Name=Browser -快捷方式的名字，可以用软件的名字
 GenericName=Browser  -通用名称，也可以用软件名字
 Comment=Browse       -鼠标停留在上面时，显示的描述信息，可以不写
 Exec=/path/to/your/application -[重要]，是应用程序所在的路径，尽量写绝对路径.
 Icon=/path/to/you/icon----快捷方式使用的图标
 Terminal=false        ----是否在终端下执行
 Type=Application      ----程序的类型
 MimeType=text/html;text/xml;application/xhtml+xml;application/vnd.mozilla.xul+xml;text/mml;x-scheme-handler/http;x-scheme-handler/https;
 StartupNotify=true    ----启动通知开关
 Categories=Network;WebBrowser;--把这个程序归类到哪些目录中，可以不要
 X-Desktop-File-Install-Version=0.21

示例：vi eclipse.desktop 

内容：

[Desktop Entry]

Version=2.4

Name=Eclipse

GenericName=Eclipse

Comment=Eclipse

Exec=/usr/bin/Eclipse

Icon=/opt/Eclipse

Terminal=false

Type=Application

编辑完成后保存，之后就可以在桌面上看到你刚刚创建的快捷方式了。

双击运行。OK，创建完成了。

参考源码，知道创建快捷方式是通过发广播给receiver实现的。
第一步：
指定Action为：

com.android.launcher.action.INSTALL_SHORTCUT


第二步：

指定名称：

intent.putExtra(Intent.EXTRA_SHORTCUT_NAME, "手机管家");


第三步：

指定图标：

intent.putExtra(Intent.EXTRA_SHORTCUT_ICON,
				BitmapFactory.decodeResource(getResources(), R.drawable.icon));


第四步：

指定要干什么事情：

Intent shortcutIntent = new Intent();
		shortcutIntent.setAction(Intent.ACTION_MAIN);
		shortcutIntent.addCategory(Intent.CATEGORY_DEFAULT);
		shortcutIntent.setClassName(getPackageName(),
				"com.ustc.mobilemanager.SplashActivity");
		intent.putExtra(Intent.EXTRA_SHORTCUT_INTENT, shortcutIntent);


第五步：

发送广播：

sendBroadcast(intent);


运行，发现程序并没有创建快捷方式，查看logcat日志，发现了一点：需要添加权限：


 <uses-permission android:name="com.android.launcher.permission.INSTALL_SHORTCUT"/>


现在运行，OK了，不过我们的程序每次进入都会创建一个快捷方式，这个太。。。所以我们需要知道当我们创建过了之后就不要再创建了：

完整的代码如下：

/**
	 * 创建快捷方式
	 * 
	 */
	private void installShortcut() {

		boolean shortcut = sp.getBoolean("shortcut", false);

		if (shortcut) {
			return;
		}
		Editor editor = sp.edit();

		// 发送广播的Intent
		Intent intent = new Intent();
		intent.setAction("com.android.launcher.action.INSTALL_SHORTCUT");
		// 快捷方式，要包含三个重要的信息：1.名称；2.图标；3.干什么事情
		intent.putExtra(Intent.EXTRA_SHORTCUT_NAME, "手机管家");
		intent.putExtra(Intent.EXTRA_SHORTCUT_ICON,
				BitmapFactory.decodeResource(getResources(), R.drawable.icon));

		Intent shortcutIntent = new Intent();
		shortcutIntent.setAction(Intent.ACTION_MAIN);
		shortcutIntent.addCategory(Intent.CATEGORY_DEFAULT);
		shortcutIntent.setClassName(getPackageName(),
				"com.ustc.mobilemanager.SplashActivity");
		intent.putExtra(Intent.EXTRA_SHORTCUT_INTENT, shortcutIntent);
		sendBroadcast(intent);
		Toast.makeText(this, "已创建手机管家快捷方式", 0).show();
		editor.putBoolean("shortcut", true);
		editor.commit();

	}



在onCreate()方法中调用。

转载请标明是引用于 http://blog.csdn.net/chenyujing1234
 
通过此例子学习创建快捷方式的方法，也可知道一些编译错误的解决方法。 
#include <windows.h>
#include <dbt.h>
#include <streams.h>
#include <mmreg.h>
#include <msacm.h>
#include <fcntl.h>
#include <io.h>
#include <stdio.h>
#include <shlobj.h> 

#include "atlconv.h"

void CreateShortcut(LPCTSTR lpszExe, LPCTSTR lpszLnk)
{

	// 建立块捷方式
	// 参数lpszExe: EXE 文件全路径名
	// 参数lpszLnk: 快捷方式文件全路径名
	::CoInitialize( NULL );

	IShellLink * psl = NULL;
	IPersistFile * ppf = NULL;

	HRESULT hr = ::CoCreateInstance(  // 启动组件
		CLSID_ShellLink,      // 快捷方式CLSID
		NULL,                 // 聚合用(注)
		CLSCTX_INPROC_SERVER, // 进程内(Shell32.dll)服务
		IID_IShellLink,       // IShellLink 的IID
		(LPVOID *)&psl );     // 得到接口指针

	if ( SUCCEEDED(hr) )
	{
		psl->SetPath( lpszExe );  // 全路径程序名
		//      psl->SetArguments();      // 命令行参数
		//      psl->SetDescription();    // 备注
		//      psl->SetHotkey();         // 快捷键
		//      psl->SetIconLocation();   // 图标
		//      psl->SetShowCmd();        // 窗口尺寸

		// 根据EXE 的文件名，得到目录名
		TCHAR szWorkPath[ MAX_PATH ];
		::lstrcpy( szWorkPath, lpszExe );
		LPTSTR lp = szWorkPath;
		while( *lp )   
			lp++;

		while('\\'!= *lp ) 
			lp--;
		*lp=0;

		// 设置EXE 程序的默认工作目录

		psl->SetWorkingDirectory( szWorkPath );
		hr = psl->QueryInterface(  // 查找持续性文件接口指针
			IID_IPersistFile,      // 持续性接口IID
			(LPVOID *)&ppf );      // 得到接口指针

		if ( SUCCEEDED(hr) )
		{
			USES_CONVERSION;       // 转换为UNICODE 字符串 CONVERSION要慎用
			ppf->Save(T2COLE(lpszLnk), TRUE );  // 保存

		}
	}

	if ( ppf ) 
		ppf->Release();

	if ( psl ) 
		psl->Release();

	::CoUninitialize();
}



int main()
{
	CreateShortcut(
		("C:\\WINDOWS\\system32\\notepad.exe"),  // 记事本程序。注意，你的系统是否也是这个目录？
		("c:\\Documents and Settings\\Administrator\\桌面\\我的记事本.lnk")
		);
	return 0;
}


 
error C2065: “IShellLink”: 未声明的标识符
解决方法是添加
#include <shlobj.h>
 
 error C2065: “USES_CONVERSION”: 未声明的标识符
解决方法是添加 
#include "atlconv.h"
 
 
提示:
 error LNK2001: 无法解析的外部符号 "unsigned int (__stdcall* 
ATL::g_pfnGetThreadACP)(void)" (?g_pfnGetThreadACP@ATL@@3P6GIXZA)
解决方法是
包含atlsd.lib（debug）或者atls.lib。有两种方式：