现在的位置: 首页 > 综合 > 正文

Gina编程—-Wlx.h

2013年03月06日 ⁄ 综合 ⁄ 共 26742字 ⁄ 字号 小 中 大 ⁄ 评论关闭

unit GinaFunctionDeclare;

interface
uses Windows, Messages, SysUtils,Classes,Dialogs,
CommonFunction;

{$INCLUDE NTVersion.inc}

const
MSGINADLL=’msgina.dll’;

{$IFNDEF _WINWLX_}
{$define _WINWLX_}
{$ENDIF }

{******************************************************}
{有2个版本的Gina: Major revision 和 minor revision. }
{ Major revision使用在高于16位的系统. }
{ minor revision使用在低于16位的系统. }
{******************************************************}
WLX_VERSION_1_0 =$00010000;
WLX_VERSION_1_1 =$00010001;
WLX_VERSION_1_2 =$00010002;
WLX_VERSION_1_3 =$00010003;
//WLX_VERSION_1_4 =$00010004; //不被支持
WLX_CURRENT_VERSION =WLX_VERSION_1_3;

{*******************************************************}
{ 安全口令系列类型定义 }
{这些值被具有dwSasType参数的函数使用. }
{从0..127的值已被系统使用,用户自定义的类型必须大于127. }
{*******************************************************}
WLX_SAS_TYPE_TIMEOUT =0;
WLX_SAS_TYPE_CTRL_ALT_DEL =1; // CTRL+ALT+DEL三键被按下
WLX_SAS_TYPE_SCRNSVR_TIMEOUT =2; //键盘和鼠标没有使用导致屏保出现{It is up to the GINA DLL whether this constitutes a workstation locking event.}
WLX_SAS_TYPE_SCRNSVR_ACTIVITY =3; //处于屏保状态时键盘或鼠标被使用.(退出屏保)
WLX_SAS_TYPE_USER_LOGOFF =4;
WLX_SAS_TYPE_SC_INSERT =5;
WLX_SAS_TYPE_SC_REMOVE =6;
WLX_SAS_TYPE_AUTHENTICATED =7;
WLX_SAS_TYPE_SC_FIRST_READER_ARRIVED=8;
WLX_SAS_TYPE_SC_LAST_READER_REMOVED =9;
WLX_SAS_TYPE_SWITCHUSER =10;
WLX_SAS_TYPE_MAX_MSFT_VALUE =127;

{*******************************************************}
{成功登录之后,Gina.dll会提供一些选项给WinLogon. }
{这些选项通过WlxLoggedOutSas函数的dwOptions参数被传递 }
{*******************************************************}
WLX_LOGON_OPT_NO_PROFILE =$00000001; //
WLX_LOGON_OPT_USE_GROUPPOLICY =$00000002; //提交组策略给用户

{*******************************************************}
{成功登录之后,Gina.dll期望返回一个信息给WinLogon. }
{这个信息允许WinLogon做2件事情: }
{ 1> 支持Profile载入. }
{ 2> 追加网络提供者. }
{为了不同的信息可以传递给Winlogon,每一个profile结构体的 }
{第一个DWord成员必须是一个类型标志.下面的常量定义了可以 }
{使用的类型标志. }
{标准的profile 类型标志是 V2_0 }
{*******************************************************}
WLX_PROFILE_TYPE_V1_0 =1;
WLX_PROFILE_TYPE_V2_0 =2;

{*******************************************************}
{WlxLoggedOnSas() 和 WlxWkstaLockedSas()函数返回一个值, }
{这个值指示WinLogon执行一些动作(或者什么也不执行). }
{下面定义了这2个函数的一些(并非全部)返回值. }
{*******************************************************}
WLX_SAS_ACTION_LOGON =1; //用户已登录
WLX_SAS_ACTION_NONE =2; //不改变Windows工作站的状态
WLX_SAS_ACTION_LOCK_WKSTA =3; //锁定工作站,等待下一个SAS事件.
WLX_SAS_ACTION_LOGOFF =4; //用户退出工作站
WLX_SAS_ACTION_SHUTDOWN =5; //用户退出工作站,并关闭系统
WLX_SAS_ACTION_PWD_CHANGED =6; //用户改变密码.通知网络提供者.
WLX_SAS_ACTION_TASKLIST =7; //调用Task List.
WLX_SAS_ACTION_UNLOCK_WKSTA =8; //解锁工作站.
WLX_SAS_ACTION_FORCE_LOGOFF =9; //强制用户退出
WLX_SAS_ACTION_SHUTDOWN_POWER_OFF =10; //关闭计算机
WLX_SAS_ACTION_SHUTDOWN_REBOOT =11; //Reboot machine after shutting down.
WLX_SAS_ACTION_SHUTDOWN_SLEEP =12; //Put the machine to sleep
WLX_SAS_ACTION_SHUTDOWN_SLEEP2 =13; //Put the machine to sleep and disable wakeup events
WLX_SAS_ACTION_SHUTDOWN_HIBERNATE =14; //Hibernate the machine
WLX_SAS_ACTION_RECONNECTED =15;
WLX_SAS_ACTION_DELAYED_FORCE_LOGOFF =16;
WLX_SAS_ACTION_SWITCH_CONSOLE =17;

{********************************************}
{ 消息. }
{ wParam传递SAS事件类型. }
{********************************************}
WLX_WM_SAS =WM_USER + 601;

{********************************************}
{ 对话框的返回值 }
{********************************************}
WLX_DLG_SAS =101;
WLX_DLG_INPUT_TIMEOUT =102; // Insert (keys, etc) timed out
WLX_DLG_SCREEN_SAVER_TIMEOUT =103; // Screen Saver activated
WLX_DLG_USER_LOGOFF =104; // User logged off

