| |
|
|
| Hello on any on the surface of my Dateiverwaltung is too one Button, around the windows-wastebasket aufzurufen. How can I but, similar the Desctop-symbol, this Button one other Icon allocate if the wastebasket Content has ? - concise, How question I the wastebasket ex ? |
|
|
| |
|
|
|
Michael Dell | Hello Horst,
small example:
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# as SHQUERYRBINFO
RecycleInfo#.cbSize& = SizeOf(RecycleInfo#)
SHQueryRecycleBin(,RecycleInfo#)
Ifnot RecycleInfo#.i64SizeHigh&
MessageBox((Entries: +Str $(RecycleInfo#.i64NumItemsLow&)+
Size: +Str $(RecycleInfo#.i64SizeLow&)+ Bytes),in the Trashcan...,48)
Else
MessageBox(More as 2 GB in the Trashcan.,in the Trashcan...,48)
EndIf
End
|
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 07/23/06 ▲ |
|
|
|
|
| Hello Michael thanks was very the, I sought have ! |
|
|
| |
|
|