@MPirnstill: Nur so am Rande, den aktuellen Benutzer sollte man mit der entsprechenden
API Funktion auslesen:
Delphi-Quellcode:
////////////////////////////////////////////////////////////////////////////////
// Procedure : UserName
// Comment : Returns the name of the currently loggon user
function GetCurrUserName: string;
var
Size : DWORD;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
SetLength(Result, Size);
if GetUserName(PChar(Result), Size) then
SetLength(Result, Size)
else
Result := '';
end;
Und sichnicht daraufverlassen, dass diese Information in der nächsten Windows Version angleicher Stelle in der Registry steht.