, hoe de ramen, de datum en het tijdstip van de auteur is onbekend.,,.,,,, tostype = (os95, os98, ososr2, osnt4, os2k);,,, programma 's setdatetime (ddatetime:TDateTime);,, var, dsystime:tsystemtime;,,,, dword buffer: operatie, tpko:ttokenprivileges; htoken:;,,,,,, het handvat, als isosnt dan beginnen, als het niet OpenProcessToken (getcurrentprocess (),,,,, token_adjust_privileges of token_query, htoken) en uit de;,, lookupprivilegevalue (nul se_systemtime_name ",",,, TKP. Voorrechten [0]. -,,); tkp.privilegecount:= 1;,, TKP. Voorrechten [0]. De eigenschap: = se_privilege_enabled;,, als niet adjusttokenprivileges (htoken, valse, kiwi kauwgom,,,Een groot (TKP), tpko buffer), en de uitgang;,,,, aan het einde van datetimetosystemtime; (ddatetime, dsystime);,, raam, het opzetten van plaatselijke tijd (dsystime);,,,,,,, isosnt: functies; var, OS:tosversioninfo;,,,, zeromemory (@ os, groot (OS)); os.dwosversioninfosize:= groot (OS),,,,,,, getversionex (OS); de resultaten van os.dwplatformid: = = ver_platform_win32_nt;,,,,, aan het einde van de functie: Bull. Isos95;,, var, tosversioninfo:;,,,, zeromemory (@ os, groot (OS)); en os.dwosversioninfosize:= groot (OS);,,,,, getversionex (OS); de resultaten: = (os.dwmajorversion > = 4) en (os.dwminorversion = 0),,,, (os.dwplatformid = ver_platform_win32_windows);,,,,, aan het einde van de functie van isos98;,, V: Bull.Ar,,, ik TOSVersionInfo:;,,, ZeroMemory (@OS, SizeOf (OS);,, OS.dwOSVersionInfoSize: = SizeOf (OS); getversionex (OS);,,, en het resultaat: = (OS.dwMajorVersion > = 4) en (OS.dwMinorVersion > 0), en (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS); einde;,,,,,,, en IsOSOSR2: booleaanse; var,,, ik TOSVersionInfo:;,,, ZeroMemory (@OS, SizeOf (OS);,, OS.dwOSVersionInfoSize: = SizeOf (OS); getversionex (OS);,,, en het resultaat: = (OS.dwMajorVersion > = 4) en (OS.dwMinorVersion = 0), en (LO (OS.dwBuildNumber) > 1000) en,, (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);,,,,,,,,, en IsOS2000: booleaanse; var,,, ik TOSVersionInfo:;,,, ZeroMemory (@OS, SizeOf (OS)); en OS.dwOSVersioNinfosize:= groot (OS);,,,, getversionex (OS); de resultaten: = (os.dwmajorversion > = 5), en (os.dwplatformid = ver_platform_win32_nt);,,,,, aan het einde van de functie van getostype;: tostype;,,,, als isosnt dan beginnen, als isos2000 en Resultaten: = os2k, andere resultaten: = osnt4;,,,,,, als isos95 en resultaten: = os95, als isos98 en resultaten: = os98, als isososr2 en resultaten: = ososr2;,,, aan het einde van;