VPF::Получить имя текущего пользователя в Win

BEST13

Дата 4.6.2010, 21:35 (ссылка)

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

Загрузка ...

Бывалый

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

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

Подскажите,как получит имя текушего пользователя (активное учётной записи)?
Желательно с примером, а то я в MSDN был только, там не примеров для делфи...

kami

Дата 4.6.2010, 22:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Код


uses
  SysUtils;

begin
  ShowMessage(GetEnvironmentVariable('username'));
end;

Ку?

Добавлено @ 22:08
Вариант с узнаванием по текущему потоку:

Код


var
  i:cardinal;
  s:string;

begin
  i:=MAX_PATH;
  SetLength(s, i);
  if GetUserName(@s[1], i) then
    begin
      SetLength(s, i-1);
      ShowMessage(s);
    end;

способов получить имя юзера - вагон и маленькая тележка.

Это сообщение отредактировал(а) kami - 4.6.2010, 22:44

DarkProg

Дата 4.6.2010, 22:19 (ссылка)

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

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

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

Цитата(BEST13 @ 4.6.2010, 21:35

)

а то я в MSDN был только

В MSDN если хорошо поковыряетесь то можете найти пример с WinAPI, который будет работать как на С так и на Delphi, но это нужно хорошо ковыряться, посему мой вам совет скачайте DRKB и DelphiWorld(это как бонус, там просто есть статьи которые будет интересно и полезно почитать)

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

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

BEST13

Дата 5.6.2010, 01:09 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всем спасибо, буду пробовать!

Данкинг

Дата 5.6.2010, 03:06 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Из ДРКБ, суть та же, что в примере kami:

Код


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 := '';

end;

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

There's nothing left but silent epitaphs.

BEST13

Дата 7.6.2010, 18:44 (ссылка)

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

Загрузка ...

Бывалый

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

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

Данкинг, спасибо огромное.

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