Datum/Uhrzeit

Kann 2, 2016 Admin Computer 0 1
FONT SIZE:
fontsize_dec
fontsize_inc

Wie Sie das Datum und die Uhrzeit von Windows festgelegt.

Urheber unbekannt.

Art

TOSType = (os95, os98, osOSR2, osNT4, os2K);



Verfahren SetDateTime (dDateTime: TDateTime);

var

dSysTime: TSystemTime;

Puffer: DWORD;

TKP, tpko: TTokenPrivileges;

hToken: THandle;



Start

dann, wenn IsOSNT

Start

wenn nicht Open (GetCurrentProcess ()

TOKEN_ADJUST_PRIVILEGES oder TOKEN_QUERY,

hToken), dann Ausfahrt;

LookupPrivilegeValue (nil, 'SE_SYSTEMTIME_NAME',

tkp.Privileges [0] .Luid);

tkp.PrivilegeCount: = 1;

tkp.Privileges [0] .Attributes: = SE_PRIVILEGE_ENABLED;

wenn nicht AdjustTokenPrivileges (hToken, FALSCH, TKP,

sizeof (TKP), tpko, Puffer) dann beenden;

Ende;

DateTimeToSystemTime (dDateTime, dSysTime);

Windows.SetLocalTime (dSysTime);

Ende



IsOSNT Funktion: boolean;

var

OS: TOSVersionInfo;

Start

Zeromemory (OS, sizeof (OS));

OS.dwOSVersionInfoSize: = sizeof (OS);

GetVersionEx (OS);

Ergebnis: = OS.dwPlatformId = VER_PLATFORM_WIN32_NT;

Ende;



IsOS95 Funktion: boolean;

var

OS: TOSVersionInfo;

Start

Zeromemory (OS, sizeof (OS));

OS.dwOSVersionInfoSize: = sizeof (OS);

GetVersionEx (OS);

Ergebnis: = (OS.dwMajorVersion> = 4) und (OS.dwMinorVersion = 0)

und (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);

Ende;



IsOS98 Funktion: boolean;

var

OS: TOSVersionInfo;

Start

Zeromemory (OS, sizeof (OS));

OS.dwOSVersionInfoSize: = sizeof (OS);

GetVersionEx (OS);

Ergebnis: = (OS.dwMajorVersion> = 4) und (OS.dwMinorVersion> 0)

und (OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);

Ende;



arbeiten IsOSOSR2: boolean;

var

OS: TOSVersionInfo;

Start

Zeromemory (OS, sizeof (OS));

OS.dwOSVersionInfoSize: = sizeof (OS);

GetVersionEx (OS);

Ergebnis: = (OS.dwMajorVersion> = 4) und (OS.dwMinorVersion = 0)

und (lo (OS.dwBuildNumber)> 1000) und

(OS.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);

Ende;



IsOS2000 Funktion: boolean;

var

OS: TOSVersionInfo;

Start

Zeromemory (OS, sizeof (OS));

OS.dwOSVersionInfoSize: = sizeof (OS);

GetVersionEx (OS);

Ergebnis: = (OS.dwMajorVersion> = 5) und

(OS.dwPlatformId = VER_PLATFORM_WIN32_NT);

Ende;



Funktion GetOSType: TOSType;

Start

dann, wenn IsOSNT

Start

dann, wenn IsOS2000

Ergebnis: = os2K

andere

Ergebnis: = osNT4;

Ende

else if IsOS95 dann

Ergebnis: = os95

else if IsOS98 dann

Ergebnis: = os98

else if IsOSOSR2 dann

Ergebnis: = osOSR2;

Ende;

(0)
(0)
Nächster Artikel Wie hübsch aussehen

Kommentare - 0

Keine Kommentare

Fügen Sie einen Kommentar

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Zeichen übrig: 3000
captcha