code:AnsiString nombre;nombre.SetLength(MAX_COMPUTERNAME_LENGTH+1);DWORD size;size = nombre.Length();if (GetComputerName(nombre.c_str(), &size)) Label1->Caption = AnsiString ("Nombre : ") + nombre;else Label1->Caption = "Nombre : no disponible";
AnsiString nombre;nombre.SetLength(MAX_COMPUTERNAME_LENGTH+1);DWORD size;size = nombre.Length();if (GetComputerName(nombre.c_str(), &size)) Label1->Caption = AnsiString ("Nombre : ") + nombre;else Label1->Caption = "Nombre : no disponible";
#include "vcl/registry.hpp" // Codigo: // ------------------------------------------------------------- TRegistry *Estacion = new TRegistry(); Estacion->RootKey = HKEY_LOCAL_MACHINE; Estacion->OpenKey("\\System\\CurrentControlSet\\Control\\ComputerName\\ComputerName",true); ShowMessage(Estacion->ReadString("ComputerName")); delete Estacion; // -----------------------------------------------------------------