在 WinXP SP3 的 NTFS 中添加运行时文件摘要选项卡数据

Question

我已经放弃尝试找出这个问题的原因，但这是这个故事，希望你能给一个提示......

当我开发独特的应用程序时（ http://code.google.com/p/sedev ），因此我需要对其进行润色。
我必须将文件摘要（我认为非常有用的信息）添加到应用程序创建的任何文件中，因此我决定使用 NTFS 兼容结构 编辑：发生问题的代码片段：

if (FileExists(BaseLocation + LeftStr(GetSSWData, Length(GetSSWData)
              - 1) + '.vkp') = True) then // add NTFS descriptive information to output file
        try
          SetFileSummaryInfo
            (PWideChar(BaseLocation + LeftStr(GetSSWData, Length
                  (GetSSWData) - 1) + '.vkp')); // in my testcase files full path is: C:\Documents and Settings\Kludge\Desktop\sedevrpg\SEDEV_RPG_O_710.vkp
          ShowMessagePos('Patch Created successfuly!' + #13#13 +
              'Please verify created data to www.se-developers.net.',
            ParamStr2X, ParamStr3Y);
          MessageBeep(0);
        except // exception handler does not even fire on exception ...
          on Exception do
          begin
            if (WarningChBx.Checked = True) then
              ShowMessagePos
                ('Unable to add Description to Output file (' +
                  BaseLocation + LeftStr(GetSSWData, Length(GetSSWData)
                    - 1) + '.vkp )', ParamStr2X, ParamStr3Y);
            MessageBeep(0);
          end;
        end

作者最终编辑：问题出在 SetFileSummaryInfo(PWideChar('')) 中，因为在 PWideChar 转换后，您得到的是 CHARACTER，而不是 Array字符（又名字符串）因此它不再是有效的路径！

这是主要教程： http://www.delphipages.com/articles/setting_file_summary_information-9228 .html
编辑：格式更好的教程位于此处。

但是，问题是我无法让该死的 FileName 参数接受任何字符串...我有 EOleSysError 异常：“%1 找不到”无论如何。

错误操作数是：

OleCheck(StgOpenStorageEx(PWideChar(FileName),
 STGM_SHARE_EXCLUSIVE or STGM_READWRITE,
 STGFMT_ANY,
 0, nil,  nil, @IID_IPropertySetStorage, stg));

我不明白的是为什么它实际上需要 %1 MSDOS 文件名输入。
我没有从 CMD 启动应用程序，因此我非常怀疑它需要额外的文件路径参数...

我已经尝试了所有可能的 String 和 PString 转换，还尝试了各种参数传递方法...它只是不起作用...

任何帮助赞赏！

Answer 1

我只能通过指定无效的文件名来重现您的情况。确保在文件名中包含完整路径。