Hallo zusammen,

ich kann ja wunderbar den aktuellen angemeldeten Benutzer ermitteln.

jetzt möcht ich aber das in meiner Anwendung das Anmeldekennwort des Benutzers am Rechner verwendet wird. geht das?

Kann ich Windows sowas mitteilen wie

if IstderLoginOK(User,Passwort) then machwas;

Dann müsst ich nicht extra ne Passwortanmeldung bauen.

Gruß Matthias

Hba ich das richtig verstanden,

du willst also das Domänpasswort vom Windows haben ?

Ich will nicht das passwort von Windows haben, sondern eine Passwortabfrage ins Programm einbauen und nur bei Windows anklopfen ob das bei mir eingegebene Passwort korrekt ist.
Damit würde ich mir eine eigene Benutzerverwaltung sparen. Benutzer gibt bei mir Benutzer und Passwort ein, ich frag bei Windows obs korrekt ist.

Schau dir das mal an:

Sollte die Lösung für dein Problem sein.

http://koti.mbnet.fi/akini/delphi/ntlmlogin/

Test NTLM login from application
This Delphi-demo application will make a login to NT Domain.
Username/Password/Domain is authenticated and success status is returned. If login was successful, then a list of NTgroups is populated.

Siehe Funktion LogonUser:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Hey Super Leute

genau das wars

Dank euch!

Gruß Matthias

Zitat von matashen:

Hey Super Leute

genau das wars

Dank euch!

Gruß Matthias

Welche Antwort hat dich jetzt genau weitergebracht? Solltest du vllt noch mit angeben für Leute die eventuell das Gleiche Problem haben und dann erstmal per Suche auf dieses Thema stoßen.

Zitat von Back2Code:

Zitat von matashen:

Hey Super Leute

genau das wars

Dank euch!

Gruß Matthias

Welche Antwort hat dich jetzt genau weitergebracht? Solltest du vllt noch mit angeben für Leute die eventuell das Gleiche Problem haben und dann erstmal per Suche auf dieses Thema stoßen.

Dein Link, wesentlich Praktischer nen Code zum verstehen zu haben als das msdn.
coüpy&Paste kann ich leider nicht machen, habs aber schon bei mir passend eingebaut und funktioniert auch.

Hallo,

mit GetUserNameEx kannst Du herausfinden, ob ein bestimmter Domänen-User angemeldet ist. Falls das der Benutzer ist, dem Du Deine spezielle Funktion erlauben möchtest, bist Du fein raus.

--
Viele Grüße,

Roman Kassebaum
Embarcadero Technology Partner
Embarcadero MVP
Blog: http://blog.kassebaum.eu

Ein bisschen Code:

zusammenfalten · markieren

Delphi-Quellcode:

uses
  SysUtils,
  Windows;
var
  hUser : THandle;
  res : Boolean;
begin
    try
      res := LogonUser(LPWSTR('user'),
                              LPWSTR(nil),
                              LPWSTR('password'),
                              LOGON32_LOGON_NETWORK,
                              LOGON32_PROVIDER_DEFAULT,
                              hUser);

    finally
      if hUser>0 then
      CloseHandle(hUser);
    end;
    Writeln(BoolToStr(res, true));
    readln;
end.

oder:

markieren

Delphi-Quellcode:

ja:= logonuser(pchar(edit1.text),pchar(''),pchar(passwort),
            LOGON32_LOGON_NETWORK,LOGON32_PROVIDER_DEFAULT,h);