有关于函数....

Question

全局变量
ShortTimeFormat
LongTimeFormat
不知是不是

Answer 1

var
        VerInfo:TOSVersionInfo;
        hToken:THANDLE;
        tkp:TOKEN_PRIVILEGES;
        Nothing:Cardinal;
begin
        VerInfo.dwOSVersionInfoSize:=SizeOf(VerInfo);
        GetVersionEx(VerInfo);
        if VerInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then
        Begin
                  OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
                  LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
                  tkp.PrivilegeCount:= 1;
                  tkp.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
                  AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil, Nothing);
          End;
          ExitWindowsEx(EWX_SHUTDOWN ,0);
//  ExitWindowsEx(EWX_REBOOT,0);重起
end;