⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 security.pas

📁 详细Windows API大全有关知识以及相关问题
💻 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 + -