XProfan

Español

Jac
de
Lad

Weiß alguien, Yo al besten una DWORDLONG en un Zona definiere y auslesen kann (entonces sicher al besten como Float)?

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

02.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Jac
de
Lad

Nein eben no! GlobalMemoryStatus kommt no con 8GB klar, deswegen gibts sí GlobalMemoryStatusEx!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

02.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Geb doch veces el Quelle a, wo Usted el Struktur her hast...

Programmieren, das spannendste Detektivspiel der Welt.

02.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Michael
Wodrich

...y es como auch
Tomar GlobalMemoryStatus(MemoryStatusEx) ???

oder

Tomar GlobalMemoryStatusEx(MemoryStatusEx) ???

Programmieren, das spannendste Detektivspiel der Welt.

02.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Stümmt du hast bastante, GlobalMemoryEx(). Aunque kommt entonces siempre 0.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

02.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Schau Usted media letzten Code otra vez a.
Oberste Struktur weg, el 2. otra vez aktivieren.
Dann el con el f! probieren (y el langsam a GB annähern).
Si usted el Ex Funk aufrufst debería lo ahora klappen, sonst otra vez Su korrigiertes Schnipsel puesto.

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Kompilieren Marca Separación

struct Memory=dwLength&,dwMemoryLoad&,dwTotalPhys&,dwAvailPhys&,dwTotalPageFile&,dwAvailPageFile&,dwTotalVirtual&,dwAvailVirtual&
struct Memory=dwLength&,dwMemoryLoad&,PhysLo&,PhysHi&,ullAvailPhys#(8),ullTotalPageFile#(8),ullAvailPageFile#(8),ullTotalVirtual#(8),ullAvailVirtual#(8),ullAvailExtendedVirtual#(8)
struct Memory=dwLength&,dwMemoryLoad&,ullTotalPhys#(8),ullAvailPhys#(8),ullTotalPageFile#(8),ullAvailPageFile#(8),ullTotalVirtual#(8),ullAvailVirtual#(8),ullAvailExtendedVirtual#(8)
cls
declare b#
declare f!
Dim b#,Memory
GlobalMemoryStatusEx(b#)
b#.dwLength&=SizeOf(b#)
Print Load: +Str$(b#.dwMemoryLoad&)
f! = b#.PhysHi& * 2^16 + b#.PhysLo&
Print TotalPhys: +Format$(#,0,f!)+ Bytes
Print TotalPhys: +Format$(#,0,b#.dwTotalPhys&/1024)+ KB
Print TotalPhys: +Format$(#,0,b#.dwTotalPhys&/(1024^2))+ MB
Print TotalPhys: +Format$(#,0,b#.dwTotalPhys&/(1024^3))+ GB
Print -Ende-
Dispose b#
waitinput
end

Mit GlobalMemoryStatus kommt 65.535, con el Ex-Función 0. Yo muss para heute Schluss hacer.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

So se ejecuta lo en me....
Kompilieren Marca Separación

 {$iq}
 $H f:profanincludewindows.ph
 $H f:profanincludestructs.ph
struct Memory=dwLength&,dwMemoryLoad&,PhysLo&,PhysHi&,ullAvailPhys#(8),ullTotalPageFile#(8),ullAvailPageFile#(8),ullTotalVirtual#(8),ullAvailVirtual#(8),ullAvailExtendedVirtual#(8)
MEMORYSTATUS = dwLength&,dwMemoryLoad&,dwTotalPhys&,dwAvailPhys&,dwTotalPageFile&,dwAvailPageFile&,dwTotalVirtual&,dwAvailVirtual&;
struct MemEx = dwLength&,
dwMemoryLoad&,
TotalPhysLo&,TotalPhysHi&,
AvailPhysLo&,AvailPhysHi&,
TotalPageFileLo&,TotalPageFileHi&,
AvailPageFileLo&,AvailPageFileHi&,
TotalVirtualLo&,TotalVirtualHi&,
AvailVirtualLo&,AvailVirtualHi&,
AvailExtendedVirtualLo&,AvailExtendedVirtualHi&
cls
declare b#
declare f!
Dim b#,MemEx
b#.dwLength&=SizeOf(b#)
External(~kernel32,GlobalMemoryStatusEx,b#)
Print Load: +Str$(b#.dwMemoryLoad&)
f! = b#.TotalPhysHi& * 2^32 + b#.TotalPhysLo&
Print TotalPhys: +Format$(#,0,f!)+ Bytes
Print TotalPhys: +Format$(#,0,f!/1024)+ KB
Print TotalPhys: +Format$(#,0,f!/(1024^2))+ MB
Print TotalPhys: +Format$(#,0,f!/(1024^3))+ GB
Print -Ende-
Dispose b#
waitinput
end

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

El Längenangabe el Struktur muß antes el Aufruf gesetzt ser.

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Como kämpfe Yo para ihn, y él son simplemente...

...y el así kurz antes el Ziel.

Schöne Grüße (y una gute Nacht)
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Sí, stimmt, el war me eigentlich bewusst, el tener Yo sólo übersehen. Trotzdem liefert me entonces 4GB RAM anstelle de 8. Andere Programas (para Ejemplo así una Teil en el Sidebar) liefern aber el korrekte Ergebnis).

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Meins zeigt desafortunadamente sólo 511 MB.

En sooo gewaltigen Pagar kann Yo por desgracia, no mitreden (y demzufolge auch no nachprüfen).

Schöne Grüße

Michael Wodrich

P.S.: Habs veces vervollständigt
Kompilieren Marca Separación

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

Proc Zeige_Mem

    Parameters anzeigetext$, groesse!
    Declare Typ$
    Typ$ = Bytes

    If groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = KB

    EndIf

    If groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = MB

    EndIf

    If groesse! > 1024

        groesse! = groesse! / 1024
        Typ$ = GB

    EndIf

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

EndProc

cls
declare b#, f!
Dim b#, MemEx
b#.dwLength& = SizeOf(b#)
External(~kernel32,GlobalMemoryStatusEx,b#)
Print
Print    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!)
Print
Print -Ende nach Tastendruck-
Dispose b#
waitkey<

class=s4 href='./../../references-fonction/XProfan/end/'>end

Programmieren, das spannendste Detektivspiel der Welt.

03.01.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Trotzdem vielen Dank. (Hier kommen auch sólo 8189MB a, pero weiß sí cada qué gemeint es. Es como con media 3 Terabyte-Platten, el jeweils sólo 931GB haben, qué para una Betrug!).

Jac