Rubrik: Verschiedenes / Sonstiges | VB-Versionen: VB6 | 19.10.09 |
Anwendung ermitteln, die die eigene DLL aufgerufen hat Dieser Tipp zeigt, wie man ermitteln kann, von welcher Anwendung heraus die eigene DLL aufgerufen wurde. | ||
Autor: Dieter Otter | Bewertung: | Views: 8.281 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Heute zeigen wir, wie man den Pfad der Anwendung ermittelt, die die eigene DLL (ActiveX-DLL) aufgerufen hat.
Hierzu nachfolgenden Code in die ActiveX-DLL einfügen:
' benötigte API-Deklaration Private Declare Function GetModuleFileName Lib "kernel32" _ Alias "GetModuleFileNameA" ( _ ByVal hModule As Long, _ ByVal lpFileName As String, _ ByVal nSize As Long) As Long
' Gibt den Pfad der aufrufenden EXE zurück Private Function GetAppPath() As String Dim nResult As Long Dim sName As String sName = Space$(255) nResult = GetModuleFileName(0, sName, Len(sName)) If nResult > 0 Then sName = UCase$(Left$(sName, nResult)) End If GetAppPath = sName End Function