Capturar Nome do Usuário Logado no Windows

[FusioN]

Bom Pessoal depois de augum tempinho sem postar tutoriais, neste aqui vou encinar a vocês a pegar o nome do usuario logado no windows.

1° Declare a Função:

Function GetNetUserName: string;
Var
NetUserNameLength: DWord;
Begin
NetUserNameLength:=50;
SetLength(Result, NetUserNameLength);
GetUserName(pChar(Result),NetUserNameLength);
SetLength(Result, StrLen(pChar(Result)));
End; 

2° Crie um Label.

3° Na aba Events do Form, Procure por OnActive e Clique duas vezes adcionando o code:

Label1.Caption:=GetNetUserName; 

Creditos:

FusioN
Jean Posser