Hallo Zusammen,
folgendes Pro, der Source unten, bringt statt des vollen Usernamens den
Fehler 2220 (The group name could not be found.) was mir ja nun irgend wie
nicht ganz einleuchtet, da ich USER angaben abfordere und keine Gruppen
Infos. Davon abgesehen entspricht der Soruce (der im ürbigen nicht
von mir stammt :-) genau den vorgaben aus der MSDN.
Könnte mir jemand verraten wo das Problem dabei ist?
Danke
Heiko
------- Source -----
procedure TForm1.FormCreate(Sender: TObject);
function GetUserFullName(username,server:string):string;
type user_info_10=record
namewidechar;
commentwidechar;
usr_commentwidechar;
full_namewidechar;
end;
var userw,serverwwidechar;
st:^user_info_10;
ret:dword;
begin
result:='';
if server <> '' then
server:=concat('\\',server);
userw:=allocmem(50);
StringToWidechar(username,userw,length(username)+1 );
serverw:=allocmem(50);
stringtowidechar(server,serverw,length(server)+1);
ret := NetUserGetInfo(serverw,userw,10,@st);
if ret = 0 then result:=widechartostring(st^.full_name)
else Result := 'Error : ' + inttostr(Ret);
freemem(userw);freemem(serverw);
NetApiBufferFree(st);
end;
begin
showmessage(getuserfullname('GAST', ''));
end;
end.
------- Source Ende ------
folgendes Pro, der Source unten, bringt statt des vollen Usernamens den
Fehler 2220 (The group name could not be found.) was mir ja nun irgend wie
nicht ganz einleuchtet, da ich USER angaben abfordere und keine Gruppen
Infos. Davon abgesehen entspricht der Soruce (der im ürbigen nicht
von mir stammt :-) genau den vorgaben aus der MSDN.
Könnte mir jemand verraten wo das Problem dabei ist?
Danke
Heiko
------- Source -----
procedure TForm1.FormCreate(Sender: TObject);
function GetUserFullName(username,server:string):string;
type user_info_10=record
namewidechar;
commentwidechar;
usr_commentwidechar;
full_namewidechar;
end;
var userw,serverwwidechar;
st:^user_info_10;
ret:dword;
begin
result:='';
if server <> '' then
server:=concat('\\',server);
userw:=allocmem(50);
StringToWidechar(username,userw,length(username)+1 );
serverw:=allocmem(50);
stringtowidechar(server,serverw,length(server)+1);
ret := NetUserGetInfo(serverw,userw,10,@st);
if ret = 0 then result:=widechartostring(st^.full_name)
else Result := 'Error : ' + inttostr(Ret);
freemem(userw);freemem(serverw);
NetApiBufferFree(st);
end;
begin
showmessage(getuserfullname('GAST', ''));
end;
end.
------- Source Ende ------
Comment