说的是快捷方式吧
给你段代码
function TMCustomShortCut.SaveToLinkFile(LinkFileName: WideString):Boolean;
var
ShellLink:IUnknown;
begin
Result:=False;
ShellLink:= CreateComObject(CLSID_ShellLink);
with ShellLink as IShellLinkdo
begin
SetShowCmd(ShowCmds[Self.FWindowState]);
SetArguments(Pchar(Self.FParameters));
SetDescription(Pchar(Self.FDescription));
SetPath(PChar(Self.FTarget));
SetWorkingDirectory(Pchar(Self.FWorkDir));
end;
(ShellLink as IPersistFile).Save(PWChar(LinkFilename),False);
end;