![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить имя текущего пользователя на компе?
TStas © (2007-01-25 22:47:00)Вот и весь сабж
B.B. (2007-01-25 23:51:00) [1]
> Apachi
Зачем доп. переменная UserName ?
Можно использовать сразу строковую переменную Result
Apachi (2007-01-25 22:54:00) [2]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;
Anatoly Podgoretsky (2007-01-25 22:53:00) [3]> TStas (25.01.2007 22:52:03) [3]
Ну так добавь.
TStas (2007-01-25 22:52:00) [4]Только Дельфи пишут, что не достаточно параметров:(
Anatoly Podgoretsky (2007-01-25 22:51:00) [5]> TStas (25.01.2007 22:47:00) [0]
Получить Пользователя Имя - только по английски.
Вот и весь ответ.
Dmitrij_K (2007-01-25 22:48:00) [6]как ни странно
GetUserName()