,, kan fastsætte de vinduer, dato og tidspunkt,.,, forfatter ukendt.,,,, tostype = (os95, os98, ososr2, osnt4, os2k);,,, procedure setdatetime (ddatetime: tdatetime);,, var, dsystime: tsystemtime;,, buffer: dword;,, tkp, tpko: ttokenprivileges;,, htoken: thandle,,,,,,,,, hvis isosnt begynder, så begynder, hvis ikke openprocesstoken (getcurrentprocess(),,, token_adjust_privileges eller token_query,,, htoken) så udgang;,, lookupprivilegevalue (- 0, se_systemtime_name,,, tkp. privilegier [0]. luid);,, tkp.privilegecount: = 1;,, tkp. privilegier [0]. attributter: = se_privilege_enabled;,, hvis ikke adjusttokenprivileges (htoken, falske tkp,,,størrelse (tkp), tpko, buffer) og gå,,,,,, datetimetosystemtime (ddatetime, dsystime), windows. setlocaltime (dsystime);,,,,, funktion isosnt: boolean,,, var,, os: tosversioninfo;,, begynder, zeromemory (@ os, størrelse (os), os.dwosversioninfosize: = 7 (os), getversionex (os), resultat: = os.dwplatformid = ver_platform_win32_nt,,,,,,, funktion isos95: boolean,,, var,, os: tosversioninfo;,, begynder, zeromemory (@ os, 7 (os), os.dwosversioninfosize: = 7 (os), getversionex (os), resultat: = (os.dwmajorversion > = 4) og (os.dwminorversion = 0), og (os.dwplatformid = ver_platform_win32_windows);,,,,,, funktion isos98: boolean;,, var,, OS: TOSVersionInfo;,, begin,, ZeroMemory(@OS, SizeOf(OS));,, OS.dwOSVersionInfoSize := SizeOf(OS);,, GetVersionEx(OS);,, result := (OS.dwMajorVersion >= 4) and (OS.dwMinorVersion > 0),, and (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);,, end;,,, function IsOSOSR2: boolean;,, var,, OS: TOSVersionInfo;,, begin,, ZeroMemory(@OS, SizeOf(OS));,, OS.dwOSVersionInfoSize := SizeOf(OS);,, GetVersionEx(OS);,, result := (OS.dwMajorVersion >= 4) and (OS.dwMinorVersion = 0),, and (lo(OS.dwBuildNumber) > 1000) and,, (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);,, end;,,, function IsOS2000: boolean;,, var,, OS: TOSVersionInfo;,, begin,, ZeroMemory(@OS, SizeOf(OS));,, OS.dwOSVersioninfosize: = 7 (os), getversionex (os), resultat: = (os.dwmajorversion > = 5) og (os.dwplatformid = ver_platform_win32_nt);,,,,,, funktion getostype: tostype;, begynder, hvis isosnt så begynde, hvis isos2000 så, resultat: = os2k,,,, resultat: = osnt4,,,,, andre, hvis isos95 så, resultat: = os95, og andre, hvis isos98 så, resultat: = os98, og andre, hvis isososr2 så, resultat: = ososr2,,,,,