WLX_CONSOLESWITCHCREDENTIAL_TYPE_V1_0=1;

STATUSMSG_OPTION_NOANIMATION =1;
STATUSMSG_OPTION_SETFOREGROUND =2;

type
{*********************************************************}
{ 登录之后,WLX_PROFILE_*结构体将由Gina.dll返回. }
{这些结构体将被WinLogon用来支持追加网络提供者 和 载入 }
{新用户的Profile. (原文:This information is used by }
{ Winlogon to support supplemental Network Providers and }
{ to load the newly logged-on user’s profile.) }
{ }
{ Winlogon有责任释放这2个结构提及其成员. }
{*********************************************************}
PVOID=Pointer;
PPVOID=^PVOID;
_LUID=packed record
LowPart :DWORD;
HighPart :int64;
end;
LUID=_LUID;
PLUID=^_LUID;

_WLX_PROFILE_V1_0=packed record
{************************************************}
{这个成员字段识别由Gina.dll返回的Profile的类型. }
{它允许Winlogon进行类型转换. }
{ Profile类型被定义成 WLX_PROFILE_TYPE_xxx 前缀. }
{************************************************}
dwType :DWORD;

{************************************************}
{将被载入的Profile的路径. }
{这个字段指向的缓冲区必须被分配.不再使用时,须由 }
{Winlogon释放. }
{************************************************}
pszProfile :PWideChar;
end;
WLX_PROFILE_V1_0 =_WLX_PROFILE_V1_0;
PWLX_PROFILE_V1_0 =^_WLX_PROFILE_V1_0;

_WLX_PROFILE_V2_0 =packed record
dwType :DWORD; //同 _WLX_PROFILE_V1_0.dwType
pszProfile :PWideChar; //同 _WLX_PROFILE_V1_0.pszProfile,但可以为NULL(表示本地的Profile).

{************************************************}
{ 策略的路径名. }
{可以设为Null,以阻止网络认证. }
{这个字段指向的缓冲区必须被分配.不再使用时,须由 }
{Winlogon释放. }
{************************************************}
pszPolicy :PWideChar;

{******************************************************************}
{ pathname of network default user profile }
{它可以为Null. 这将使得默认的用户Profile在本机. }
{ }
{这个字段指向的缓冲区必须被分配.不再使用时,须由Winlogon释放. }
{******************************************************************}
pszNetworkDefaultUserProfile :PWideChar;

{*******************************************************************}
{ 使用户帐号生效的服务的名字. }
{它用来枚举用户所在的 全局的组.它可以为Null. }
{(原文: This is used to enumerate globals groups the user belongs }
{ to for policy support. This parameter can be NULL.) }
{ }
{这个字段指向的缓冲区必须被分配.不再使用时,须由Winlogon释放. }
{*******************************************************************}
pszServerName :PWideChar;

{*******************************************************************}
{指向一系列由NULL结尾的环境变量 }
{格式: 环境变量名 = 值 或者 环境变量名 = %OtherVar%/more text }
{每一个环境变量都以NULL结尾,最后一个环境变量必须以2个Null结尾. }
{环境变量可以包含其它环境变量.这就要用到"%"标记. }
{该参数可以为Null. }
{该参数指向的缓冲区必须被分配.不再使用时,须由Winlogon释放. }
{*******************************************************************}
pszEnvironment :PWideChar;
end;
WLX_PROFILE_V2_0 =_WLX_PROFILE_V2_0;
PWLX_PROFILE_V2_0 =^_WLX_PROFILE_V2_0;

{*************************************************************************}
{认证之后,WLX_MPR_NOTIFICATION_INFO结构体将由Gina.dll返回. }
{这些结构体将被WinLogon用来提供 收集来的认证和鉴别信息 给网络提供者. }
{(原文: This information is used by Winlogon to provide identification }
{ and authentication information already collected to network providers.)}
{ }
{ Winlogon有责任释放这2个结构提及其成员. }
{*************************************************************************}
_WLX_MPR_NOTIFY_INFO =packed record
{*************************************************************************}
{ 登录帐号 }
{ 它指向的缓冲区必须被分配.不再使用时,须由Winlogon释放. }
{*************************************************************************}
pszUserName :PWideChar;
pszDomain :PWideChar;
pszPassword :PWideChar; //密码.它指向的缓冲区必须被分配.不再使用时,须由Winlogon释放.

{*************************************************************************}
{ 旧密码 }
{ 当用户更改了密码,pszOldPassword指向以前的密码.新密码由pszPassword保存. }
{ }
{ 它指向的缓冲区必须被分配.不再使用时,须由Winlogon释放. }
{*************************************************************************}
pszOldPassword :PWideChar;
END;
WLX_MPR_NOTIFY_INFO=_WLX_MPR_NOTIFY_INFO;
PWLX_MPR_NOTIFY_INFO=^_WLX_MPR_NOTIFY_INFO;

////////////////////////////////////////////////////////////////////////
// //
// Winlogon 提供的服务 //
// //
////////////////////////////////////////////////////////////////////////
const
WLX_DESKTOP_NAME =$00000001; // Name present
WLX_DESKTOP_HANDLE =$00000002; // Handle present
type
_WLX_DESKTOP=packed record
Size :DWORD;
Flags :DWORD;
hDesktop :HDESK;
pszDesktopName :PWideChar;
end;

