| |
| |
|
Jac
de
Lad | sais quelqu'un, comment je am besten un DWORDLONG dans einem Bereich definiere et auslesen peux (ensuite sûrement am besten comme 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 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
|
Jac
de
Lad | und dir ici um DWords. qui sommes im Prinzip déjà assez 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 | 02.01.2009 ▲ |
|
| |
|
|
Michael
Wodrich | |
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 02.01.2009 ▲ |
|
| |
|
|
Michael
Wodrich | Huch, naturellement strickt on sich aus qui Struktur seulement une variable...  |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 02.01.2009 ▲ |
|
| |
|
|
Jac
de
Lad | Hm, jo, je glaub cela isses...juste la fois essayer.  |
|
| |
| 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 ▲ |
|
| |
|
|
Jac
de
Lad | Irgendwie encore pas entier:
KompilierenMarqueSéparation {$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
Gibt chez mir toujours rund -4GB négative aus. Dabei habe je 8GB positiv incorporé. |
|
| |
| 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 ▲ |
|
| |
|
|
Michael
Wodrich | bien sûr, siehe meinen Code.
seulement dans une Float magasin.
Str$() peux aus qui Formel pas erkennen, qui Du volontiers une Float daraus erstellen vouloir. |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 02.01.2009 ▲ |
|
| |
|
|
Jac
de
Lad |
KompilierenMarqueSéparationstruct 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 | 02.01.2009 ▲ | |
|
| |
|
|
Michael
Wodrich | Seufz.
KompilierenMarqueSéparation {$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. | 02.01.2009 ▲ |
|
| |
|
|
Jac
de
Lad | | non plan pas! GlobalMemoryStatus venez pas avec 8GB bien sûr, deswegen gibts oui 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 ▲ |
|
| |
|
|
Michael
Wodrich | | Geb doch fois le source à, wohin Du qui Struktur her la hâte... |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 02.01.2009 ▲ |
|
| |
|
(2.317)
Deutsch
English
Français
Español
Italia