Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   getusername und passwort (https://www.delphipraxis.net/177211-getusername-und-passwort.html)

matashen 24. Okt 2013 15:33

getusername und passwort
 
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

Mokus 24. Okt 2013 15:35

AW: getusername und passwort
 
Hba ich das richtig verstanden,

du willst also das Domänpasswort vom Windows haben ?

matashen 24. Okt 2013 15:45

AW: getusername und passwort
 
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.

Back2Code 24. Okt 2013 15:46

AW: getusername und passwort
 
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.

jaenicke 24. Okt 2013 15:48

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

matashen 24. Okt 2013 15:54

AW: getusername und passwort
 
Hey Super Leute

genau das wars

Dank euch!

Gruß Matthias

Back2Code 24. Okt 2013 16:11

AW: getusername und passwort
 
Zitat:

Zitat von matashen (Beitrag 1233051)
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.:thumb:

matashen 24. Okt 2013 16:37

AW: getusername und passwort
 
Zitat:

Zitat von Back2Code (Beitrag 1233052)
Zitat:

Zitat von matashen (Beitrag 1233051)
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.:thumb:

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.

romankassebaum 24. Okt 2013 20:53

AW: getusername und passwort
 
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

hathor 24. Okt 2013 21:51

AW: getusername und passwort
 
Ein bisschen Code:

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:

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz