XProfan

Keywords: grenier, Memory, 64-Bit-Long
Systemspeicher durchleuchten
(sollte eigentlich aussi avec gigas zurechtkommen)
jac/wod
 $H windows.ph
struct MemEx = dwLength&,
dwMemoryLoad&,
TotalPhysLo&,TotalPhysHi&,
AvailPhysLo&,AvailPhysHi&,
TotalPageFileLo&,TotalPageFileHi&,
AvailPageFileLo&,AvailPageFileHi&,
TotalVirtualLo&,TotalVirtualHi&,
AvailVirtualLo&,AvailVirtualHi&,
AvailExtendedVirtualLo&,AvailExtendedVirtualHi&

Proc Zeige_Mem

    Paramètres anzeigetext$, groesse!
    Déclarer Typ$
    Typ$ = Bytes

    Si groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = KB

    EndIf

    Si groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = MB

    EndIf

    Si groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = GB

    EndIf

    Imprimer    ;anzeigetext$; :, Format $(#,0,groesse!), Typ$

ENDPROC

cls
declare b#, f!
Faible b#, MemEx
b#.dwLength& = SizeOf(b#)
Externe(~kernel32,GlobalMemoryStatusEx,b#)
Imprimer
Imprimer    Load:  + Str$(b#.dwMemoryLoad&) + %
f! = b#.TotalPhysHi& * 2^32 + b#.TotalPhysLo&
Zeige_Mem(TotalPhys, f!)
f! = b#.AvailPhysHi& * 2^32 + b#.AvailPhysLo&
Zeige_Mem(AvailPhys, f!)
f! = b#.TotalPageFileHi& * 2^32 + b#.TotalPageFileLo&
Zeige_Mem(TotalPageFile, f!)
f! = b#.AvailPageFileHi& * 2^32 + b#.AvailPageFileLo&
Zeige_Mem(AvailPageFile, f!)
f! = b#.TotalVirtualHi& * 2^32 + b#.TotalVirtualLo&
Zeige_Mem(TotalVirtual, f!)
f! = b#.AvailVirtualHi& * 2^32 + b#.AvailVirtualLo&
Zeige_Mem(AvailVirtual, f!)
f! = b#.AvailExtendedVirtualHi& * 2^32 + b#.AvailExtendedVirtualLo&
Zeige_Mem(AvailExtendedVirtual, f!)
Imprimer
Imprimer -Ende pour Tastendruck-
Dispose b#
waitkey
end

Def $WMISeparator = ,