VPF::Имя текущего пользователя. - Форум программистов

Elfebet

Дата 19.8.2006, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

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

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

Elfebet

Дата 19.8.2006, 11:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

Спасибо!

Код


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

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

Это сообщение отредактировал(а) z-END - 19.8.2006, 11:05

--------------------

Программист не должен всё знать... он должен знать где можно посмотреть

ilya198293

Дата 9.6.2008, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

Репутация: нет
Всего: нет

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

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

THandle

Дата 9.6.2008, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

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 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

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

)

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

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

--------------------

(* Honesta mors turpi vita potior *)

ilya198293

Дата 9.6.2008, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

photozaz

Дата 16.9.2009, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 6.5.2008

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) photozaz - 16.9.2009, 18:25

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »