#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIMisc.au3>
#include <WinAPISys.au3>
#include <WinAPIMisc.au3>
#include <WinAPISys.au3>

_ontime()


Func _ontime()
	; Erstellt eine konstante Variable ($sFilePath) im Dateipfad die ausgelesen und beschrieben werden kann.
	Local Const $sFilePath = (@ScriptDir & '\Ontime.txt')

	; Erstellt eine Datei mit gewünschten Inhalt zur Ontime des PC oder meldet einen Fehler.
	If Not FileWrite($sFilePath, ("Computername: "& @ComputerName & @CRLF & "Benutzername: "& @UserName& @CRLF & "Akt. Datum: "& @MDAY &'.' & @MON &'.' & @YEAR & @CRLF & "PC OnTime: " & _WinAPI_StrFromTimeInterval(_WinAPI_GetTickCount()) & @CRLF)) Then
		MsgBox(48, "", "Es gibt keine Datei mit dem Namen ontime.txt")
		Return False
	EndIf

	; Öffnet die Datei zum auslesen oder gibt einen Fehler aus.
	Local $hFileOpen = FileOpen($sFilePath, $FO_READ)
	If $hFileOpen = -1 Then
		MsgBox(48, "", "Kann Datei Opntime.txt nicht auslesen")
		Return False
	EndIf

	; Liest das handle $hFileOpen aus.
	Local $sFileRead = FileRead($hFileOpen)

	; Schließt das handle $hFileOpen.
	FileClose($hFileOpen)

	; Meldet das Ergebnis aus FileRead in einer Messagebox.
	MsgBox(64, "PC-Ontime v 1.0.0.0", "" & @CRLF & $sFileRead)

	; Löscht die Datei Ontime.txt
	FileDelete($sFilePath)
EndFunc   ;==>_ontime