auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Papierkorb komplett leeren

Papierkorb komplett leeren via SHEmptyRecycleBin, SHUpdateRecycleBinIcon
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
(ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long
Private Sub Form_Load()
Dim x
x = MsgBox("Papierkorb leeren?", vbQuestion + vbYesNo, "Papierkorb leeren?")
If x = 6 Then
'mit Abfrage des Systems:
'SHEmptyRecycleBin Me.hwnd, vbNullString, 0
'ohne Abfrage des Systems:
'SHEmptyRecycleBin Me.hwnd, vbNullString, &H1
'ohne Fortschrittsbalken:
'SHEmptyRecycleBin Me.hwnd, vbNullString, &H2
'ohne Soundeffekt
'SHEmptyRecycleBin Me.hwnd, vbNullString, &H4
'Kombination: ohne Abfrage, ohne Fortschrittsbalken und ohne Soundeffekt
SHEmptyRecycleBin Me.hwnd, vbNullString, &H1 + &H2 + &H4
'das Papierkorb-Symbol wird auf "geleert" zurückgesetzt
SHUpdateRecycleBinIcon
End If
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt