| |
| |
|
 | ¡Hola a Alle
Auf el Oberfläche meiner Dateiverwaltung es auch una Button, en el Windows-Papierkorb aufzurufen. ¿Cómo se puede Yo aber, ähnlich el Desctop-Symbol, diesem Button una más Icon zuweisen si la Papierkorb Inhalt ha ? - Kurz, como frage Yo, el Papierkorb de ? |
|
| |
| |
| |
|
|
Michael
Dell | ¡Hola Horst,
kleines Ejemplo:
Declarar 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# como SHQUERYRBINFO
RecycleInfo#.cbSize& = SizeOf(RecycleInfo#)
SHQueryRecycleBin(,RecycleInfo#)
Caso negativo RecycleInfo#.i64SizeHigh&
MessageBox((Einträge: +Str$(RecycleInfo#.i64NumItemsLow&)+
Größe: +Str$(RecycleInfo#.i64SizeLow&)+ Bytes),Im Basura...,48)
Más
MessageBox(Más como 2 GB en el Basura.,Im Basura...,48)
EndIf
End
|
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 23.07.2006 ▲ |
|
| |
|
|
| ¡Hola Michael
Gracias  War genau el, Yo gesucht habe !  |
|
| |
| |
| |
|
(1.075)
Deutsch
English
Français
Español
Italia