Как получить имя текущего пользователя?

Previous  Top  Next

    
 

 

 

Code:

function GetCurrentUser: string;

var

pwrec: PPasswordRecord;

begin

pwrec := getpwuid(getuid);

Result := pwrec.pw_name;

end;

 

©Drkb::04592

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php