vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v2.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2014
 
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:  6.068 

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 6.068 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2014 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