XProfan

Kompilieren Marca Separación

- Página 2 -

Gary12345

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

Geht en el jemandem? En me liefert lo überall 0MB de?

XProfan X2
MfG
Gary12345

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

En me kommt dies fuera:

20130218-1839-47781.png	5 kB

Hochgeladen:	18.02.2013

Ladeanzahl:
		Descargar

Gary12345

Aber esta 0MB son doch no normal? Oder es como qué falso?

XProfan X2
MfG
Gary12345

Julian
Schmidt

Scheint irgendwie con x64 y x86 zusammenzuhängen.
Schaut veces [...]

. Auch el Kommentare lesen.

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

Gary12345

Das bedeutet, dass lo en 64bit Systeme con max. 4GB se ejecuta oder sólo en 32bit systeme? Bin el Englischen con media 15 no übermächtig, bwohl Yo komischerweise una englische Ausbildung habe xD

Win XP 32bit con 2GB Ram va auch no.

MfG
Gary12345

Julian
Schmidt

hmmm...son hier todavía unos pocos en meiner Alterklasse unterwegs. Bin 16. :O :O
Müsste sowohl en 64Bit-Systemen con weniger o. igual 4 GB RAM oder 32Bit-Systemen funzen, solange el Quelle stimmt ^ ^

Gary12345

32bit funzt no. 64bit Yo no Testpc como,como mein PC más que 4GB Ram ha

. Das Komische es sí, dass Yo uno el wenigen bin, el se sólo para Malware interessiert y como auch una Ausbildung macht.(Und auch sólo gegen Malware Tools escribir voluntad - 0 Interesse para Juegos - ok sometimes zocke Yo veces FIfa, pero no oft) Si usted Problemas hast, kannste Usted siempre informe

. Nun aber zurück para Ernst el Sache, wat va como erróneo?

MfG
Gary12345

Julian
Schmidt

Habs veces rápidamente en ner VM probiert. WinXP x86 con 3300MB Ram.

Auf media Rechner con Win8 x64 con 16GB Ram kommen auch sólo 0MB.

screen.jpg	36 kB

Hochgeladen:	18.02.2013

Ladeanzahl:
		Descargar

Gary12345

Unsichere API. Gibt lo como una sichere Solución?

Paar Tips de Bekannten bekommen:
64 bit = GlobalMemoryStatusEx
32bit = ?

MfG
Gary12345

Julian
Schmidt

Steht en el oben geposteten Link en PseudoCode

if comp64 then begin
GlobalMemoryStatusex
....
end
más begin
GlobalMemoryStatus
....
end;

Gary12345

Alles viel a kompliziert. Werde lo veces vorübergehen así belassen.

XProfan X2
MfG
Gary12345

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Wenn Yo mich veces einmischen darf.

Der Fehler beim Aufruf de GlobalMemoryStatus oder GlobalMemoryStatusEx liegt en el Strukturgrösse. Hier voluntad teilweise 64Bit-Integer esperado. El Strukturgrösse stimmt also no überberein. Hier veces una altes Bespiel, el zeigt como correcto va, egal wieviel Arbeitsspeicher installiert es, 32-Bit oder 64-Bit Betriebssystem.
Kompilieren Marca Separación

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 : [...]