Как получить имя текущего пользователя?
Falk0ner, вс, 06/07/2008 - 15:35.
function GetCurrentUser: string;
var
pwrec: PPasswordRecord;
begin
pwrec := getpwuid(getuid);
Result := pwrec.pw_name;
end;
var
pwrec: PPasswordRecord;
begin
pwrec := getpwuid(getuid);
Result := pwrec.pw_name;
end;
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Отправить комментарий