{回调函数,处理对话框的消息循环.}
DLGPROC=function(hHwnd:HWND;Msg:Longword;wP:wParam;lP:lParam):Bool;stdcall;

DLGTEMPLATE=packed record
_Style :DWORD;
_dwExtendedStyle :DWORD;
_cdit :WORD;
_x :Short;
_y :Short;
_cx :Short;
_cy :Short;
end;
LPCDLGTEMPLATE=^DLGTEMPLATE;

WLX_DESKTOP=_WLX_DESKTOP;
PWLX_DESKTOP=^_WLX_DESKTOP;
PPWLX_DESKTOP=^PWLX_DESKTOP;

PWLX_USE_CTRL_ALT_DEL= procedure(hWlx:THandle);stdcall;
PWLX_SET_CONTEXT_POINTER= procedure(hWlx:THandle;pWlxContext:Pointer);stdcall;
PWLX_SAS_NOTIFY= procedure(hWlx:THandle;dwSasType:DWORD);stdcall;
PWLX_SET_TIMEOUT= function(hWlx:THandle;Timeout:DWORD):Bool;stdcall;
PWLX_ASSIGN_SHELL_PROTECTION= function(hWlx,hToken,hProcess,hThread:THandle):Integer;stdcall;
PWLX_MESSAGE_BOX= function(hWlx:THandle;hwndOwner:HWND;
lpszText,lpszTitle:PWideChar;fuStyle:LongWord):Integer;Stdcall;
PWLX_DIALOG_BOX= function(hWlx,hInst:THandle;lpszTemplate:PWideChar;
hwndOwner:THandle;dlgprc:DLGPROC):Integer;stdcall;
PWLX_DIALOG_BOX_INDIRECT= function(hWlx,hInst:THandle;hDialogTemplate:LPCDLGTEMPLATE;
hwndOwner:HWND;dlgprc:DLGPROC):Integer;stdcall;
PWLX_DIALOG_BOX_PARAM= function(hWlx,hInst:THandle;lpszTemplate:PWideChar;
hwndOwner:HWND;dlgprc:DLGPROC;dwInitParam:LPARAM):Integer;stdcall;
PWLX_DIALOG_BOX_INDIRECT_PARAM= function(hWlx,hInst:THandle;
hDialogTemplate:LPCDLGTEMPLATE;hwndOwner:HWND;dlgprc:DLGPROC;
dwInitParam:LPARAM):Integer;stdcall;
PWLX_SWITCH_DESKTOP_TO_USER= function(hWlx:THandle):Integer;stdcall;
PWLX_SWITCH_DESKTOP_TO_WINLOGON= function(hWlx:THandle):Integer;stdcall;

PWLX_CHANGE_PASSWORD_NOTIFY= function(hWlx:THandle;pMprInfo:PWLX_MPR_NOTIFY_INFO;
dwChangeInfo:DWORD):Integer;stdcall;

PWLX_GET_SOURCE_DESKTOP= function(hWlx:THandle;ppDesktop:PPWLX_DESKTOP):bool;stdcall;

PWLX_SET_RETURN_DESKTOP= function(hWlx:THandle;pDesktop:PWLX_DESKTOP):Bool;stdcall;
PWLX_CREATE_USER_DESKTOP= function(hWlx,hToken:THandle;Flags:DWORD;
pszDesktopName:PWideChar;ppDesktop:PPWLX_DESKTOP):bool;stdcall;
PWLX_CLOSE_USER_DESKTOP= function(hwxl:THandle;PWLX_DESKTOP:PWLX_DESKTOP;hToken:THandle):LongBool;stdcall;
PWLX_SET_OPTION= function(hwxl:THandle;Option:DWORD;Value:PWORD;var OldValue:PWORD):BOOL;stdcall; ///????
PWLX_GET_OPTION =function(hwxl:THandle;Option:DWORD;var OldValue:PWORD):BOOL;stdcall;
PWLX_WIN31_MIGRATE =procedure(hwxl:THandle);stdcall;

_WLX_CLIENT_CREDENTIALS_INFO=packed record
dwType: DWORD;
pszUserName,
pszDomain,
pszPassword :PWideChar;
fPromptForPassword:BOOL;
end;
WLX_CLIENT_CREDENTIALS_INFO_V1_0 = _WLX_CLIENT_CREDENTIALS_INFO;
PWLX_CLIENT_CREDENTIALS_INFO_V1_0 =^_WLX_CLIENT_CREDENTIALS_INFO;

_WLX_CLIENT_CREDENTIALS_INFO_2_0=packed record
dwType:DWORD;
pszUserName,
pszDomain,
pszPassword :PWideChar;
fPromptForPassword,
fDisconnectOnLogonFailure:BOOL;

end;
WLX_CLIENT_CREDENTIALS_INFO_V2_0 = _WLX_CLIENT_CREDENTIALS_INFO_2_0;
P_WLX_CLIENT_CREDENTIALS_INFO_2_0 = ^_WLX_CLIENT_CREDENTIALS_INFO_2_0;

{_WLX_CONSOLESWITCH_CREDENTIALS_INFO= packed record
dwType: DWORD;
UserToken: THandle;
LogonId: LUID;
Quotas: QUOTA_LIMITS;
UserName,
Domain: PWideChar;
LogonTime: LARGE_INTEGER;
SmartCardLogon:BOOL;
ProfileLength: ULONG;
MessageType: DWORD;
LogonCount, //UShort???????
BadPasswordCount: Word;
ProfileLogonTime,
LogoffTime,
KickOffTime,
PasswordLastSet,
PasswordCanChange,
PasswordMustChange:LARGE_INTEGER
LogonScript,
HomeDirectory,
FullName,
ProfilePath,
HomeDirectoryDrive,
LogonServer:PWideChar;
UserFlags,
PrivateDataLen:ULONG;
PrivateData :PByte;
end;
WLX_CONSOLESWITCH_CREDENTIALS_INFO_V1_0= _WLX_CONSOLESWITCH_CREDENTIALS_INFO;
PWLX_CONSOLESWITCH_CREDENTIALS_INFO_V1_0=^_WLX_CONSOLESWITCH_CREDENTIALS_INFO; }

