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

← →
TStas © (2007-01-25 22:47) [0]

Вот и весь сабж

← →
Dmitrij_K (2007-01-25 22:48) [1]

как ни странно
GetUserName()

← →
Anatoly Podgoretsky © (2007-01-25 22:51) [2]

> TStas (25.01.2007 22:47:00) [0]

Получить Пользователя Имя - только по английски.
Вот и весь ответ.

← →
TStas © (2007-01-25 22:52) [3]

Только Дельфи пишут, что не достаточно параметров:(

← →
Anatoly Podgoretsky © (2007-01-25 22:53) [4]

> TStas (25.01.2007 22:52:03) [3]

Ну так добавь.

← →
Apachi (2007-01-25 22:54) [5]

function TMainForm.GetUserFromWindows: string;
var
UserName : string;
UserNameLen : Dword;
begin
UserNameLen := 255;
SetLength(userName, UserNameLen);
if GetUserName(PChar(UserName), UserNameLen) then
Result := Copy(UserName,1,UserNameLen - 1)
else
Result := "Unknown";
end;

> Apachi

Зачем доп. переменная UserName ?
Можно использовать сразу строковую переменную Result

Как получить имя текущего пользователя на компе? Найти похожие ветки