Datenaustausch

; Skript 1  -- fragt Werte von Skript 2 ab

Global $pathData = '..PFAD\exchange.ini'  ; einfachste Form, da Auslesefunktionen existieren
Global $fNewData = False
Global $TimeCode = @HOUR & @MIN & @SEC & @MSEC

AdlibRegister('_Check')

; Code

; Mainloop
While 1
    If $fNewData Then
        $fNewData = False
        ; Daten auslesen mit IniRead($pathData, ...)
    EndIf
    ;  other Code
WEnd

Func _Check()
    Local $FileTimeCode = IniRead($pathData, 'check', 'timecode', '')
    If $FileTimeCode <> '' And $FileTimeCode <> $TimeCode Then
        $TimeCode = $FileTimeCode
        $fNewData = True
    EndIf
EndFunc

; ------------------------------------------------



; Skript 2  -- setzt Werte für Skript 1

Global $pathData = '..PFAD\exchange.ini'

; Code
; ....
; erst die Daten setzen
IniWrite($pathData, 'data', 'irgendwas_1', 'wert')
IniWrite($pathData, 'data', 'irgendwas_2', 'wert')
; und dann den Timecode
IniWrite($pathData, 'check', 'timecode', @HOUR & @MIN & @SEC & @MSEC)

; ------------------------------------------------