vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
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.795 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

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

    nach obenzurück
     
       

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