Windows Benutzerdaten prüfen

[Hendrik Lenz]

Hallo,

in meiner Anwendung soll der User die aktuelle Windows Anmeldung (Benutzer und Kennwort) hinterlegen.

Gibt es eine Möglichkeit die hinterlegten Daten dann zu prüfen, also ob der Benutzer und das Kennwort korrekt sind.

Im Fehlerfall will ich dann einen Hinweis ausgeben beispielsweise wenn das Kennwort geändert wurde und in meiner Anwendung das Kennwort noch nicht angepasst wurde und das alte Kennwort hinterlegt ist will ich den User darauf aufmerksam machen.

Vielen Dank und Gruß
Hendrik

[Jens Reiber]

Hallo Hendrik,

hier ein paar Funktionen die Dir Informationen über den Rechner oder Benutzer geben.

(uses windows, winsock)

function UserName: String;
// Erstellt durch :Reiber
// Erstellt am : 2005
// Gibt den aktuellen Namen des Benutzers zurück
var
u:array[0..127] of Char;
sz: dword;
begin
sz:= SIZEOF(u);
GetUserName(u,sz);
result:= u;
end;

function ComputerName:String;
// Erstellt durch :Reiber
// Erstellt am : 2005
// Gibt den Computernamen als String zurück
var
buffer: array[0..255] of char;
size:dword;
begin
size:= 256;
if GetComputerName(buffer,size) then
result:= buffer
else
result:='';
end;

function IP_Adresse:string;
// Erstellt durch :Reiber
// Erstellt am : 2005
// Gibt die IP-Adresse des Rechners als String zurück
var
Buffer: array[0..100] of char;
WSAData: TWSAData;
phoste: PHostEnt;
begin
result:='';
if WSAStartup($0101,wsadata)<>0 then exit;
gethostname(Buffer,sizeof(buffer));
phoste:= gethostbyname(buffer);
if phoste = nil then result:='127.0.0.1'
else result := strPas(inet_ntoa(Pinaddr(phoste^.h_addr_list^)^));
WSACleanup;
end