(2.316)  Login

English
Forum

DWordLong from a API deal

 
- Page 1 -



Jac
de
Lad
white someone, How I best one DWORDLONG in a area definiere and read can (then sure best as 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
01/02/09  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



 
- Page 1 -



Jac
de
Lad
No even not! Global memory status comes not 8GB clear, therefore Gibts Yes Global memory statusEx!
 
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
01/02/09  ▲
 




Michael
Wodrich
Geb still times the fountain on, where You the structure since have...
 
Programmieren, das spannendste Detektivspiel der Welt.
01/02/09  ▲
 



 
- Page 2 -



Michael
Wodrich
...and standing there too
Nimm Global memory status(MemoryStatusEx) ???

or

Nimm GlobalMemoryStatusEx(MemoryStatusEx) ???
 
Programmieren, das spannendste Detektivspiel der Welt.
01/02/09  ▲
 




Jac
de
Lad
Stümmt you're right, GlobalMemoryEx(). though comes then always 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
01/02/09  ▲
 




Michael
Wodrich
look you my last code again on.
supreme structure lane, The 2. again enable.
then with the the f! try (and the slow on GB annähern).
If you The Ex Funk aufrufst ought to it now klappen, otherwise again your korrigiertes shred post.
 
Programmieren, das spannendste Detektivspiel der Welt.
01/03/09  ▲
 




Jac
de
Lad

CompileMarkSeparation
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

with Global memory status comes 65.535, with the Ex-function 0. I must for today Schluss make.

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
01/03/09  ▲
 




Michael
Wodrich
so runs it by me....
CompileMarkSeparation
 {$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.
01/03/09  ▲
 




Michael
Wodrich
The Längenangabe the structure must to the appeal staid his.
 
Programmieren, das spannendste Detektivspiel der Welt.
01/03/09  ▲
 




Michael
Wodrich
there fight I for it, and it gives simply on...

...and the so short to the target.

Best wishes (and a good night)
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
01/03/09  ▲
 




Jac
de
Lad
Yes, is correct, the was me really deliberate, the Have I only overlooking. nevertheless supply me the then 4GB RAM in lieu of of 8. others programs (to that example so one part in the Sidebar) supplying but the korrekte Result).

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
01/03/09  ▲
 




Michael
Wodrich
mine shows unfortunately only 511 MB.

with sooo gewaltigen numbers can I unfortunately not mitreden (and accordingly neither review).

Best wishes
Michael Wodrich

P.s.: Habs time vervollständigt
CompileMarkSeparation
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.
01/03/09  ▲
 




Jac
de
Lad
nevertheless many Thanks. (here come too only 8189MB on, but it knows Yes eachone what meant is. this is How with my 3 Terabyte-tiles, The each only 931GB having, what kind of cheat!).

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
01/03/09  ▲
 



◄
12

Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

9.856 Views

Untitledvor 0 min.
awabso09/08/15
ByteAttack09/04/15
Julian Schmidt09/22/13
dr.dirk09/02/13

Themeninformationen

this Topic has 3 subscriber:

Michael Wodrich (11x)
Jac de Lad (10x)
iF (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie