THOMAS HÖLZER SPEICHERINFO W32


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

Von Klaus Sebald am 26 April, 1998 um 13:23:15:

HALLO LEUTE
Thomas Hölzer hat einmal weiter unten im ProfanBoard einen Code
für Speicherinformationen unter W32 abgelegt und gefragt ob denn
nicht jemand Lust hätte einen Dialog daraus zu basteln.
Bei der Anzeige des Virtuellen Speicher's steht MB aber ob das richtig ist??
Thomas vieleicht kannst Du ja für Aufklärung sorgen,da ich nicht ermitteln konnte
um was für einen Speichertyp es sich handelt.
Hier nun ist mein Vorschlag:


proc ShowMemoryStatus
declare _ende%
declare _dlg%
declare ende%
declare info%
declare MemStat#

SetErrorlevel 0 'muß wegen Round sein

DEF GlobalMemoryStatus(1)\
!"KERNEL32","GlobalMemoryStatus"
DEF Mbyte%(1)Int(Round(Div(@&(1)),$100000)))

Dim MemStat#,32
Long MemStat#,0=32
GlobalMemoryStatus(memStat#)

let _dlg%=@createdialog(%Hwnd,"Speicherinfo\
Win32",56,68,504,404)
let ende%=@createbutton(_dlg%,"ok",376,40,72,24)
let info%=@createbutton(_dlg%,"Info",376,80,72,24)

@creategroupbox(_dlg%,"",8,32,320,80)
@creategroupbox(_dlg%,"",8,122,320,80)
@creategroupbox(_dlg%,"",8,212,320,80)
@creategroupbox(_dlg%,"",80,304,280,40)

@createtext(_dlg%,add$("gesamt\
physikalischerSpeicher\ MB",Str$(Mbyte%(Long(memStat#,8)),10,54,310,16)
@createtext(_dlg%,add$("freier\ physikalischerSpeicher MB = ",\ Str$(Mbyte%(Long(memStat#,12)),10,84,310,16)
@createtext(_dlg%,add$("maximale größe\
Swapdatei MB = ",\ Str$(Mbyte%(Long(memStat#,16)),10,142,310,16)
@createtext(_dlg%,add$("max.freie größe \ Swapdatei MB = ",\ Str$(Mbyte%(Long(memStat#,20)),10,172,310,16)
@createtext(_dlg%,add$("max.virtuell.Speicher für\ Prozess MB =\ ",Str$(Mbyte%(Long(memStat#,24)),10,232,310,16)
@createtext(_dlg%,add$("frei virtuell.Speicher für\ Prozess MB = ",\ Str$(Mbyte%(Long(memStat#,28)),10,262,310,16)
@createtext(_dlg%,add$("Speicher ist zu\ ",add$(Str$(Long(memStat#,4) ,add$("%", "\ ausgelastet"))),115,324,220,16)
@createicon(_dlg%,"A",8,5)
@createicon(_dlg%,"A",460,5)
@createicon(_dlg%,"A",8,340)
@createicon(_dlg%,"A",460,340)
let _ende% = 0
whilenot _ende%
waitinput
if @equ(%key,2)
let _ende% = 1
elseif @getfocus(ende%)
let _ende% = 1
elseif @getfocus(info%)
messagebox("Idee und Technik von Thomas\ Hölzer\nGrafik von Klaus Sebald\nApril\ 1998","Speicherinfo W32",0)
endif
wend
@destroywindow(_dlg%)
Dispose MemStat#
SetErrorLevel 1
endproc


cls

ShowMemoryStatus
waitinput
end




Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]