| |
| |
|
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 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
|
Jac
de
Lad | It's all right here circa DWords. The are in the principle already quite long.  |
|
| |
| 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 | |
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 01/02/09 ▲ |
|
| |
|
|
Michael
Wodrich | Huch, naturally knit one itself from the structure first a variable...  |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 01/02/09 ▲ |
|
| |
|
|
Jac
de
Lad | Hm, jo, I mean the isses...same time try.  |
|
| |
| 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 ▲ |
|
| |
|
|
Jac
de
Lad | somehow not yet integrally:
CompileMarkSeparation {$iq}
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#
Dim b#,Memory
GlobalMemoryStatus(b#)
b#.dwLength&=SizeOf(b#)
Print Load: +Str$(b#.dwMemoryLoad&)
Print TotalPhys: +Str$(b#.PhysHi& * 2^32 + b#.PhysLo&)
Print -Ende-
Dispose b#
wut
gives by me always round -4GB negative from. thereby have I 8GB positively installed. |
|
| |
| 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 | clear, see my code.
first in a Float loading.
Str$() can from the Formel not discern, that You gladly a Float from it create want. |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 01/02/09 ▲ |
|
| |
|
|
Jac
de
Lad |
CompileMarkSeparationstruct Memory=dwLength&,dwMemoryLoad&,PhysLo&,PhysHi&,AvailLo&,AvailHi&,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#
Dim b#,Memory
GlobalMemoryStatus(b#)
b#.dwLength&=SizeOf(b#)
Print Load: +Str$(b#.dwMemoryLoad&)
Print TotalPhys: +Str$(b#.PhysHi& * 2^32 + b#.PhysLo&)
declare p1!,p2!
p1!=b#.AvailHi& * 2^32
p2!=b#.AvailLo&
Print AvailPhys: +Str$(p1! + p2!)
Print -Ende-
Dispose b#
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 | Seufz.
CompileMarkSeparation {$iq}
$H f:profanincludewindows.ph
$H f:profanincludestructs.ph
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
~GlobalMemoryStatus(b#)
b#.dwLength&=SizeOf(b#)
Print Load: +Str$(b#.dwMemoryLoad&)
f! = b#.PhysHi& * 2^16 + b#.PhysLo&
Print TotalPhys: +Format$(#,0,b#.dwTotalPhys&)+ 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
Das da sind aber keine longlong, sondern einfache LONG
typedef struct _MEMORYSTATUS {// mst
DWORD dwLength;// sizeof(MEMORYSTATUS)
DWORD dwMemoryLoad;// percent of memory in use
DWORD dwTotalPhys;// bytes of physical memory
DWORD dwAvailPhys;// free physical memory bytes
DWORD dwTotalPageFile;// bytes of paging file
DWORD dwAvailPageFile;// free bytes of paging file
DWORD dwTotalVirtual;// user bytes of address space
DWORD dwAvailVirtual;// free user bytes
} MEMORYSTATUS, *LPMEMORYSTATUS;
|
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 01/02/09 ▲ |
|
| |
|
|
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 ▲ |
|
| |
|
(5.516)
Deutsch
English
Français
Español
Italia