Огромное спасибо! Мне, собственно и нужна была функция "GetUserName", все работает корректно.
2 2015-06-10 19:12:31
Topic: Как получить имя пользователя? (3 replies, posted in Russian)
Этот скрипт не работает:
function GetCurrentUserName: string;
const
cnMaxUserNameLen = 254;
var
sUserName: string;
dwUserNameLen: DWORD;
begin
dwUserNameLen := cnMaxUserNameLen - 1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := sUserName;
end;
Если можно, добавьте пожалуйста рабочий пример.