Ich schreibe gerade an einem kleinen Programm, welches den normalen Herunterfahren- und Abmeldendialog ersetzen soll. (also nicht im System ersetzen, man startet einfach das Programm an Stelle von Computer Ausschalten im Startmenü)
Für alles weitere: ich benutze WinXP Home
Da soll auch Bildschirm sperren mit rein. Nun soll der Button dafür aber nur dann angezeigt werden, wenn der Benutzer auch ein Passwort hat, ansonsten ist es ja sinnlos.
Also habe ich mit der NetUserGetInfo funktion angefangen, bin nun aber am Ende meines Einfallsreichtums
Mein Hauptproblem ist jetzt: Ich weiß einfach nicht, woher ich den Wert von UF_PASSWD_NOTREQD bekomme!
Mal so noch zum drüber sehen meine Funktion:
Delphi-Quellcode:
USER_INFO_1 = packed record
usri1_name: LPWSTR;
usri1_password: LPWSTR;
usri1_password_age: DWORD;
usri1_priv: DWORD;
usri1_homde_dir: LPWSTR;
usri1_comment: LPWSTR;
usri1_flags: DWORD;
usri1_script_path: LPWSTR;
end;
function NetUserGetInfo(servername: LPCWSTR; username: LPCWSTR; level: DWORD; var bufptr: Pointer): DWORD;
stdcall; external 'netapi32.dll' name 'NetUserGetInfo';
function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall;
external 'netapi32.dll' name 'NetApiBufferFree';
{ ... }
function TMainForm.IsPasswordRequired: Boolean;
const
UF_PASSWD_NOTREQD = 32;
var
Info: USER_INFO_1;
P: Pointer;
UserName: PWideChar;
nSize: Cardinal;
begin
nSize := 0;
GetUserNameW(NIL, nSize);
GetMem(UserName, nSize*2+1);
GetUserNameW(UserName, nSize);
NetUserGetInfo(NIL, UserName, 1, P);
Info := USER_INFO_1(P^);
Result := not ((Info.usri1_flags and UF_PASSWD_NOTREQD) = UF_PASSWD_NOTREQD);
NetApiBufferFree(P);
FreeMem(UserName);
end;