1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:

Wie kann ich den Dateieigenschaften-Dialog anzeigen lassen? 

Lösung:

Folgenden Code in ein neues Modul kopieren.

Public Declare Function GetDesktopWindow _
    Lib "user32" () As Long
Public Declare Function ShellExecuteEX _
    Lib "shell32.dll" Alias "ShellExecuteEx" ( _
    lpShellExInfo As tShellExInfo) As Long
Public Type tShellExInfo
    cbSize           As Long
    fMask            As Long
    hwnd             As Long
    lpVerb           As String
    lpFile           As String
    lpParameters     As String
    lpDirectory      As String
    nShow            As Long
    hInstApp         As Long
    lpIDList         As Long
    lpClass          As String
    hkeyClass        As Long
    dwHotKey         As Long
    hIcon            As Long
    hProcess         As Long
End Type

Public Const SEE_MASK_INVOKEIDLIST = &HC
Public Const SEE_MASK_NOCLOSEPROCESS = &H40
Public Const SEE_MASK_FLAG_NO_UI = &H400

Public Function ShowShellObjectInfo( _
    ByVal sObjName As String, _
    Optional ByVal lngHWnd As Long = 0) As Long
    Dim typShellExInfo As tShellExInfo
    Dim lngRet As Long
    With typShellExInfo
        .cbSize = Len(typShellExInfo)
        .fMask = SEE_MASK_NOCLOSEPROCESS Or _
            SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
        .hwnd = IIf(lngHWnd = 0, GetDesktopWindow, lngHWnd)
        .lpVerb = "properties"
        .lpFile = sObjName
        .lpParameters = vbNullChar
        .lpDirectory = vbNullChar
        .nShow = 0
        .hInstApp = 0
        .lpIDList = 0
    End With
    lngRet = ShellExecuteEX(typShellExInfo)
    If Not (typShellExInfo.hInstApp > 32) Then
        ShowShellObjectInfo = -1
        Exit Function
    End If
    ShowShellObjectInfo = 0
End Function

Aufruf z.B.:

ShowShellObjectInfo "D:\users\Daten\Vorlagen\Handkassenbeleg.doc"

Ergebnis:


Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

Neueste Artikel

Problemstellung: Ab MS-Office 2010 gibt es eine 32bit und eine 64bit Variante.Übernimmt man nun eine Datenbank nach 64bit und diese enthält API-Declare Anweisungenerhlt min in der Regel diese...
1.png2.png0.png4.png4.png6.png5.png
Heute102
Gestern127
Diese Woche510
Dieser Monat1889
Total1204465

  • IP: 54.80.83.123
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

20. September 2018

Letzte Kommentare

  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...