Логин пользователя

[Мэс]

Всем здрасте! Подскажите, как в ходе работы проги узнать логин пользователя под которым он зашел в систему winxp???

[apocalypce]

в реестре можно инфу забрать

[Arigato]

Функция GetUserName.

[Мэс]

Сообщение от Arigato

Функция GetUserName.

Ага, только у меня какая-то бесмыслица получается:

  GetUserName(a, n);
  Label1.Caption := a;

может надо просто a:PAnsiChar конвертнуть в string, только я такой функции не знаю

[spamer]

Вот в инете есть такое:

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;

[Мэс]

всем спасибо!!!