{ _WLX_MPR_NOTIFY_INFO=packed record
pszUserName,pszDomain,pszPassword,pszOldPassword:PWideChar;
end;
WLX_MPR_NOTIFY_INFO=_WLX_MPR_NOTIFY_INFO;
PWLX_MPR_NOTIFY_INFO=^_WLX_MPR_NOTIFY_INFO; }

PWLX_QUERY_CLIENT_CREDENTIALS=function(pCred:PWLX_CLIENT_CREDENTIALS_INFO_V1_0):BOOL;stdcall;
PWLX_QUERY_IC_CREDENTIALS =function(pCred:PWLX_CLIENT_CREDENTIALS_INFO_V1_0):BOOL;stdcall;
PWLX_DISCONNECT =function:BOOL;

const
WLX_CREATE_INSTANCE_ONLY =$00000001;
WLX_CREATE_USER =$00000002;
type
PWLX_CHANGE_PASSWORD_NOTIFY_EX=function(
hWlx:THandle;
pMprInfo:PWLX_MPR_NOTIFY_INFO;
dwChangeInfo:DWORD;
ProviderName:PWideChar;
Reserved:PVOID
):Integer;stdcall;

////////////////////////////////////////////////////////////////////////
// //
// Function dispatch tables. //
// 初始化期间,当WlxInitialize()被调用时,下面3个函数分发表之一将被传递//
// 给GINA.DLL. //
// //
// NOTE: FOR THIS REVISION THERE IS ONLY ONE TABLE. DEVELOPERS //
// SHOULD EXPECT MORE IN FUTURE RELEASE. //
// //
////////////////////////////////////////////////////////////////////////

{*********************************************************************}
{ 版本WLX_VERSION_1_0的函数分发表 }
{ NT3.51支持的函数集 }
{*********************************************************************}
_WLX_DISPATCH_VERSION_1_0=packed record
WlxUseCtrlAltDel :PWLX_USE_CTRL_ALT_DEL;
WlxSetContextPointer :PWLX_SET_CONTEXT_POINTER;
WlxSasNotify :PWLX_SAS_NOTIFY;
WlxSetTimeout :PWLX_SET_TIMEOUT;
WlxAssignShellProtection :PWLX_ASSIGN_SHELL_PROTECTION;
WlxMessageBox :PWLX_MESSAGE_BOX;
WlxDialogBox :PWLX_DIALOG_BOX;
WlxDialogBoxParam :PWLX_DIALOG_BOX_PARAM;
WlxDialogBoxIndirect :PWLX_DIALOG_BOX_INDIRECT;
WlxDialogBoxIndirectParam :PWLX_DIALOG_BOX_INDIRECT_PARAM;
WlxSwitchDesktopToUser :PWLX_SWITCH_DESKTOP_TO_USER;
WlxSwitchDesktopToWinlogon :PWLX_SWITCH_DESKTOP_TO_WINLOGON;
WlxChangePasswordNotify :PWLX_CHANGE_PASSWORD_NOTIFY;
end;
WLX_DISPATCH_VERSION_1_0=_WLX_DISPATCH_VERSION_1_0;
PWLX_DISPATCH_VERSION_1_0=^_WLX_DISPATCH_VERSION_1_0;

{*********************************************************************}
{ 版本WLX_VERSION_1_1的分发表 }
{ WinNT4.0使用该分发表 }
{*********************************************************************}
_WLX_DISPATCH_VERSION_1_1=packed record
WlxUseCtrlAltDel :PWLX_USE_CTRL_ALT_DEL;
WlxSetContextPointer :PWLX_SET_CONTEXT_POINTER;
WlxSasNotify :PWLX_SAS_NOTIFY;
WlxSetTimeout :PWLX_SET_TIMEOUT;
WlxAssignShellProtection :PWLX_ASSIGN_SHELL_PROTECTION;
WlxMessageBox :PWLX_MESSAGE_BOX;
WlxDialogBox :PWLX_DIALOG_BOX;
WlxDialogBoxParam :PWLX_DIALOG_BOX_PARAM;
WlxDialogBoxIndirect :PWLX_DIALOG_BOX_INDIRECT;
WlxDialogBoxIndirectParam :PWLX_DIALOG_BOX_INDIRECT_PARAM;
WlxSwitchDesktopToUser :PWLX_SWITCH_DESKTOP_TO_USER;
WlxSwitchDesktopToWinlogon :PWLX_SWITCH_DESKTOP_TO_WINLOGON;
WlxChangePasswordNotify :PWLX_CHANGE_PASSWORD_NOTIFY;
WlxGetSourceDesktop :PWLX_GET_SOURCE_DESKTOP;
WlxSetReturnDesktop :PWLX_SET_RETURN_DESKTOP;
WlxCreateUserDesktop :PWLX_CREATE_USER_DESKTOP;
WlxChangePasswordNotifyEx :PWLX_CHANGE_PASSWORD_NOTIFY_EX;
end;
WLX_DISPATCH_VERSION_1_1=_WLX_DISPATCH_VERSION_1_1;
PWLX_DISPATCH_VERSION_1_1=^_WLX_DISPATCH_VERSION_1_1;

