Captura o Usuário Logado no Windows

Salve salve amigos,

Veja nesta dica uma pequena e simples função que é capaz de retornar o nome do usuário logado no Windows. Pode ser muito útil, por exemplo, para incrementar a gravação de logs das operações de seu sistema.

// Função para capturar o usuário logado no windows:

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


// Para visualizar, basta fazer, por exemplo:

Edit1.text := GetNetUserName;


Take care