Buscar

Captura usuário logado

Código

//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;

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Windows
Adicionada dia: 19/08/08
Por: Jean Posser
Visualizada: 12567 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009