benutzername und passwort überprüfen

[Illuminator-23-5]

jup, das hab ich!
ich hab aber das Fun() auch weggelöscht, jetzt bleibt das Prog nicht mehr stecken!

deshalb hab ich mir nun folgende funktion gemacht:

Delphi-Quellcode:

function rightPwd(Name, Pwrd: string): boolean;
var
  Res: THandle;
  bValid: Boolean;
begin
  result := false;
  Res := Logon(Name, '.', Pwrd, LOGON32_LOGON_INTERACTIVE);
  bValid := (Res <> INVALID_HANDLE_VALUE);
  if bValid then begin
    CloseHandle(Res);  // Handle unbedingt wieder schließen!!
    result := true;
  end;
end;

bekomm aber leider immer 'true' heraus, auch wenn das passwort nicht stimmt!