{*********************************************************************}
{ 版本WLX_VERSION_1_2的分发表 }
{ WLX_DISPATCH_VERSION_1_2使用在NT SP4机器及其后续版本. ?? NT200}
{*********************************************************************}
_WLX_DISPATCH_VERSION_1_2=packed record
WlxUseCtrlAltDel :PWLX_USE_CTRL_ALT_DEL;
WlxSetContextPointer :PWLX_SET_CONTEXT_POINTER;
WlxSasNotify :PWLX_SAS_NOTIFY;
WlxSetTimeout :PWLX_SET_TIMEOUT;
WlxAssignShellProtection :PWLX_ASSIGN_SHELL_PROTECTION;
WlxMessageBox :PWLX_MESSAGE_BOX;
WlxDialogBox :PWLX_DIALOG_BOX;
WlxDialogBoxParam :PWLX_DIALOG_BOX_PARAM;
WlxDialogBoxIndirect :PWLX_DIALOG_BOX_INDIRECT;
WlxDialogBoxIndirectParam :PWLX_DIALOG_BOX_INDIRECT_PARAM;
WlxSwitchDesktopToUser :PWLX_SWITCH_DESKTOP_TO_USER;
WlxSwitchDesktopToWinlogon :PWLX_SWITCH_DESKTOP_TO_WINLOGON;
WlxChangePasswordNotify :PWLX_CHANGE_PASSWORD_NOTIFY;
WlxGetSourceDesktop :PWLX_GET_SOURCE_DESKTOP;
WlxSetReturnDesktop :PWLX_SET_RETURN_DESKTOP;
WlxCreateUserDesktop :PWLX_CREATE_USER_DESKTOP;
WlxChangePasswordNotifyEx :PWLX_CHANGE_PASSWORD_NOTIFY_EX;
WlxCloseUserDesktop :PWLX_CLOSE_USER_DESKTOP;
end;
WLX_DISPATCH_VERSION_1_2=_WLX_DISPATCH_VERSION_1_2;
PWLX_DISPATCH_VERSION_1_2=^_WLX_DISPATCH_VERSION_1_2;

{*********************************************************************}
{ 版本WLX_VERSION_1_3的分发表 }
{ WLX_DISPATCH_VERSION_1_3使用在XP ??? }
{*********************************************************************}
_WLX_DISPATCH_VERSION_1_3=packed record
WlxUseCtrlAltDel :PWLX_USE_CTRL_ALT_DEL;
WlxSetContextPointer :PWLX_SET_CONTEXT_POINTER;
WlxSasNotify :PWLX_SAS_NOTIFY;
WlxSetTimeout :PWLX_SET_TIMEOUT;
WlxAssignShellProtection :PWLX_ASSIGN_SHELL_PROTECTION;
WlxMessageBox :PWLX_MESSAGE_BOX;
WlxDialogBox :PWLX_DIALOG_BOX;
WlxDialogBoxParam :PWLX_DIALOG_BOX_PARAM;
WlxDialogBoxIndirect :PWLX_DIALOG_BOX_INDIRECT;
WlxDialogBoxIndirectParam :PWLX_DIALOG_BOX_INDIRECT_PARAM;
WlxSwitchDesktopToUser :PWLX_SWITCH_DESKTOP_TO_USER;
WlxSwitchDesktopToWinlogon :PWLX_SWITCH_DESKTOP_TO_WINLOGON;
WlxChangePasswordNotify :PWLX_CHANGE_PASSWORD_NOTIFY;
WlxGetSourceDesktop :PWLX_GET_SOURCE_DESKTOP;
WlxSetReturnDesktop :PWLX_SET_RETURN_DESKTOP;
WlxCreateUserDesktop :PWLX_CREATE_USER_DESKTOP;
WlxChangePasswordNotifyEx :PWLX_CHANGE_PASSWORD_NOTIFY_EX;
WlxCloseUserDesktop :PWLX_CLOSE_USER_DESKTOP;
WlxSetOption :PWLX_SET_OPTION;
WlxGetOption :PWLX_GET_OPTION;
WlxWin31Migrate :PWLX_WIN31_MIGRATE;
WlxQueryClientCredentials :PWLX_QUERY_CLIENT_CREDENTIALS;
WlxQueryInetConnectorCredentials :PWLX_QUERY_IC_CREDENTIALS;
WlxDisconnect :PWLX_DISCONNECT;
end;
WLX_DISPATCH_VERSION_1_3=_WLX_DISPATCH_VERSION_1_3;
PWLX_DISPATCH_VERSION_1_3=^_WLX_DISPATCH_VERSION_1_3;

/////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////

{******************************************************************}
{GINA通常会分配一些自己需要的内存.在MS自己的样板例程里,GINA需要分配}
{一段内存,记录的是一些全局变量.这些变量的定义如下: }
{******************************************************************}
_MiniAccount=record
pszUsername,
pszDomain,
pszPassword,
pszComment :PWideChar;
IconId,
Flags :DWORD;
end;
MiniAccount=_MiniAccount;
PMiniAccount=^_MiniAccount;

_Globals=record
fAllowNewUser,
fAutoLogonAtBoot,
fAutoLogonAlways :BOOL;
hUserToken :THandle;
pAccount :PMiniAccount;
end;
Globals=_Globals;
PGlobals=^_Globals;

