|
Einige Eigenschaften-Dialoge von Shell-Objekten können Sie auch per Code zur Anzeige bringen. So auch den Dialog zur Einstellung der Eigenschaften des Papierkorbs (bzw. der Papierkörbe aller Laufwerke).
Die Anweisung zur Anzeige geben Sie über die API-Funktion ShellExecute mit der Kennung "properties" als so genanntem "Verb" und der systemeigenen GUID-Kennung des Papierkorbs.
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub RecycleBinProperties()
ShellExecute 0, "properties", _
"::{645FF040-5081-101B-9F08-00AA002F954E}", vbNullString, _
vbNullString, vbNormalFocus
End Sub
|