Fórum Nume do Usuário e nome do Computador #174212

Pegando nome do usuário na rede
Categoria: Rede

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. }


Função que retorna o nome do computador
Categoria: Windows

Uses Registry;
function TForm1.Getcomputer : string;
var
registro : tregistry;
begin
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey(´System\CurrentControlSet\Services\VXD\VNETSUP´,false);
result:=registro.readstring(´ComputerName´);
end;