Как передать dll-ке Environ$?

[kibernetics]

Народ, всем привет.
Скажите, у меня есть сторонняя длл-ка, объявляется примерно так:

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

Declare Function SetProperties Lib "C:\Мои документы\user\propertylib" (ByVal nPropertyID As Long, ByRef pParams As Any) As Long

однако, часть компов сидит на терминалке, и путь нужно получить через Environ.
Если же делаю:

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

Declare Function SetProperties Lib Environ("%userprofile%") & "propertylib" (ByVal nPropertyID As Long, ByRef pParams As Any) As Long

то возникает ошибка, мол:
Excepted: string constant

как можно объявить функцию с переменной окружения?

[Хакер]

Штатными средствами — никак. Но вообще это можно сделать определённым способом. Для меня это довольно простой способ. Каким он покажется тебе, не знаю.

[kibernetics]

Штатными средствами — никак. Но вообще это можно сделать определённым способом. Для меня это довольно простой способ. Каким он покажется тебе, не знаю.

Ура! Попрошу поделиться любым способом. Так мне проще будет понять насколько способ прост для меня.

[Хакер]

Способ заключается в том, чтобы вмешаться в работу msvbvm60!DllFunctionCall и там подсовывать нужную строку.

[alibek]

Указывай без пути.
А путь указывай в переменной Path (с помощью SetEnvironmentVariable).

[arthur2]

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

Option Explicit
Declare Function myFunction Lib "Test.DLL" () As Long

Function myFun() As Long'
    On Error Resume Next
    ChDrive "C:"        ' Устанавливаем нужный
    ChDir "C:\MyApp"    ' каталог текущим
    myFun = myFunction() 
    If Err.Number Then
      MsgBox "Файл Test.DLL не найден"
    Else
     'код выполнился
    End If
End Function


[Хакер]

Вообще-то последние два предложенных варианта несколько опасны.

[karlex]

А разве нельзя через LoadLibrary?

[Хакер]

Что через LoadLibrary?

По твоему вызов функции, объявленной через Declare, не использует LoadLibrary?

[karlex]

Через LoadLibrary загрузить библиотеку.
По моему как раз Declare -- абстракция, над LoadLibrary.
Просто это, вроде как, обычный способ, вот я и подумал зачем как-то извращаться.
Хотя... Вызов функции, наверно, будет затруднителен. Каюсь, поторопился.

Тогда интересно узнать подробности твоего способа.

[alibek]

Тогда интересно узнать подробности твоего способа.

Какие еще подробности нужны, кроме сказанных? Как именно перехватить вызов функции?

[karlex]

А, ну если основная сложность только в перехвате...
Понятно, пойду разбираться в перехвате, ни когда раньше не приходилось этим заниматься.

Добавлено:
Хотя, я бы не отказался от какой-нибудь информации о DllFunctionCall, например, какие параметры она принимает?
Найти ни чего не удалось, как правило информация о том, что она "тяжелая".

[arthur2]

Вообще-то последние два предложенных варианта несколько опасны.

А чем именно?

[Хакер]

Тем, что система будет в последнюю очередь искать библиотеку в местах, указанных в PATH, и во вторую очередь в текущей директории. Если она встретит другую библиотеку с аналогичным именем файла раньше, чем заглянет в текущую директорию (или в PATH), то будет ошибка. Причина которой, однако, может оказаться не такой уж очевидной.

[arthur2]

Понятно А в какой последовательности она вообще просматривает пути?

[Хакер]

Помоему в таком:

1) App.Path
2) CurDir
3) system32
4) system
5) Пути из PATH

[iGrok]

Помоему в таком:

1) App.Path
2) CurDir
3) system32
4) system
5) Пути из PATH

Там ещё есть пара нюансов, как говорит мсдн:
http://msdn.microsoft.com/en-us/library/ms682586.aspx

О. И если я правильно понял, вот это:
http://msdn.microsoft.com/en-us/library/ms686203.aspx
может помочь.