如何建立硬连接？？？在线等(100分)

我用createhardlink在fat32的文件系统中添加快捷方式到开始菜单失败，查资料才知道次函数只能用于NTFS文件系统中，那如何在FAT32中添加快捷方式呢？

路过，一起来学习

function CreateShellLink(mPath: string; mWorkingDirectory: string;
mFileName: WideString): Boolean;
var
vShellLink: IShellLink;
vPersistFile: IPersistFile;
vUnKnown: IUnKnown;
begin
Result := True;
try
vUnKnown := CreateComObject(CLSID_ShellLink);
vShellLink := vUnKnown as IShellLink;
vPersistFile := vUnKnown as IPersistFile;
vShellLink.SetPath(PChar(mPath));
vShellLink.SetWorkingDirectory(PChar(mWorkingDirectory));
vPersistFile.Save(PWChar(mFileName), False);
except
Result := False;
end;
end; { CreateShellLink }
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateShellLink(ParamStr(0), ExtractFilePath(ParamStr(0)),
GetSpecialFolderDir(CSIDL_DESKTOPDIRECTORY) + '/' +
ChangeFileExt(ExtractFileName(ParamStr(0)), '.lnk'));
end;

uses
ShlObj,ComObj,ActiveX
忘了加上上面的拉 呵呵
给你个简单的例子
CreateShellLink('D:/树/sc.exe','D:/树',.lnk');

多人接受答案了。