Nume do Usuário e nome do Computador
Alguém sabe me dizer um afunção que retorne o nome do usuário logado na máquina e também o nome da máquina?
Tenho uns mas eles varia de acordo com a versão do Windows, pois buscam dos registros do mesmo. Preciso de uma função que funcione em qualquer versão do Windows.
Tenho uns mas eles varia de acordo com a versão do Windows, pois buscam dos registros do mesmo. Preciso de uma função que funcione em qualquer versão do Windows.
Gwglauber
Curtidas 0
Respostas
Fava
11/08/2003
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;
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;
GOSTEI 0