Как получить название учетной записи?

[А.Америка]

:rolleyeyes:

[Hellost]

Почему я написал название темы в гугл, и на певрой же странице получил ответ?!Ты так же не мог?
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

[А.Америка]

Нашел решение проблемы
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;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=GetCurrentUserName;
end;

[*xalyava*]

Какой учетной записи, по подробнее!

имя учетной записи на компьютере!
при установке винды ты вводил имя, вот оно