VB6 .dll 获取调用应用程序路径 [英] VB6 .dll get calling application path

问题描述

我正在从 VB6 制作一个 .dll.我需要知道将使用该 .dll 的应用程序的路径，但我不知道如何直接从 .dll 执行此操作.有人知道如何执行此操作吗?>

提前致谢

解决方案

这似乎可以作为 DLL 工作:

选项显式Private Const API_NULL As Long = 0私有声明函数 GetCurrentProcess Lib "kernel32" () As Long私有声明函数 GetModuleHandle Lib "kernel32" _别名GetModuleHandleA"(_ByVal lpModuleName As Long) As Long私有声明函数 GetModuleBaseName Lib "psapi" _别名GetModuleBaseNameA"(_ByVal hProcess As Long, _ByVal hModule As Long, _ByVal BaseName As String, _ByVal nSize As Long) As Long私有声明函数 GetModuleFileNameEx Lib "psapi" _别名GetModuleFileNameExA"(_ByVal hProcess As Long, _ByVal hModule As Long, _ByVal FileName As String, _ByVal nSize As Long) As Long公共函数 ExeBaseName() 作为字符串昏暗的尺寸一样长ExeBaseName = Space$(256)大小 = GetModuleBaseName(GetCurrentProcess(), _GetModuleHandle(API_NULL), _执行库名​​称，_256)ExeBaseName = Left$(ExeBaseName, Size)结束函数公共函数 ExeFileName() 作为字符串昏暗的尺寸一样长ExeFileName = Space$(256)大小 = GetModuleFileNameEx(GetCurrentProcess(), _GetModuleHandle(API_NULL), _exe文件名，_256)ExeFileName = Left$(ExeFileName, Size)结束函数

调用适当的方法获取主程序的基本名称或完整文件名.

I'm making a .dll from VB6. I need to know the path of the application that will use that .dll, but I can't figure out how to do this directly from the .dll.. Anyone know how to do that?

Thank you in advance

解决方案

Well this seems to work as a DLL:

Option Explicit

Private Const API_NULL As Long = 0

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Declare Function GetModuleHandle Lib "kernel32" _
    Alias "GetModuleHandleA" ( _
    ByVal lpModuleName As Long) As Long

Private Declare Function GetModuleBaseName Lib "psapi" _
    Alias "GetModuleBaseNameA" ( _
    ByVal hProcess As Long, _
    ByVal hModule As Long, _
    ByVal BaseName As String, _
    ByVal nSize As Long) As Long

Private Declare Function GetModuleFileNameEx Lib "psapi" _
    Alias "GetModuleFileNameExA" ( _
    ByVal hProcess As Long, _
    ByVal hModule As Long, _
    ByVal FileName As String, _
    ByVal nSize As Long) As Long

Public Function ExeBaseName() As String
    Dim Size As Long

    ExeBaseName = Space$(256)
    Size = GetModuleBaseName(GetCurrentProcess(), _
                             GetModuleHandle(API_NULL), _
                             ExeBaseName, _
                             256)
    ExeBaseName = Left$(ExeBaseName, Size)
End Function

Public Function ExeFileName() As String
    Dim Size As Long

    ExeFileName = Space$(256)
    Size = GetModuleFileNameEx(GetCurrentProcess(), _
                               GetModuleHandle(API_NULL), _
                               ExeFileName, _
                               256)
    ExeFileName = Left$(ExeFileName, Size)
End Function

Calling the appropriate method gets the base name or full file name of the main program.

这篇关于VB6 .dll 获取调用应用程序路径的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！