Question

在[Files]部分中，我使用Pascal脚本调用我自己的DLL来生成文件夹名称，我希望在其中安装我的程序文档。我的DLL和我的Pascal脚本似乎工作正常，但是当我在Windows 7上运行我的安装程序时，Inno安装程序使用目录名作为文件名而不是将文件名附加到目录名，我最终得到所有3文档文件复制到一个文件中，该文件具有我希望该目录具有的名称。奇怪的是，当我在Windows XP上运行时，代码可以正常工作。

以下是一些相关代码：

[Files]部分：

[Files]
Source: "doc 1.pdf"; DestDir: "{code:DocumentFolder}";
Source: "doc 2.pdf"; DestDir: "{code:DocumentFolder}";
Source: "doc 3.pdf"; DestDir: "{code:DocumentFolder}";

Pascal脚本：

// Get the path to the documentation folder
// DocPath() returns a path name without a trailing backslash
// unless it returns a null string.
function DocumentFolder(Param: String) : String;
var
  s : String;
  k : integer;
begin
  SetLength(s, 255);
  k := DocPath(s); // Path to "MyCompany\MyProg" folder or something like it
  if 0 = k then s := ExpandConstant('{app}'); // Just use the program folder if there is no public folder
  Result := s; 
end;

我编写脚本的原因是我希望文档进入系统公共文件夹中的文件夹（如果有的话），但是交替进入系统中的程序文件夹没有公共文件夹。

如果我错过了一些非常简单的方法，请告诉我。

无论如何，当我在Windows 7系统上运行时，根据Inno Setup的调试日志，这是我得到的：

[10:47:42.406]   Dest filename: C:\Users\Public\MyCompany\MyProgDocs
[10:47:42.409]   Time stamp of our file: 2002-07-10 10:33:02.000
[10:47:42.412]   Installing the file.
[10:47:42.453]   Successfully installed the file.
[10:47:42.458]   -- File entry --
[10:47:44.595]   Dest filename: C:\Users\Public\MyCompany\MyProgDocs
[10:47:44.598]   Time stamp of our file: 2014-09-13 21:14:36.000
[10:47:44.600]   Dest file exists.
[10:47:44.601]   Time stamp of existing file: 2002-07-10 10:33:02.000
[10:47:44.603]   Version of our file: (none)
[10:47:44.609]   Version of existing file: (none)
[10:47:44.611]   Installing the file.
[10:47:44.637]   Successfully installed the file.
[10:47:44.640]   -- File entry --
[10:47:45.603]   Dest filename: C:\Users\Public\MyCompany\MyProgDocs
[10:47:45.606]   Time stamp of our file: 2014-09-16 14:51:26.000
[10:47:45.608]   Dest file exists.
[10:47:45.610]   Time stamp of existing file: 2014-09-13 21:14:36.000
[10:47:45.612]   Version of our file: (none)
[10:47:45.615]   Version of existing file: (none)
[10:47:45.617]   Installing the file.
[10:47:45.710]   Successfully installed the file.

如您所见，我的3个PDF文件中的每一个都已按照我的意图复制到名为C:\Users\Public\MyCompany\MyProgDocs而不是C:\Users\Public\MyCompany\MyProgDocs\doc 1.pdf等文件中。目标文件由[Files]部分中的第一行创建，然后由第二行覆盖，并由第三行再次覆盖。

通过调试器逐步执行，我看到我的Pascal脚本和支持它的DLL工作正常。

调用DocPath(s)返回字符串中的字符数，并将其参数s设置为我想要的字符串值。在XP上，它返回零并将s设置为空字符串。在Windows 7上，DocPath(s)返回36并将s设置为C:\Users\Public\MyCompany\MyProgDocs。

我该如何解决这个问题？

编辑：以下是我的DLL中的一些相关代码：

#define FOLDERNAME _T("MyCompany")
static CString GetPublicPath()
{
    TCHAR pubpath[_MAX_PATH] = {_T("")};
    int nameSize = ::GetEnvironmentVariable(_T("public"), pubpath, countof(pubpath));
    if (0 < nameSize)
    {
        TCHAR* wdbuf = _tgetcwd(NULL, 0);
        _tchdir(pubpath);
        _tmkdir(FOLDERNAME);
        _tchdir(FOLDERNAME);
        _tcscat(pubpath, _T("\\"));
        _tcscat(pubpath, FOLDERNAME);
        _tchdir(wdbuf);
        free(wdbuf);
    }

    return CString(pubpath);
}
int STDCALL DocPath(wchar_t** x)
{
    CString docpath = GetPublicPath();
    docpath = StripBackslash(docpath);
    if (0 < docpath.GetLength())
    {
        docpath += _T("\\MyProgDocs");
    }
    _tcscpy(*x, docpath.GetBuffer());
    ::MessageBox(0, *x, _T("DLL DocPath()"), MB_OK);
    return _tcslen(*x);
}

我在生产版本中没有调用MessageBox()，但它对调试非常有用。宏countof与sizeof类似，但返回数组计数而不是字节大小，因此它适用于宽字符。

Answer 1

如果k> 0您必须将s的长度设置为k。但是从inno获取环境变量要容易得多（并且不必编写dll） - 例如：

function DocumentFolder(dummy: String): String;
var
  s: String;
begin
  s := GetEnv('public');
  if Length(s) > 0 then
     s := s + '\MyCompany\MyProgDocs'
  else
    s := ExpandConstant('{app}');
  Result := s;
end;

Inno设置：生成的文件夹名称适用于Windows XP但不适用于Windows 7

1 个答案: