Как использовать signonce только с одним файлом с этим макросом ISPP? - PullRequest
Новая
       14

Как использовать signonce только с одним файлом с этим макросом ISPP?

1 голос
/ 13 июня 2019

Я не уверен, что сделал это правильно: 

; We use the preprocessor to compare the DLL versions.
; This results in a smaller setup executable.
; See: https://stackoverflow.com/a/49647793/2287576
#pragma parseroption -p-

#define FileEntry(Source, DestPath) \
    "Source: \"" + Source + "\"; DestDir: \"" + DestPath + "\"; Flags: ignoreversion\n"

#define ProcessFile(RootPath, Path, AlternativePath, DestPath, FindResult, FindHandle) \
    FindResult ? \
        Local[0] = FindGetFileName(FindHandle), \
        Local[1] = AddBackslash(Path) + Local[0], \
        Local[2] = AddBackslash(AlternativePath) + Local[0], \
        Local[3] = AddBackslash(RootPath) + Local[1], \
        Local[4] = AddBackslash(RootPath) + Local[2], \
        Local[5] = \
           FileExists(Local[4]) && \
           (GetFileVersion (Local[3]) == GetFileVersion (Local[4])), \
        FileEntry((Local[5] ? Local[2] : Local[1]), DestPath) + \
        ProcessFile(RootPath, Path, AlternativePath, DestPath, \
            FindNext(FindHandle), FindHandle) \
    : ""

#define ProcessFolderWithAlternativeSource(RootPath, Path, AlternativePath, DestPath) \
    Local[0] = FindFirst(AddBackslash(AddBackslash(RootPath) + Path) + "*.dll", 0), \
    ProcessFile(RootPath, Path, AlternativePath, DestPath, Local[0], Local[0])

#pragma parseroption -p+

#emit ProcessFolderWithAlternativeSource( \
    SetupSetting("SourceDir"), "OutlookCalIFConsole", ".", "{app}\OutlookCalIFConsole")

Source: "OutlookCalIFConsole\OutlookCalIFConsole.exe"; DestDir: "{app}\OutlookCalIFConsole"; Flags: ignoreversion sign
Source: "OutlookCalIFConsole\OutlookCalIFConsole.exe.config"; DestDir: "{app}\OutlookCalIFConsole"; Flags: ignoreversion

; MSATools GMail Library
#emit ProcessFolderWithAlternativeSource( \
    SetupSetting("SourceDir"), "MSAToolsGMailClassLibrary", ".", "{app}\MSAToolsGMailClassLibrary")

Новый бит кода здесь: 

; MSATools GMail Library
#emit ProcessFolderWithAlternativeSource( \
    SetupSetting("SourceDir"), "MSAToolsGMailClassLibrary", ".", "{app}\MSAToolsGMailClassLibrary")

Я не знал, нужны ли мне parseoption звонки?

Кроме того, у меня есть проблема в этом файле: 

MSAToolsGMailClassLibrary.dll

Также требуется флаг signonce. Но все остальные DLL-файлы в папке MSAToolsGMailClassLibrary этого не делают.

Как мы можем это сделать?

1 Ответ

1 голос
/ 13 июня 2019

Измените макрос FileEntry соответственно: 

#define FileEntry(Source, DestPath) \
  "Source: \"" + Source + "\"; DestDir: \"" + DestPath + "\"; Flags: ignoreversion " + \
  (SameText(ExtractFileName(Source), "MSAToolsGMailClassLibrary.dll") ? "signonce" : "") + \
  "\n"

(непроверенные)

...