Uses Registry;
function TForm1.Getcomputer : string;
var
registro : tregistry;
begin
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey('SystemCurrentControlSetServicesVXDVNETSUP',false);
result:=registro.readstring('ComputerName');
end;
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário