XProfan

- Page 2 -

Gary12345

Compile Mark Separation

Window %MaxX*0.1,%Maxy*0.1-%MaxX*0.3,%MaxX*0.3
WindowTitle "Updatechecker"
WindowStyle 31
declare Ende&,Diskgröße&,Memstat#

Proc DiskGroeße

    Parameters Laufwerkbuchstabe$'String
    set("decimals",2)
    Diskgröße&=DiskSize(Laufwerkbuchstabe$)/(1024*1024*1024)

    If Diskgröße&=0

        MESSAGEBOX("Laufwerk nicht vorhanden oder nicht lesbar!","Error X0001",0)'Error X0001= Laufwerk nicht vorhanden oder nicht lesbar!

    Else

        Return ROUND(Diskgröße&,3)

    EndIf

EndProc

Proc ShowMemoryStatus

    Def GlobalMemoryStatus(1) !"KERNEL32","GlobalMemoryStatus"
    Def Mbyte(1) Round(1/$0100000,0)
    Dim MemStat#,32
    Long MemStat#,0=32
    GlobalMemoryStatus(MemStat#)
    Print Str$(Long(MemStat#,4))+"% Speicherauslastung"
    Print MByte(Long(MemStat#,8))+"MB gesamter physik. Speicher"
    Print MByte(Long(MemStat#,12))+"MB physik. Speicher frei"
    Print MByte(Long(MemStat#,16))+"MB max. Größe der Swapdatei"
    Print MByte(Long(MemStat#,20 ))+"MB max. in Swapdatei belegbar"
    Print MByte(Long(MemStat#,24))+"MB max. virtueller Speicher für Prozess"
    Print MByte(Long(MemStat#,28))+"MB max. virtueller Speicher für Prozess aktuell verfügbar"
    Dispose MemStat#

EndProc

'#################################
'APPENDMENU
PopUp "&Programm"
AppendMenu 101, "Updatestatus ermitteln"
AppendMenu 102, "Festplattenstatus ermitteln"
AppendMenu 103, "AutoStartLister"
AppendMenu 104, "Aktuelle Updates"
PopUp "&Sonstiges"
SubPopUp "Sonstiges"
AppendMenu 105, "Über den Autor"
AppendMenu 106, "Über das Programm"
AppendMenu 107, "Spende"
EndSub
AppendMenu 108, "Beenden"
'################################
print DiskGroeße("C:\\")
ShowMemoryStatus

Whilenot Ende&=1

/../function-references/XProfan/endwhile/'>EndWhile

goes the with jemandem? by me supply it everywhere 0MB from?

XProfan X2
MfG
Gary12345

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

by me comes this out:

20130218-1839-47781.png	5 kB

Hochgeladen:	02/18/13

Downloadcounter:
		Download

Gary12345

but these 0MB are still not normal? or is there what wrong?

XProfan X2
MfG
Gary12345

Julian
Schmidt

shining somehow with x64 and x86 zusammenzuhängen.
Looks time [...]

. too The comments reading.

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Gary12345

the means, that it on 64bit systems with max. 4GB runs or only on 32bit systems? be the english with my 15 not übermächtig, bwohl I komischerweise a english Training have xD

Win XP 32bit with 2GB Ram goes neither.

MfG
Gary12345

Julian
Schmidt

hmmm...are here still a couple in of my Alterklasse on the way. be 16. :O :O
Should sowohl on 64bit-Systemen with less or. same 4 GB RAM or 32bit-Systemen funzen, as long as The fountain is correct ^^

Gary12345

32bit working not. 64bit have I none Testpc there,there my PC More as 4GB Ram has

. the Comic is Yes, I of/ one the few be, the itself only for Malware interested and there too a Training power.(and too only against Malware Tools write wants - 0 interest for Games - ok sometimes zocke I time FIfa, but not often) If you Problems have, kannste you always report

. now but back to that serious the thing, wat goes there schief?

MfG
Gary12345

Julian
Schmidt

Habs time quick in Ner VM probiert. WinXP x86 with 3300MB Ram.

On my computer with Win8 x64 with 16GB Ram come too only 0MB.

screen.jpg	36 kB

Hochgeladen:	02/18/13

Downloadcounter:
		Download

Gary12345

unsure API. gives it there a secure Solution?

couple hints of known get:
64 bit = GlobalMemoryStatusEx
32bit = ?

MfG
Gary12345

Julian
Schmidt

standing into supra geposteten Link in PseudoCode

if comp64 then begin
GlobalMemoryStatusex
....
end
else begin
Global memory status
....
end;

Gary12345

everything plenty To tricky. will be it time pass so leave.

XProfan X2
MfG
Gary12345

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

If I time barge must.

The Error appeal of Global memory status or GlobalMemoryStatusEx lying in the Strukturgrösse. here go partly 64bit-Integer expects. The Strukturgrösse is correct means not überberein. here time one altes Bespiel, the shows as correctly. goes, alike how much main memory installs is, 32-bit or 64-bit Betriebssystem.
Compile Mark Separation

Struct MEMORYSTATUSEX = \
dwLength&,\
dwMemoryLoad&,\
ullTotalPhysLow&,\
ullTotalPhysHi&,\
ullAvailPhysLow&,\
ullAvailPhysHi&,\
ullTotalPageFileLow&,\
ullTotalPageFileHi&,\
ullAvailPageFileLow&,\
ullAvailPageFileHi&,\
ullTotalVirtualLow&,\
ullTotalVirtualHi&,\
ullAvailVirtualLow&,\
ullAvailVirtualHi&,\
ullAvailExtendedVirtualLow&,\
ullAvailExtendedVirtualHi&
Var Memory# = New(MEMORYSTATUSEX)
Memory#.dwLength& = SizeOf(Memory#)
External("Kernel32.dll","GlobalMemoryStatusEx",Memory#)
Var TotalMem! = 0
Var AvailMem! = 0
Var PagefileMem! = 0
Var APagefileMem! = 0
cls
Totalmem! = Memory#.ullTotalPhysLow&
case Memory#.ullTotalPhysLow& < 0: TotalMem! =  Memory#.ullTotalPhysLow& + (2^32)
TotalMem! = (Memory#.ullTotalPhysHi& * (2^32)) + TotalMem!
Availmem! = Memory#.ullAvailPhysLow&
case Memory#.ullAvailPhysLow& < 0: AvailMem! =  Memory#.ullAvailPhysLow& + (2^32)
AvailMem! = (Memory#.ullAvailPhysHi& * (2^32)) + AvailMem!
PagefileMem! = Memory#.ullTotalPageFileLow&
case Memory#.ullTotalPageFileLow& < 0: PageFileMem! =  Memory#.ullTotalPageFileLow& + (2^32)
PageFileMem! = (Memory#.ullTotalPageFileHi& * (2^32)) + PageFileMem!
APagefileMem! = Memory#.ullAvailPageFileLow&
case Memory#.ullAvailPageFileLow& < 0: APageFileMem! =  Memory#.ullAvailPageFileLow& + (2^32)
APageFileMem! = (Memory#.ullAvailPageFileHi& * (2^32)) + APageFileMem!
Print Format$("#####.00 MB total zur Verfügung stehender Arbeitsspeicher",(TotalMem!) / 1024^2)
Print Format$("#####.00 MB momentan zur Verfügung stehender Arbeitsspeicher",(AvailMem!) / 1024^2)
Print Format$("#####.00 MB benutzter Arbeitsspeicher",(TotalMem!-AvailMem!) / 1024^2)
Print Format$("#####.00 MB Auslagerungsdatei total",PageFileMem! / 1024^2)
Print Format$("#####.00 MB Auslagerungsdatei frei",APageFileMem! / 1024^2)
Print Format$("#####.00 MB Auslagerungsdatei benutzt",(PageFileMem!-APageFileMem!) / 1024^2)
Print Format$("##### % benutzter Speicher",(Memory#.dwMemoryLoad&))
Waitinput
end

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]