猫
Delphi技术
日志阅读：2033
日志评论：0

上一篇日志 «
下一篇日志 »

Delphi集成Windows验证登录函数

该日志由 samool 发表于 2007-10-17 3:08 PM

The first and biggest of these restrictions is that on Windows NT and Windows 2000, the process that is calling LogonUser must have the SE_TCB_NAME privilege (in User Manager, this is the ""Act as part of the Operating System"" right). The SE_TCB_NAME privilege is very powerful and should not be granted to any arbitrary user just so that they can run an application that needs to validate credentials. The recommended method is to call LogonUser from a service that is running in the local system account, because the local system account already has the SE_TCB_NAME privilege.

delphi代码

function VerifyWindowsUser(const Machine,Username,Password:String):boolean;
var hToken:THandle;
begin
hToken:=0;
Result:=LogonUser(PChar(UserName),PChar(Machine),PChar(Password),LOGON32_LOGON_INTERACTIVE,LOGON32_PROVIDER_DEFAULT,hToken);
if(hToken<>0)then
CloseHandle(hToken);
end;