Hi,
there is a way in order to get the real name of a linux/windows user?
In order to get the login name (linux) I used:
  Result.Name:= GetEnvironmentVariable('USERNAME');
  if Result.Name = '' then
    Result.Name:= GetEnvironmentVariable('USER');

I know that in linux I can use libc (getpwuid(fpgetuid)^.pw_gecos) but I am trying to avoid use of libc.
Any suggestion?
Andrea

That is exactly how we have been using it as well - for the last 4 years. No issues so far.

Regards,
- Graeme -

_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/

Have a look at the users package. This is afaik 2.2.2+ though.

Thanks Marco.
I solved using GetUserData procedure from users unit.

  GetUserData(FpGetuid, Data);
  Result.Name:= Data.pw_name;
  Result.Real_name:= Data.pw_gecos;
  Result.User_id:= Data.pw_uid;
  Result.Group_id:= Data.pw_gid;
  Result.home_dir:= Data.pw_dir;
  Result.shell:= Data.pw_shell;

Marco van de Voort ha scritto:

In our previous episode, Andrea Mauri said:

Note that that avoids _unit_ libc but not _library_ libc.

That said, the above example code will probably work well on FreeBSD and OS X too (contrary to _unit_ libc)

Marco van de Voort ha scritto:

That's what I want.
a.

Sorry for digging up an old thread...

I just want to know... Is this code crossplatfrom?

GetUserData(FpGetuid, Data);

If not, is some of it? Specifically the Data.pw_name

Regards,
-Reenen

It definitely won't work on Windows, but all unix-like platforms should be fine.

Michael.

Ok, so if I want code in which I want to get the username, which is crossplatform... how should it look?

{$ifdef windows}
  username := GetEnvironmentVariable('USERNAME');
{$endif}
{$ifdef linux}
  GetUserData(FpGetuid, Data);
  username := Data.pw_uid;
{$endif}

How about MacOS?

Also, as a matter of interest... what types are FpGetuid and Data?

(I use "users")?

Regards,
-Reenen

On Wed, Jan 14, 2009 at 9:24 AM, Michael Van Canneyt <

I'm not sure if this is correct; There is a windows call to get the current user name.

For MacOS the linux construct should work ?

Also, as a matter of interest... what types are FpGetuid and Data?

Integer (or word) and pw_nam, I think ?

Michael.

2009/1/14 Reenen Laurie :

{$ifdef windows} username := GetEnvironmentVariable('USERNAME'); {$endif}

Nope, change that to something like:

var
  userNameBuffer: array[0..255] of char;
  sizeBuffer: DWord;
begin
  SizeBuffer := 256;
  getUserName(userNameBuffer, sizeBuffer);
  result := string(userNameBuffer);

Change that to {$ifdef unix} instead.

Regards,
- Graeme -

_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/