vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Windows/System22.03.05
GetModuleFileName-Funktion

Diese Funktion ermittelt den Pfad einer geladenen Anwendung, DLL, OCX oder anderen startbaren Datei anhand eines Instanz- oder Modulhandles.

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  13.235 

Deklaration:

Declare Function GetModuleFileName Lib "kernel32" _
  Alias "GetModuleFileNameA" ( _
  ByVal hModule As Long, _
  ByVal lpFileName As String, _
   ByVal nSize As Long) As Long

Beschreibung:
Diese Funktion ermittelt den Pfad einer geladenen Anwendung, DLL, OCX oder anderen startbaren Datei anhandeines Instanz- oder Modulhandles.

Parameter:
hModuleErwartet das Instanz- oder Modulhandle der geladenen Datei.
lpFileNameErwartet einen String-Puffer, der mit genügend Leerzeichen vorinitialisiert ist, um den Dateipfad zu erhalten.
nSizeErwartet die Größe des Puffers in Bytes.

Rückgabewert:
Ist die Funktion erfolgreich, so wird die Anzahl der in den Puffer kopierten Zeichen zurückgegeben, andernfalls derWert "0". Für erweiterte Fehlerinformationen können Sie die GetLastError-Funktion aufrufen.

Beispiel:

Private Declare Function GetModuleFileName Lib "kernel32" _
  Alias "GetModuleFileNameA" ( _
  ByVal hModule As Long, _
  ByVal lpFileName As String, _
   ByVal nSize As Long) As Long
Private Declare Function PostMessage Lib "user32" _
  Alias "PostMessageA"  ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
 
' eine der Standard Fensternachrichten
Private Const WM_CLOSE = &H10 ' Fenster schließen
' Anwendungspfad ermitteln
Private Sub Form_Load()
    Dim Retval As Long, ExePath As String * 128
 
    ' Exepfad ermitteln und ausgeben
    Retval = GetModuleFileName(hInst, ExePath, Len(ExePath))
    MsgBox Left$(ExePath, Retval), , "Anwendungspfad"
 
    ' Programm beenden
    Call PostMessage(Me.hwnd, WM_CLOSE, 0&, ByVal 0&)
End Sub

Diese Seite wurde bereits 13.235 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel