Ich benötige für ein kleines Programm den Usernamen.
function Get_user_name:string;
var User_namechar;
dw :dword;
begin
result:='Kein User erkannt!';
if GetUserName(User_name,dw)then
result :=strpas(User_name);
end;
Ich bekomme als Result von GetUserName immer eine 0 zurück, also Fehler.
LookupAccountName - Funktion geht ebenfalls nicht.
Diese Funktion soll auf NT40,W2K,XP und Win98 laufen. Alle Rechner laufen im LAN. Was mache ich falsch?
function Get_user_name:string;
var User_namechar;
dw :dword;
begin
result:='Kein User erkannt!';
if GetUserName(User_name,dw)then
result :=strpas(User_name);
end;
Ich bekomme als Result von GetUserName immer eine 0 zurück, also Fehler.
LookupAccountName - Funktion geht ebenfalls nicht.
Diese Funktion soll auf NT40,W2K,XP und Win98 laufen. Alle Rechner laufen im LAN. Was mache ich falsch?
Comment