Der Info Button hat jetzt zwei Funktionen , zeigt wie gehabt die meist Optimalwerte und dank Koord im neun Fenster die letzte Speicherauaufteilung also nicht das was ihr grad geschoben habt , das gilt eh erst nach HR . Bild 4
; Script Opti Speicher WinCE für GoPal 5 und 6
; Interner Speicher, Aufbau und Funktionsweise
; http://www.gopal-navigator.de/wiki/index.php?title=Interner_Speicher,_Aufbau_und_Funktionsweise
Gosub, ReadPreprocs ;Sprünge zu diversen Unterprogrammen
Gosub, ReadVars
Gosub, ReadIniColors
Gosub, FormStart
ReadPreprocs:
#Persistent ;bewirkt das permanente Laufen eines Scriptes
#NoEnv ;verhindert Prüfung von leeren Variablen
#SingleInstance force ;bewirkt die Einzelinstanz eines Scriptes
#NoTrayIcon ;Verhindert das Ercheinen des Tools im Tray(Trayicon)
Return ;Rücksprung aus der Routine
ReadVars:
AppName = Opit-Speicher
Version = 1.0
Language = DE
inipfad = %A_WorkingDir%\%AppName%.ini
sourcefolder = k10memory.lua
erste = 0
infobutton = 0
IfExist, \Windows
sourcefolder = \My Flash Disk\Navigation\menu\init.d\
Return
ReadIniColors:
StringMid, lastLUA, lastLUA0, 0 ,3
Return
FormStart:
SendMode Input
SetBatchLines, -1
zusatz1 = *1024
Loop, Read, %sourcefolder%k10memory.lua
{
If InStr(A_LoopReadLine, "local OBJECTSTORE_FREESIZE = ")
{
indexzeile = %A_LoopReadLine%
StringRight, indexzeile, indexzeile, 9
StringLeft, indexzeile, indexzeile, 3
Gui, Add, Text, x19 y8 w260 h15 Left top -wrap vFREESIZE,local OBJECTSTORE FREESIZE = %indexzeile%%zusatz1%
}
}
zusatz2 = *1024*1024
Loop, Read, %sourcefolder%k10memory.lua
{
If InStr(A_LoopReadLine, "local OBJECTSTORE_MAXSIZE = ")
{
indexzeile2 = %A_LoopReadLine%
StringRight, indexzeile2, indexzeile2, 12
StringLeft, indexzeile2, indexzeile2, 1
Gui, Add, Text, x18 y85 w260 h15 Left top -wrap vFREESIZE2,local OBJECTSTORE MAXSIZE = %indexzeile2%%zusatz2%
}
}
Gui +LastFound -MinimizeBox ;+AlwaysOnTop
Gui, font, s9, Arial
Gui, Add, Slider , x20 y23 w250 vmySlider1 gSlideAction1 NoTicks Range155-768, %indexzeile%
Gui, Add, Slider , x20 y100 w250 vmySlider2 gSlideAction2 NoTicks Range3-8, %indexzeile2%
Gui, Add, Text, x20 y47 w275 h15 Left top -wrap ,128er 64er Original
Gui, Add, Text, x12 y125 w275 h15 Left top -wrap ,Original 8
Gui, Add, Button, x275 y145 w25 h15 vInfo gInfo -wrap ,Info
Gui, Submit, NoHide
Gui, Show, x0 y0 w300 h160, Opti Speicher
FileGetSize, FileSize, %sourcefolder%k10memory.lua ; Ermittelt die Größe in Bytes.
if FileSize > 783
{
MsgBox,Es befindet sich nicht die richtige`nk10memory.lua im Ordner init.d !
ExitApp
}
return
SlideAction1:
erste = 1
Gui Submit, NoHide
indexzeile0 := MySlider1
GuiControl, , FREESIZE, local OBJECTSTORE FREESIZE = %indexzeile0%%zusatz1%
GoSub, Save
Return
SlideAction2:
erste = 2
Gui Submit, NoHide
indexzeile3 := MySlider2
GuiControl, , FREESIZE2, local OBJECTSTORE MAXSIZE = %indexzeile3%%zusatz2%
GoSub, Save
Return
Save:
zusatz1 = *1024
Loop, Read, %sourcefolder%k10memory.lua
{
If InStr(A_LoopReadLine, "local OBJECTSTORE_FREESIZE = ")
{
indexzeile = %A_LoopReadLine%
StringRight, indexzeile, indexzeile, 9
StringLeft, indexzeile, indexzeile, 3
}
}
zusatz2 = *1024*1024
Loop, Read, %sourcefolder%k10memory.lua
{
If InStr(A_LoopReadLine, "local OBJECTSTORE_MAXSIZE = ")
{
indexzeile2 = %A_LoopReadLine%
StringRight, indexzeile2, indexzeile2, 12
StringLeft, indexzeile2, indexzeile2, 1
}
}
if erste = 1
{
FileRead, Inhalt, %sourcefolder%k10memory.lua
DateiInhalt :=RegExReplace(Inhalt, indexzeile, indexzeile0)
FileDelete, %sourcefolder%k10memory.lua
FileAppend, %DateiInhalt%, %sourcefolder%k10memory.lua
}
If erste = 2
{
FileRead, Inhalt2, %sourcefolder%k10memory.lua
DateiInhalt2 :=RegExReplace(Inhalt2," "indexzeile2, " "indexzeile3)
FileDelete, %sourcefolder%k10memory.lua
FileAppend, %DateiInhalt2%, %sourcefolder%k10memory.lua
}
return
Info:
if infobutton = 1
{
infobutton = 0
}
Else
infobutton = 1
if infobutton = 0
{
Gui, Show, x0 y0 w300 h160, Opti Speicher
}
if infobutton = 1
{
Gui, Show, x0 y0 w300 h160,128er=155 64er=160 ist meistens Optimal
}
IfNotExist, \My Flash Disk\programme\koord465.exe
MsgBox,Tool koord465.exe im Ordner`n\My Flash Disk\programme`nnicht gefunden!
Else
run, \My Flash Disk\programme\koord465.exe "window=0 SetMem=0"
return
GuiClose:
if erste > 0
{
MsgBox, 4132, Speichern Ende, Datei wurde gespeichert.`nTool beenden ?, 2
IfMsgBox No
return
}
ExitApp
Alles anzeigen
