📄 security.pas
字号:
{******************************************************************}
{ }
{ Borland Delphi Runtime Library }
{ Security interface unit }
{ }
{ Portions created by Microsoft are }
{ Copyright (C) 1995-1999 Microsoft Corporation. }
{ All Rights Reserved. }
{ }
{ The original file is: security.h, released June 2000. }
{ The original Pascal code is: Security.pas, released Dec 2000 }
{ The initial developer of the Pascal code is Marcel van Brakel }
{ (brakelm@bart.nl). }
{ }
{ Portions created by Marcel van Brakel are }
{ Copyright (C) 1999 Marcel van Brakel. }
{ }
{ Obtained through: }
{ Joint Endeavour of Delphi Innovators (Project JEDI) }
{ }
{ You may retrieve the latest version of this file at the Project }
{ JEDI home page, located at http://delphi-jedi.org }
{ }
{ The contents of this file are used with permission, subject to }
{ the Mozilla Public License Version 1.1 (the "License"); you may }
{ not use this file except in compliance with the License. You may }
{ obtain a copy of the License at }
{ http://www.mozilla.org/MPL/MPL-1.1.html }
{ }
{ Software distributed under the License is distributed on an }
{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or }
{ implied. See the License for the specific language governing }
{ rights and limitations under the License. }
{ }
{******************************************************************}
unit Security;
{$WEAKPACKAGEUNIT}
{$HPPEMIT ''}
{$HPPEMIT '#include "security.h"'}
{$HPPEMIT ''}
{$I WINDEFINES.INC}
interface
// This file will go out and pull in all the header files that you need,
// based on defines that you issue. The following macros are used.
//
// SECURITY_KERNEL Use the kernel interface, not the usermode
//
//
// These are name that can be used to refer to the builtin packages
//
const
NTLMSP_NAME_A = 'NTLM';
{$EXTERNALSYM NTLMSP_NAME_A}
NTLMSP_NAME = WideString('NTLM');
{$EXTERNALSYM NTLMSP_NAME}
MICROSOFT_KERBEROS_NAME_A = 'Kerberos';
{$EXTERNALSYM MICROSOFT_KERBEROS_NAME_A}
MICROSOFT_KERBEROS_NAME_W = WideString('Kerberos');
{$EXTERNALSYM MICROSOFT_KERBEROS_NAME_W}
{$IFDEF WIN32_CHICAGO}
MICROSOFT_KERBEROS_NAME = MICROSOFT_KERBEROS_NAME_W;
{$EXTERNALSYM MICROSOFT_KERBEROS_NAME}
{$ELSE}
MICROSOFT_KERBEROS_NAME = MICROSOFT_KERBEROS_NAME_A;
{$EXTERNALSYM MICROSOFT_KERBEROS_NAME}
{$ENDIF}
NEGOSSP_NAME_W = WideString('Negotiate');
{$EXTERNALSYM NEGOSSP_NAME_W}
NEGOSSP_NAME_A = 'Negotiate';
{$EXTERNALSYM NEGOSSP_NAME_A}
{$IFDEF UNICODE}
NEGOSSP_NAME = NEGOSSP_NAME_W;
{$EXTERNALSYM NEGOSSP_NAME}
{$ELSE}
NEGOSSP_NAME = NEGOSSP_NAME_A;
{$EXTERNALSYM NEGOSSP_NAME}
{$ENDIF}
implementation
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -