Hi,
this is how you can get some info's from a logged User:

unit pwdlibc;
{--------------------------------------------------------------------------- CncWare
(c) Copyright 1999
---------------------------------------------------------------------------- Filename..: pwdlibc.pp
Programmer: Ken J. Wright
Date......: 10/01/1999

Purpose - Link to the Linux 'c' library for system passwd functions.

-------------------------------< Revisions

---------------------------------

Revision| Date | Prog| Description
---------------------------------------------------------------------------- -
1.00 | 10/01/99 | kjw | Initial release.
---------------------------------------------------------------------------- -
}

interface
{$linklib c}

{$PACKRECORDS 4}
Type

   pPasswd = ^passwd;
   passwd  = Record
      pw_name,                         { Username }
      pw_passwd : pChar;               { Password }
      pw_uid,                          { User ID }
      pw_gid : longint;                { Group ID }
      pw_gecos,                        { Real Name }
      pw_dir,                          { Home directory }
      pw_shell : pChar;                { Shell program }
   End;

   pGroup = ^group;
   group  = Record
      gr_name,                         { Group name }
      gr_passwd : pChar;               { Password }
      gr_gid : longint;                { Group ID }
      gr_mem : pChar;                  { Member list }
   End;
{ returns a pointer to a passwd record }
Function getpwuid(uid : longint) : pPasswd; cdecl;
Function getpwnam(nam : pChar) : pPasswd; cdecl;
{ returns a pointer to a group record }
Function getgrgid(gid : longint) : pGroup; cdecl;
Function getgrnam(nam : pChar) : pGroup; cdecl;
implementation
Function getpwuid(uid : longint) : pPasswd; cdecl; External;
Function getpwnam(nam : pChar) : pPasswd; cdecl; External;
Function getgrgid(gid : longint) : pGroup; cdecl; External;
Function getgrnam(nam : pChar) : pGroup; cdecl; External;
end.

my regards,
Stefan

Hello, Every body Can you tell me how to get the Home Directory of a user in free pascal

under

linux? Thank you very much. Yours, mili

How to check if a call to getpwnam had success?
How to change user information?

I made this program to test but the 'if' never matches. Entering a valid user, I had to remove de 'if' to see user's gecos, by the other hand, entering an invalid user, the program crashes on the 'if'.

program test;
uses
  pwdlibc;
var
  pwd : pPasswd;
  user: pChar;
begin
  user := '';
  write('Usuário: ');
  readln(user);
  pwd := Getpwnam(user);
  if user = pwd^.pw_name then
    begin
      writeln('(',pwd^.pw_name,')');
      writeln('(',pwd^.pw_gecos,')');
    end
  else
    writeln(user,' not found!');
end.

You are trying to compare strings with pchars; this will not work.

You should define this as a string. Define a second pchar 'puser';
    user : string;
    puser : pchar;

Add here

   user:=user+#0;
   ;

pwd := Getpwnam(user); if user = pwd^.pw_name then

Change the above by
    if strcmp(puser,pwd^.pw_name)=0 then

and it should work.

Michael.

On Fri, 6 Sep 2002, [iso-8859-1] Hélio Cavichiolo Jr wrote: > How to check if a call to getpwnam had success? > How to change user information?

And the above questions, anyone knows the answers?

I think you mean strcomp from strings unit, right? It works if user exists, otherwise the program crashes. I think there is another way to know when the Getpwname returns ok or fail.

I missed the rest of this thread, but in case you still want to know, the very easiest way to get the users home directory:

Uses linux;
Var
HomeDir :String
<snip>
HomeDir := GetENV('HOME');

Original Message:
-----------------

LOL

I didn't mean subject one, I mean the following ones:

How to check if a call to getpwnam had success?

How to change user information?