const
{******************************************************}
{ShellShutdownDialog将返回一个值,告诉Logon执行什么操作.}
{返回值在下面被定义: }
{******************************************************}
SHUT_DOWN_NONE = 0; //无操作
SHUT_DOWN_LOGOUT = 1; //注销
SHUT_DOWN_POWEROFF = 2; //关机
SHUT_DOWN_REBOOT = 4; //重启
SHUT_DOWN_WAIT = 16; //待机
SHUT_DOWN_DORMANCY = 64; //休眠

type
{下面定义了3个结构体,关于这3个结构体的说明,请参见本目录下的"Client/MyGina/Doc/xxxx.txt"}

{ Gina Context }
_GINA_CONTEXT = record
bAllowNewUser : boolean;
bAutoLogonAtBoot : boolean;
bAutoLogonAlways : boolean; //自动登录
LoginName : PWideChar;
Password : PWideChar;
Domain : PWideChar;
LoginOnTime : PWideChar;
hWlx : THANDLE;
station : PWideChar;
{$IF VERSION>=1.3}
pWlxFuncs : PWLX_DISPATCH_VERSION_1_3;
{$ELSEIF VERSION>=1.2}
pWlxFuncs : PWLX_DISPATCH_VERSION_1_2;
{$ELSEIF VERSION>=1.1}
pWlxFuncs : PWLX_DISPATCH_VERSION_1_1;
{$ELSEIF VERSION>=1.0}
pWlxFuncs : PWLX_DISPATCH_VERSION_1_0;
{$IFEND}
hDllInstance : THANDLE;
UserToken : THANDLE;
end;
GINA_CONTEXT = _GINA_CONTEXT;
PGINA_CONTEXT = ^_GINA_CONTEXT;

{ http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ security/Security/token_type.asp}
tagTOKEN_TYPE = (TokenPrimary = 1, //显示主令牌
TokenImpersonation //扮演者的令牌
);
TOKEN_TYPE = tagTOKEN_TYPE;

