function ChangeNTSecurityForShutdown: Boolean;
  { This func changes security rights on a WinNT machine  }
  { to give app shutdown privileges.                          }
  var
    hToken : THandle;
    tkp,
    Newt   : TTokenPrivileges;
    retlength : DWORD;
  begin
      Result := False;
      if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES +
                          TOKEN_QUERY, hToken) <> False then
        begin
           { Get the LUID for shutdown privilege }
           if LookupPrivilegeValue( nil, 'SeShutdownPrivilege',
                                    tkp.Privileges[0].Luid) = True then
             begin
               tkp.PrivilegeCount := 1;  // One to set
               tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
               { Get shutdown privilege for this process }
               Result := AdjustTokenPrivileges(hToken, False, tkp,
                                               SizeOf(TTokenPrivileges), Newt,
                                               retlength);
             end;
        end;
  end;