SHAddToRecentDocs-Funktion Diese Funktion löscht alle Einträge des "Dokumente"-Eintrags im Startmenü oder fügt einen hinzu.
Betriebssystem:  Win95, Win98, WinNT 4.0, Win2000, WinME	Views:  334

Deklaration:

Declare Sub SHAddToRecentDocs Lib "shell32.dll" ( _
  ByVal uFlags As Long, _
   ByVal pv As Any)

Beschreibung:
Diese Funktion löscht alle Einträge des "Dokumente"-Eintrags im Startmenü oder fügt einen hinzu.

Parameter:

uFlags	Erwartet eine der "uFlags"-Konstanten die beschreiben, ob ein Eintraghinzugefügt oder gelöscht werden soll. Außerdem setzen die Konstanten fest, ob der übergebene Dateiname ein String oder vom Typ ITEMIDLIST-Struktur ist.
pv	Erwartet einen String oder eine ITEMIDLIST-Strukturder / die mit dem Dateinamen gefüllt ist. Eine der "uFlags"-Konstanten legt dieArt des zu übergebenen Formates fest.

uFlags Konstanten:

Const DELETE_RECENTDOCS = 0
' Löscht die Dokumente
 
Const SHARD_PIDL = 1
' Die übergebene Datei ist eine ITEMIDLIST-Struktur
 
Const SHARD_PATH = 2
' Die übergebene Datei ist ein Dateipfad vom Typ String

Rückgabewert:
keine

Beispiel:

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" ( _
  ByVal uFlags As Long, _
  ByVal pv As Any)
 
' SHAddToRecentDocs uFlags-Konstanten
Private Const DELETE_RECENTDOCS = 0 ' Löscht die Dokumente
Private Const SHARD_PIDL = 1 ' Die übergebene Datei ist eine 'ITEMIDLIST-Struktur 
Private Const SHARD_PATH = 2 ' Die übergebene Datei ist ein Dateipfad vom Typ String

' Eine Datei in die Dokumentenliste einfügen
Private Sub Command1_Click()
  Call SHAddToRecentDocs(SHARD_PATH, "c:\windows\media\tada.wav")
End Sub

' Dokumentenliste löschen
Private Sub Command2_Click()
  Call SHAddToRecentDocs(DELETE_RECENTDOCS, 0&)
End Sub