Buscar

Pegando nome do usuário na rede

Código

Function TForm1.usuario : string;
var
szNetName: Array[0..48] of Char;
iResult: DBIResult;
begin
iResult:= DBIGetNetUserName(szNetName);
if iResult <> DBIErr_None then
DBIError( iResult )
else
Result:= StrPas(szNetName);
end; {Colocar na Uses : DBITYPES, DBIPROCS, DBIERRS, DBTables e DB. }

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Rede
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 4460 vezes

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