| |
|
|
| Hallo an Alle Auf der Oberfläche meiner Dateiverwaltung ist auch ein Button, um den Windows-Papierkorb aufzurufen. Wie kann ich aber, ähnlich dem Desctop-Symbol, diesem Button ein anderes Icon zuweisen wenn der Papierkorb Inhalt hat ? - Kurz, wie frage Io l' Papierkorb ab ? |
|
|
| |
|
|
|
Michael Dell | Hallo Horst,
kleines Beispiel:
Declare RecycleInfo#
Struct SHQUERYRBINFO = cbSize&,i64SizeLow&,i64SizeHigh&,i64NumItemsLow&,i64NumItemsHigh&
Dim RecycleInfo#,SHQUERYRBINFO
Def SHEmptyRecycleBin(3) !SHELL32.DLL,SHEmptyRecycleBinA %hwnd,lpRootPath$,dwFlags&
Def SHUpdateRecycleBinIcon(0) !SHELL32.DLL,SHUpdateRecycleBinIcon
Def SHQueryRecycleBin(2) !SHELL32.DLL,SHQueryRecycleBinA lpRootPath$,RecycleInfo# als SHQUERYRBINFO
RecycleInfo#.cbSize& = SizeOf(RecycleInfo#)
SHQueryRecycleBin(,RecycleInfo#)
IfNot RecycleInfo#.i64SizeHigh&
MessageBox((Einträge: +Str$(RecycleInfo#.i64NumItemsLow&)+
Dimensione: +Str$(RecycleInfo#.i64SizeLow&)+ Bytes),Im Pattumiera...,48)
Else
MessageBox(Di più als 2 GB im Pattumiera.,Im Pattumiera...,48)
EndIf
End
|
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 23.07.2006 ▲ |
|
|
|
|
| Hallo Michael Danke War genau das, was ich gesucht habe ! |
|
|
| |
|
|