Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Имя текущего пользователя.

Автор: Elfebet 19.8.2006, 10:48

мне нужно получить имя пользователя текущего сеанса, как можно получить его по проще?

Автор: Elfebet 19.8.2006, 11:02

Спасибо!

Код


function 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;

M
z-END

думаешь кнопку код сделали чтобы я ее нажимал?

Автор: ilya198293 9.6.2008, 13:22

А как можно узнать имя компьютера?

Автор: THandle 9.6.2008, 13:33

ilya198293, да точно так же smile

Код


function GetUserFromWindows: string;
var UserName    : string;
    UserNameLen : Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetComputerName(PChar(UserName), UserNameLen) then Result := Copy(UserName,1,UserNameLen)
  else Result := 'Unknown';
end;

Автор: Rennigth 9.6.2008, 13:42

Цитата(Elfebet @ 19.8.2006, 10:48

)

как можно получить его по проще

GetEnvironmentVariable('ComputerName');
GetEnvironmentVariable('UserName');
smile

Автор: ilya198293 9.6.2008, 14:35

примного благодарен

Автор: photozaz 16.9.2009, 18:25

Rennigth: спасибо!!!