7

我正在尝试创建一个包含长参数字符串(> MAX_PATH)的快捷方式(在桌面上)。

MSDN 文档明确指出,对于 Unicode 字符串,该字符串可以比 MAX_PATH 长。

生成的快捷方式恰好在 MAX_PATH 字符(即Path+ the Arguments)之后被剪切。

我的实现有问题还是这是 Windows 限制?

procedure CreateShortcut(APath: WideString;
  AWorkingDirectory: WideString; AArguments: WideString; ADescription: WideString;
  ALinkFileName: WideString);
var
   IObject : IUnknown;
   ISLink  : IShellLinkW;
   IPFile  : IPersistFile;
begin
   IObject := CreateComObject(CLSID_ShellLink);
   ISLink := IObject as IShellLinkW;
   ISLink.SetPath(            PWideChar(APath));
   ISLink.SetWorkingDirectory(PWideChar(AWorkingDirectory));
   ISLink.SetArguments(       PWideChar(AArguments));
   ISLink.SetDescription(     PWideChar(ADescription));
   IPFile := IObject as IPersistFile;
   IPFile.Save(PWideChar(ALinkFileName), False);
end;

PS:操作系统是 Windows XP(及以上)。

4

2 回答 2

15

事实证明,这个问题实际上只是 Explorer shell 对话框中的一个限制。生成的快捷方式文件没有 260 个字符的限制。只是对话框拒绝显示具有更多字符的目标。大概它GetPath使用固定长度的缓冲区调用。

procedure TForm11.Button1Click(Sender: TObject);
var
  sl: IShellLinkW;
  pf: IPersistFile;
begin
  CoCreateInstance(CLSID_ShellLink, nil, 
    CLSCTX_INPROC_SERVER, IID_IShellLinkW, sl);
  sl.SetPath('c:\desktop\test.bat');
  sl.SetWorkingDirectory('c:\desktop\');
  sl.SetArguments(PChar(StringOfChar('x', 300)+'_the_end'));
  pf := sl as IPersistFile;
  pf.Save('c:\desktop\test.lnk', False);
end;

我的test.bat样子是这样的:

echo %1> test.out

结果test.out是正确的方式到_the_end!

于 2011-02-11T20:19:18.847 回答
5

感谢所有为这个线程做出贡献的人 - 它对我帮助很大。

但是,如果可以的话,我想添加以下我在制定解决方案时发现的信息:

  1. 在 Windows 7 Enterprise ~SP1 上,使用VBS 创建快捷方式似乎仍然存在(至少)参数字段中的最大字符数限制。在被截断之前,我最多测试了 1023 个字符。我认为同样的限制同样适用于 Delphi 方法。

  2. 在 Windows XP Professional ~SP3 上,虽然 VBS 方法会创建一个超过 260 个字符的快捷方式(lnk 文件包含数据),但在执行它时似乎将其截断到这个数字左右。

于 2012-09-13T21:07:06.467 回答