sábado, 30 de novembro de 2013

Função Utilizada para obter o nome do usuario que está conectado (logado) na rede


//Parâmetros: Upc que indicará se o retorno será ou não em Uppercase.
//Retorna: String (com o nome do usuario que está logado.
//Utilizada para obter o nome do usuario que está conectado (logado) na rede.

Function UserName(Upc: Boolean): String ;
Var
   buffer: Array[0..255] Of char ;
   buffSize: DWORD ;
   Usuario: String ;
Begin
   buffSize := sizeOf(buffer) ;
   GetUserName(@buffer, buffSize) ;
   Usuario := buffer ;
   If Upc Then
      Result := Uppercase(Usuario)
   Else
      Result := Usuario ;
End ;

Nenhum comentário:

Postar um comentário