Как получить имя текущего пользователя? |
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