| |
| |
|
| - Page 1 - |
|
Michael
Wodrich |
Keywords: Speicher, Memory, 64-Bit-Long
Systemspeicher durchleuchten
(sollte eigentlich auch mit 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
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
end
|
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 03.01.2009 ▲ |
|
| |
|
|
| |
| |
| - Page 3 - |
|
Jac
de
Lad | @Horst:
Jo, das hatte ich falsch gelesen. Habs dir auch nicht übel genommen, weil ich da wirklich eher hätte drauf kommen können. 
Es klappt wunderbar und zeigt sogar korrekt den Unterschied zwischen physikalischem und totalem Arbeitsspeicher aus. |
|
| |
| 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 | 04.01.2009 ▲ |
|
| |
|
|
Jac
de
Lad | Funktioniert leider nicht unter Windows 7.  |
|
| |
| 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 | 21.01.2009 ▲ |
|
| |
|
|
E.T. | Jac
Funktioniert leider nicht unter Windows 7.
Meinst Du jetzt das Prog von Andreas ??
Also bei mir (auf einem nicht überdimensionierten Monstrum) laufen bis jetzt alle Profan- und XProfan-Programme unter Windows 7 
[offtopic](ob pur oder per XPSE verwurstelt(ist ja auch nix anderes, nur das XPSE etwas umstrukturiert)).[/offtopic] |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 21.01.2009 ▲ |
|
| |
|
|
Jac
de
Lad | | Hm, stimmt, das potuto gehen. Ich hatte es etwas komprimiert in Gamsav eingebaut, und dort stürzte es immer ab. Ich probier nochmal das Original. |
|
| |
| 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 | 22.01.2009 ▲ |
|
| |
|
|
 | @Jac
In Auf 1 Blick corre der Code unter Windows-7 - Nur hatte ich in die Versionserkennung 7 noch nicht eingebaut.
Siehe in dem passenden Thread den Screenshot von E.T. |
|
| |
| |
| |
|
|
Jac
de
Lad | | Das witzige ist, ich hab der virtuellen Maschine unter Windows 7 nur 2GB RAM zugewiesen... |
|
| |
| 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 | 22.01.2009 ▲ |
|
| |
|
|
| Jac
Das witzige ist, ich hab der virtuellen Maschine unter Windows 7 nur 2GB RAM zugewiesen...
Warum bist Du denn so geizig ? - Deine Monstermaschine hat doch genug !  |
|
| |
| |
| |
|
|
E.T. | @JAC: Siehste, ich hab Win-7 als volles BS laufen, auswählbar circa Bootmenü.
Als ich VISTA noch virt. laufen hatte, gabs auch immer Probleme, welche bei einem realem System nicht da waren. Darum bin ich dabei, mich von den virt. Maschinen zu verabschieden und lieber einmal mehr neu zu starten, dann aber das BS richtig am laufen zu haben. Bei Win-7 hab ich virtuell auch nie die 64-bit richtig zum laufen bekommen... 
EDIT: Warum müssen denn XProfan-Progs noch komprimiert werden ?? Sind doch klein genug...
und während der Entwicklung würde ich auf solche Spielerein sowieso verzichten. |
|
| |
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 22.01.2009 ▲ |
|
| |
|
|
Jac
de
Lad | @Horst: Weil ich nicht nur eine sondern mehrere gleichzeitig laufen lasse. Außerdem habe ich die Auslagerungsdatei abgeschaltet, weil das Performanz bringt.
@E.T.: Die 64er-Beta corre bei mir einwandfrei, aber ich will nicht immer neustarten, weil ich dann gar nicht mehr zurande kommen würde wegen jeder neuen Zeile neuzustarten.
Mit Komprimieren meinte ich, dass ich das Quelltextl so modifziert habe, dass nur der verfügbare und der gesamte Speicher ausgelesen wird. Hab alles dafür unnötige entfernt.
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 | 23.01.2009 ▲ |
|
| |
|
|
KHR | Hallo Miteinander,
habe jetzt die letzte version ausprobiert. Leider zeigt sie auf meinem Notebook (Dell) zwar die Werte per den RAM richtig an, aber die Auslagerungsdatei wird nicht richtig gezeigt.
Eingestellt habe ich zum ausprobieren jeweils 500MB, 1000MB, 1024MB, 2000MB 2048MB fest.
Die Anzeige war aber immer die selbe -> siehe Bildchen
. |
|
| |
| Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan | 14.06.2009 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
| |
| |
| - Page 4 - |
|
(787)
Deutsch
English
Français
Español
Italia
