XProfan

- Página 2 -

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 ^ ^

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

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

- Página 3 -

Gary12345

Vielen Dank!

XProfan X2
MfG
Gary12345

Kompilieren Marca Separación

Gary12345

Window %MaxX*0.1,%Maxy*0.1-%MaxX*0.3,%MaxX*0.3
WindowTitle "Updatechecker"
WindowStyle 31
declare Ende&,Diskgröße&,Memstat#,IEVers$,Skype$,FireFox$,FlashPlayer$, Opera$,OperaVersion$,Chrome$,ChromeVersion$,datei1$

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 MemoryStatus

    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$("#####0.# MB total zur Verfügung stehender Arbeitsspeicher",(TotalMem!) / 1024^2)
    Print Format$("#####0.# MB momentan zur Verfügung stehender Arbeitsspeicher",(AvailMem!) / 1024^2)
    Print Format$("#####0.# MB benutzter Arbeitsspeicher",(TotalMem!-AvailMem!) / 1024^2)
    Print Format$("#####0.# MB Auslagerungsdatei total",PageFileMem! / 1024^2)
    Print Format$("#####0.# MB Auslagerungsdatei frei",APageFileMem! / 1024^2)
    Print Format$("#####0.# MB Auslagerungsdatei benutzt",(PageFileMem!-APageFileMem!) / 1024^2)
    Print Format$("#####0 % benutzter Speicher",(Memory#.dwMemoryLoad&))

EndProc

'###################################################
'Updatestatus ermitteln
Set("Errorlevel", -1)
IEVers$ = ReadINI$("HKEY_2","SOFTWARE\Microsoft\Internet Explorer","Version")
Skype$ = ReadINI$("HKEY_1","Software\Skype\Phone\UI","StatsSentVersion")
FireFox$ = ReadINI$("HKEY_2","Software\Mozilla\Mozilla Firefox", "CurrentVersion")
FlashPlayer$ = ReadIni$("HKEY_2","SOFTWARE\Macromedia\FlashPlayer","CurrentVersion")
Opera$ = ReadINI$("HKEY_1","Software\Opera Software","Last Install Path") + "opera.exe"
OperaVersion$ = Resource.HoleResourceInfo(Opera$, "ProductVersion")
Chrome$ = ReadIni$("HKEY_1","SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome","InstallLocation") + "\Chrome.exe"
ChromeVersion$ = Resource.HoleResourceInfo(Chrome$, "ProductVersion")
Set("Errorlevel", 0)
datei1$=$TempDir + "Updatestatus.txt"
'#################################
'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"
'################################
'################################
'Erstellung des Fensters
CLS rgb(150,250,350)
var button1&=CREATE("Button",%HWND,"Updatestatus ermitteln",110,10,190,50):CREATE("Tooltip",%HWND,button1&,"Ermittelt den zurzeitigen Updatestatus")
var button2&=CREATE("Button",%HWND,"Festplattenstatus ermitteln",110,80,190,50):CREATE("Tooltip",%HWND,button2&,"Ermittelt den aktuellen Festplatten- und Arbeitsspeicherstatus")
var button3&=CREATE("Button",%HWND,"AutoStartLister",110,150,190,50):CREATE("Tooltip",%HWND,button3&,"Listet alle vorhandenen Autostarts auf")
var button4&=CREATE("Button",%HWND,"Aktuelle Updates",110,220,190,50):CREATE("Tooltip",%HWND,button4&,"Zeigt Dir die aktuellen Updates")
var button5&=CREATE("Button",%HWND,"Schließen",110,290,190,50):CREATE("Tooltip",%HWND,button5&,"Beendet das Programm")
Memorystatus

Whilenot Ende&=1

    WaitInput

    If clicked(button1&)

        If FileExists(datei1$)

            Assign #1, datei1$
            Rewrite #1
            Print #1, "Test"
            Close #1
            ShellExec(datei1$,"open",1)

        Else

            print %Error
            MESSAGEBOX("Datei nicht vorhanden oder beschädigt!","Error X0002",0)
            Ende&=1

        EndIf

    EndIf

    If clicked(button5&) OR MenuItem(108)

        MESSAGEBOX("Das Programm wird jetzt beendet","INFO",0)
        Ende&=1

    f='./../../funktionsreferenzen/XProfan/endif/'>EndIf

EndWhile

So - kommt en euch auch Fehlermeldung si ihr button1& anklicken wollt? Wenn sí, por qué? Yo glaub mein Hirn arbeitet a dieser Tiempo nit mehr ya que debería

MfG
Gary12345

E.T.

...Wenn sí, por qué?...

... na porque du lo así programmiert hast

XProfan X2
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...

Gary12345

Fehler ya längst gefunden. Bin ahora viel más. Jetzt kommt el schwierigste Part.

XProfan X2
MfG
Gary12345

19.02.2013 ▲