{ http://msdn.microsoft.com/library/default.asp?url=/library/en-us/security/security/security_impersonation_level.asp}
_SECURITY_IMPERSONATION_LEVEL = (SecurityAnonymous = 0, //不能获得客户端信任信息
SecurityIdentification, //可以获得客户端信任信息
SecurityImpersonation, // 可以获得安全上下文,但不能获得本地或远程系统.
SecurityDelegation //NT不支持该选项
);
SECURITY_IMPERSONATION_LEVEL = _SECURITY_IMPERSONATION_LEVEL;

{ http://msdn.microsoft.com/library/default.asp?url=/library/en-us/security/Security/token_statistics.asp}
_TOKEN_STATISTICS = record
TokenId: LUID;
AuthenticationId: LUID;
ExpirationTime: LARGE_INTEGER;
TokenType: TOKEN_TYPE;
ImpersonationLevel: SECURITY_IMPERSONATION_LEVEL;
DynamicCharged: DWORD;
DynamicAvailable: DWORD;
GroupCount: DWORD;
PrivilegeCount: DWORD;
ModifiedId: LUID;
end;
TOKEN_STATISTICS = _TOKEN_STATISTICS;
PTOKEN_STATISTICS = ^_TOKEN_STATISTICS;

const
LOGON32_LOGON_UNLOCK = 7;

//--------------------------------------------------------
type
//显示windows退出系统对话框
TShellShutdownDialog= function (hParent:HWND;UserName:PChar;bHideLogoff:LongBool):dword;stdcall;
// 用户登陆成功后，Winlogon.exe调用该函数启动用户外壳程序
TWlxActivateUserShell= function (pWlxContext: pointer; pszDesktopName: PWideChar; pszMprLogonScript: PWideChar; pEnvironment: pointer): BOOL; stdcall;
// 当系统处于锁定状态时，Winlogon.exe调用该函数
// 显示一些信息，如锁定者、锁定时间等
TWlxDisplayLockedNotice= procedure (pWlxContext: pointer); stdcall;
// 当没有任何用户登陆时，Winlogon.exe调用该函数显示一些提示信息
// 可以根据用户的动作模拟SAS事件的发送
TWlxDisplaySASNotice= procedure (pWlxContext: pointer); stdcall;
// 当gina dll要显示一些信息时，Winlogon.exe调用该函数
// 直接返回TRUE表示信息已经显示
TWlxDisplayStatusMessage= function (pWlxContext: pointer; hDesktop: HDESK; dwOptions: DWORD; pTitle: PWideChar; pMessage: PWideChar): BOOL; stdcall;
// Winlogon.exe调用该函数得到gina dll显示的状态信息
// 直接返回TRUE表示信息已经接收
TWlxGetStatusMessage= function (pWlxContext: pointer; var pdwOptions: DWORD; pMessage: PWideChar; dwBufferSize: DWORD): BOOL; stdcall;
{初始化.提供函数分发表.}
TWlxInitialize= function (lpWinsta: LPWSTR; hWlx: THANDLE; pvReserved: pointer; pWinlogonFunctions: pointer; var WlxContext: PVOID): BOOL; stdcall;
// 在试图锁定工作站之前Winlogon.exe调用该函数，判断是否可以锁定
// 直接返回FALSE表示不能锁定
TWlxIsLockOk= function (pWlxContext: pointer): BOOL; stdcall;
// 在试图注销时Winlogon.exe调用该函数，判断能否注销
// 直接返回FALSE表示不能注销
TWlxIsLogoffOk= function (pWlxContext: pointer): BOOL; stdcall;
{用户已登陆并且工作站没有被加锁，如果此时接收到SAS事件，则Winlogon 调用此函数}
TWlxLoggedOnSAS= function (pWlxContext: pointer; dwSasType: DWORD; pReserved: pointer): integer; stdcall;
{没有用户登陆，如果此时收到SAS事件，则Winlogon 调用此函数}
TWlxLoggedOutSAS= function (pWlxContext: pointer; dwSasType: DWORD; pAuthenticationId: PLUID; pLogonSid: PSID; var pdwOptions: DWORD; var phToken: THANDLE; var pNprNotifyInfo: WlX_MPR_NOTIFY_INFO; out pProfile: pointer): integer; stdcall;
{ Winlogon.exe调用该函数，通知gina dll用户注销操作
允许gina dll做出相应的处理 }
TWlxLogoff= procedure (pWlxContext: pointer); stdcall;
{版本协商.}
TWlxNegotiate= function (dwWinlogonVersion: DWORD; out dwDllVersion: DWORD): BOOL; stdcall;
TWlxNetworkProviderLoad= function (pWlxContext: pointer; var pNprNotifyInfo: WLX_MPR_NOTIFY_INFO): BOOL; stdcall;
{ Winlogon.exe调用该函数，告诉gina dll停止显示状态信息
直接返回TRUE表示信息已经删除}
TWlxRemoveStatusMessage= function (pWlxContext: pointer): BOOL; stdcall;
{在关闭之前Winlogon 调用此函数，允许GINA实现任何关闭任务，例如从读卡器中退出智能卡}
TWlxShutdown= procedure (pWlxContext: pointer; ShutdownType: DWORD); stdcall;
{当工作站被锁定，如果接收到一个SAS，则Winlogon 调用此函数 }
TWlxWkstaLockedSAS= function (pWlxContext: pointer; dwSasType: DWORD): integer; stdcall;

{$IF VERSION>=1.3}
TWlxGetConsoleSwitchCredentials= function (pWlxContext: pointer; pCredInfo: pointer): BOOL; stdcall;
TWlxReconnectNotify= procedure (pWlxContext: pointer); stdcall;
TWlxDisconnectNotify= procedure (pWlxContext: pointer); stdcall;
{$IFEND}

{$IF VERSION>=1.2}
//NO NEW Functions.
{$IFEND}

{$IF VERSION>=1.1}
{当系统要求在用户上下文中启动程序，Winlogon.exe调用该函数
这种情况发生在：浏览器非正常关闭需要重启或需要启动扩展的任务管理器
该接口gina dll可以选择性实现}
TWlxStartApplication= function (pWlxContext: pointer; pszDesktopName: PWideChar; pEnvironment: pointer; pszCmdLine: PWideChar): BOOL; stdcall;
{在屏保程序启动前一瞬Winlogon.exe调用该函数，允许gina dll同屏保程序交互
返回FALSE表示屏保程序不能启动}
TWlxScreenSaverNotify= function (pWlxContext: pointer; var pSecure: BOOL): BOOL; stdcall;
{$IFEND}
//------------------------------------------------------------------

{ PrcShellShutdownDialog: TShellShutdownDialog;
PrcWlxActivateUserShell: TWlxActivateUserShell;
PrcWlxDisplayLockedNotice: TWlxDisplayLockedNotice;
PrcWlxDisplaySASNotice: TWlxDisplaySASNotice;
PrcWlxDisplayStatusMessage: TWlxDisplayStatusMessag
PrcWlxGetStatusMessage: TWlxGetStatusMessage;
PrcWlxInitialize: TWlxInitialize;
PrcWlxIsLockOk: TWlxIsLockOk
PrcWlxIsLogoffOk: TWlxIsLogoffOk;
PrcWlxLoggedOnSAS: TWlxLoggedOnSAS;
PrcWlxLoggedOutSAS: TWlxLoggedOutSAS;
PrcWlxLogoff: TWlxLogoff;
PrcWlxNegotiate: TWlxNegotiate;
PrcWlxNetworkProviderLoad: TWlxNetworkProviderLoad;
PrcWlxRemoveStatusMessage: TWlxRemoveStatusMessage;
PrcWlxScreenSaverNotify: TWlxScreenSaverNotify;
PrcWlxShutdown: TWlxShutdown;
PrcWlxStartApplication: TWlxStartApplication;
PrcWlxWkstaLockedSAS: TWlxWkstaLockedSAS;

//{$IF WinVersion=wvWinNT}
{PrcWlxGetConsoleSwitchCredentials: TWlxGetConsoleSwitchCredentials;
PrcWlxReconnectNotify: TWlxReconnectNotify;
PrcWlxDisconnectNotify: TWlxDisconnectNotify; }
//{$ENDIF}

//-----------------------------------------------------------
function MyShellShutdownDialog(hParent:HWND;UserName:PChar;bHideLogoff:LongBool):dword;stdcall;
function MyWlxActivateUserShell(pWlxContext: pointer; pszDesktopName: PWideChar; pszMprLogonScript: PWideChar; pEnvironment: pointer): BOOL; stdcall;
procedure MyWlxDisplayLockedNotice (pWlxContext: pointer); stdcall;
procedure MyWlxDisplaySASNotice(pWlxContext: pointer); stdcall;
function MyWlxDisplayStatusMessage(pWlxContext: pointer; hDesktop: HDESK; dwOptions: DWORD; pTitle: PWideChar; pMessage: PWideChar): BOOL; stdcall;
function MyWlxGetStatusMessage(pWlxContext: pointer; var pdwOptions: DWORD; pMessage: PWideChar; dwBufferSize: DWORD): BOOL; stdcall;
function MyWlxInitialize(lpWinsta: LPWSTR; hWlx: THANDLE; pvReserved: pointer; pWinlogonFunctions: pointer; var WlxContext: PVOID): BOOL; stdcall;
function MyWlxIsLockOk(pWlxContext: pointer): BOOL; stdcall;
function MyWlxIsLogoffOk(pWlxContext: pointer): BOOL; stdcall;
function MyWlxLoggedOnSAS(pWlxContext: pointer; dwSasType: DWORD; pReserved: pointer): integer; stdcall;
function MyWlxLoggedOutSAS(pWlxContext: pointer; dwSasType: DWORD; pAuthenticationId: PLUID; pLogonSid: PSID; var pdwOptions: DWORD; var phToken: THANDLE; var pNprNotifyInfo: WlX_MPR_NOTIFY_INFO; out pProfile: pointer): integer; stdcall;
procedure MyWlxLogoff(pWlxContext: pointer); stdcall;
function MyWlxNegotiate(dwWinlogonVersion: DWORD; out dwDllVersion: DWORD): BOOL; stdcall;
function MyWlxNetworkProviderLoad(pWlxContext: pointer; var pNprNotifyInfo: WLX_MPR_NOTIFY_INFO): BOOL; stdcall;
function MyWlxRemoveStatusMessage(pWlxContext: pointer): BOOL; stdcall;
procedure MyWlxShutdown(pWlxContext: pointer; ShutdownType: DWORD); stdcall;

{$IF VERSION>=1.1}
function MyWlxScreenSaverNotify(pWlxContext: pointer; var pSecure: BOOL): BOOL; stdcall;
function MyWlxStartApplication(pWlxContext: pointer; pszDesktopName: PWideChar; pEnvironment: pointer; pszCmdLine: PWideChar): BOOL; stdcall;
{$IFEND}

function MyWlxWkstaLockedSAS(pWlxContext: pointer; dwSasType: DWORD): integer; stdcall;

{$IF VERSION>=1.3}
function MyWlxGetConsoleSwitchCredentials(pWlxContext: pointer; pCredInfo: pointer): BOOL; stdcall;
procedure MyWlxReconnectNotify(pWlxContext: pointer); stdcall;
procedure MyWlxDisconnectNotify(pWlxContext: pointer); stdcall;
{$IFEND}

implementation

function MyShellShutdownDialog; external MSGINADLL name ’ShellShutdownDialog’;
function MyWlxActivateUserShell; external MSGINADLL name ’WlxActivateUserShell’;
procedure MyWlxDisplayLockedNotice; external MSGINADLL name ’WlxDisplayLockedNotice’;
procedure MyWlxDisplaySASNotice; external MSGINADLL name ’WlxDisplaySASNotice’;
function MyWlxDisplayStatusMessage; external MSGINADLL name ’WlxDisplayStatusMessage’;
function MyWlxGetStatusMessage; external MSGINADLL name ’WlxGetStatusMessage’;
function MyWlxInitialize; external MSGINADLL name ’WlxInitialize’;
function MyWlxIsLockOk; external MSGINADLL name ’WlxIsLockOk’;
function MyWlxIsLogoffOk; external MSGINADLL name ’WlxIsLogoffOk’;
function MyWlxLoggedOnSAS; external MSGINADLL name ’WlxLoggedOnSAS’;
function MyWlxLoggedOutSAS; external MSGINADLL name ’WlxLoggedOutSAS’;
procedure MyWlxLogoff; external MSGINADLL name ’WlxLogoff’;
function MyWlxNegotiate; external MSGINADLL name ’WlxNegotiate’;
function MyWlxNetworkProviderLoad; external MSGINADLL name ’WlxNetworkProviderLoad’;
function MyWlxRemoveStatusMessage; external MSGINADLL name ’WlxRemoveStatusMessage’;
procedure MyWlxShutdown; external MSGINADLL name ’WlxShutdown’;
{$IF VERSION>=1.1}
function MyWlxScreenSaverNotify; external MSGINADLL name ’WlxScreenSaverNotify’;
function MyWlxStartApplication; external MSGINADLL name ’WlxStartApplication’;
{$IFEND}
function MyWlxWkstaLockedSAS; external MSGINADLL name ’WlxWkstaLockedSAS’;

{$IF VERSION>=1.3}
function MyWlxGetConsoleSwitchCredentials;external MSGINADLL name ’WlxGetConsoleSwitchCredentials’;
procedure MyWlxReconnectNotify; external MSGINADLL name ’WlxReconnectNotify’;
procedure MyWlxDisconnectNotify; external MSGINADLL name ’WlxDisconnectNotify’;
{$IFEND}

end.

2007-1-3 0:56:13
查看评语»»»

2007-1-6 22:12:19 NTVersion.inc{-----不同的Windows版本请修改这里------}
// {$define WinNT9X} //Win95,Win98
// {$define WinNT2K} //Win2000
{$define WinNTSP4} //XP

{----------不要修改下面的定义---------}
{$IFDEF Win9X}
const VERSION=1.0;
{$ENDIF}

{$IFDEF WinNT2K}
const VERSION=1.2;
{$ENDIF}

{$IFDEF WinNTSP4}
const VERSION=1.3;
{$ENDIF}

本文转自
http://www.delphibbs.com/keylife/iblog_show.asp?xid=26381

返回
【上篇】
【下篇】

作者:

抱歉!评论已关闭.

返回首页

Copyright © 2013-2018 学步园  保留所有权利.
软文销售 QQ客服：2265327166 点击这里给我发消息（其他合作也可洽谈）
必威体育
必威电竞