| |
| |
|
 | 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 ich den 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&)+
Größe: +Str$(RecycleInfo#.i64SizeLow&)+ Bytes),Im Mülleimer...,48)
Else
MessageBox(Mehr als 2 GB im Mülleimer.,Im Mülleimer...,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 !  |
|
| |
| |
| |
|
(186)
Deutsch
English
Français
Español
Italia