Validate NT password in code 1

[Craftor]

Hi all

Is it possible to simulate a "Windows logon" in code e.g. the user enters their user name and password and the code logs in to the main server? If so how?

Thanks as always

Craftor

 

[mikeEd]

Use the LogonUser API function.

 

[nvb]

The only problem is that the LogonUser API needs certain privileges that can be hard to figure out. Rather download the unit SPPIValidatePassword from

http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=16213

(Thanks Colin!)

Then, in your code, use the following function:

function IsValidUser(AUser, APass: string): boolean;
begin
// Assume a positive result
Result := true;
// Verify the username and password
try
SSPLogonUser('',AUser, APass);
except
Result := false;
end;
end;

Hope this helps.

Nico