Имя учетной записи

[Sh.I.Va]

как сделать что-бы delphi читал имя учётной записи пользователя. и выводил ее ну скажем на listbox

[Rififi]

Sh.I.Va

как сделать что-бы delphi читал имя учётной записи пользователя. и выводил ее ну скажем на listbox

что такое "имя учётной записи пользователя"?

[Stilet]

   // Получение полного имени пользователя из логина
function LoginFullName( ComputerName:string;login:string=''):string;
const NERR_BASE =      2100;
      NERR_InvalidComputer   =NERR_BASE+251;
      NERR_UserNotFound      =NERR_BASE+121;
var
   pwLogin:PWideChar;
   pwComputerName:PWideChar;
   Res:LongInt;    p:array[0..255] of Char; nz:cardinal;
   ui10:pUserInfo10;
begin

   GetMem(pwLogin, 512);
   GetMem(pwComputerName, 512); nz:=255;
  if login='' then  begin
   GetUserName(p,nz);
   StringToWideChar(string(p),pwLogin,255);
  end else
  StringToWideChar(login,pwLogin,255);
  StringToWideChar(ComputerName,pwComputerName,255);
   Result:='';

   Res:=NetUserGetInfo(pwComputerName,pwLogin,10,@ui10);
   if Res<>NO_ERROR then begin
    //****** CASE ******
    case res of
      ERROR_ACCESS_DENIED: result:='ERROR_ACCESS_DENIED';
      NERR_InvalidComputer: result:='NERR_InvalidComputer';
      NERR_UserNotFound: result:='NERR_UserNotFound';
    end;
    //****** END CASE ******
   end else
    Result:=WideChartoString(ui10.usri10_full_name);

   NetApiBufferFree(ui10);
   FreeMem(pwLogin);
   FreeMem(pwComputerName);
end;

Требует описания

function NetUserGetInfo(ServerName:PWideChar;
      UserName:PWideChar;Level:DWORD;
      BufPtr:Pointer):DWORD;stdcall; external 'netapi32.dll';

 function NetApiBufferFree(pBuffer: pointer): Longint; stdcall; external
 'netapi32.dll';