Написать Аддин, меняющий константу условной компиляции

[arthur2]

Как такое реализовать? Хотелось бы, чтобы при компиляции в исполняемый файл бейсик менял константу условной компиляции в свойствах проекта (не в тексте модуля!) на DEBUGING=0. Не плохо бы, чтобы бейсик при этом ещё и спросил - а надо ли

И ещё - может ли Аддин добавлять библиотеку в референцы проекта?

[Хакер]

В свойствах, кажется, никак. В коде — легко.

И ещё - может ли Аддин добавлять библиотеку в референцы проекта?

Насколько я помню, может.

[arthur2]

В коде — легко.

Ну, это в том смысле, что просто найти строку и поменять? Или есть какое-то средство узнать значение констант без перебора строк?

То есть, лобовое решение представляется мне таким: находим строки, содержащие "#const ", читаем из них значения, при компиляции меняем на нужное, после компиляции меняем на как было.

А есть ли способ не в лоб - какие-нибудь методы или свойства, связанные именно с условной компиляцией?

И - а как вообще поймать момент, когда проект компилируется в бинарный файл? Какое-нибудь событие?

Насколько я помню, может.

А как? или хотя бы - куда смотреть?

И ещё один вопрос возник - а можно ли привязать загрузку\незагрузку аддина к конкретному шаблону проекта?

[trash]

Или есть какое-то средство узнать значение констант без перебора строк?
А есть ли способ не в лоб - какие-нибудь методы или свойства, связанные именно с условной компиляцией?
И ещё один вопрос возник - а можно ли привязать загрузку\незагрузку аддина к конкретному шаблону проекта?

Нет.

или хотя бы - куда смотреть?

F2

И - а как вообще поймать момент, когда проект компилируется в бинарный файл? Какое-нибудь событие?

Можно попробовать содержимое FileControlEvents.

[arthur2]

Нет.

жаль

F2

Это-то понятно... и где там искать референцы проекта?

Можно попробовать содержимое FileControlEvents.

Чей-то про компиляцию нам не нашел

AfterAddFile
AfterChangeFileName
AfterCloseFile
AfterRemoveFile
AfterWriteFile
BeforeLoadFile
DoGetNewFileName
RequestWriteFile

[Хакер]

Чей-то про компиляцию нам не нашел

Из FNDLL2:

Код: Выделить всё

Private Sub FileEvents_AfterWriteFile(ByVal VBProject As VBIDE.VBProject, ByVal FileType As VBIDE.vbext_FileType, ByVal FileName As String, ByVal Result As Integer)
    If IsValidProject And (FileType = vbext_ft_Exe) And (Not InfoProviderC Is Nothing) Then
        If Result = 0 Then
            Dim b As Boolean
            ProcessDLLFile FileName, b
        End If
        DisconnectInfoProvider
    End If
End Sub

Это-то понятно... и где там искать референцы проекта?

VBProject::References

[arthur2]

Спасибо! Уже рою

Код: Выделить всё

Private Sub FileEvents_AfterWriteFile....

Но это я не очень понял... Афте - это же после?

[Хакер]

Да, потому что у меня модернизация DLL идёт после того, как DLL создан. Но ведь есть RequestFileWrite?