/**************************************************************** ** ** ** Name: ** ** Author: ** ** Description: ** ** ** ****************************************************************/ @APPAUTHOR "" @APPCOPYRIGHT "" @APPDESCRIPTION "" @APPTITLE "" @APPVERSION "$VER: 1.0 (1.1.2000)" @VERSION 2,0 @DISPLAY {Width = 400, Height = 250, Title = "Systemwatch"} ; add your source code here ;;; "source code" SetFont("times.font",18) D=GetDateNum(#DATEDAY) DM=GetDateNum(#DATEMONTH) DT=GetDateNum(#DATETIME) DY=GetDateNum(#DATEYEAR) time$=GetTime() date$=GetDate() day$=GetWeekday() NPrint ("Heutiges Datum:", D,".", DM ,".", DY) NPrint ("Heute ist ein:", day$) NPrint ("Systemzeit:", time$, "Uhr") t = GetVersion() If t.platform = "Win32" Then Error("Windows benutzt man doch nicht Oo xD !") NPrint ("Betriebssystem:", t.platform) chip=GetMemoryInfo(#CHIPMEMORY) fast=GetMemoryInfo(#FASTMEMORY) chip=Int(chip/1000) chip=Int(chip/1024) fast=Int(fast/1000) fast=Int(fast/1024) NPrint("Chipram:", chip, "MB") NPrint("Fastram:", fast, "MB") name$=GetVolumeName("sys:") space=GetVolumeInfo(name$ ,#FREESPACE) space=int(space/1000) space=int(space/1024) space2=GetVolumeInfo(name$ ,#USEDSPACE) space2=int(space2/1000) space2=int(space2/1024) NPrint(name$, space, "freier Speicher auf SYS:!") NPrint(name$, space2, "belegter Speicher auf SYS:!") ;;; ;;; "main loop" Repeat WaitEvent Forever ;;;