[Mishko]

Уважаемые профи, такая проблема: в определенный момент netapi32.GetCurrentUser выдает "система", хотя пользователь "lukianov". Может кто сталкивался?

[lmikle]

я польщую вот такой код. Вроде, сбоев небыло:

Код:

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

[Страдалецъ]

Несколько покороче:

Код:

function GetActiveUserName: String;
begin
 Result := GetEnvironmentVariable('USERNAME');
end;

[lmikle]

Честно говоря, я не помню, почему именно такой код с такими извращениями. Какие-то там подводные камни были. Кроме того, это функция из конкретного приложения, где мне надо было обязательно получить какое-нить значение, даже есть обломался вызов api.

[Mishko]

GetEnvironmentVariable('USERNAME') - выдает в конце логина символ$. Что это значит?

[Страдалецъ]

А у вас какая ось и комп случаем не в домене?