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

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s