Получение имени текущего пользователя Windows.
1 2 3 4 5 6 |
var nm: string; begin nm:= GetCurUserName(); ShowMessage(nm); end; |
Параметры
Нет
Результат
Имя пользователя или пустая строка в случае неудачи.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
function GetCurUserName: string; var sUserName: string; dwUserNameLen: DWORD; nameLen: Integer; begin try nameLen:= 254; dwUserNameLen := nameLen - 1; SetLength(sUserName, nameLen); GetUserName(PChar(sUserName), dwUserNameLen); SetLength(sUserName, dwUserNameLen); Result := sUserName; except Result := ''; end; end; |