Bueno aquí va una respuesta más detallada:
Código:
TCHAR szComputer[MAX_COMPUTERNAME_LENGTH + 1];
DWORD dwSize = sizeof(szComputer);
if (GetComputerName(szComputer, &dwSize))
{
Edit1->Text = szComputer;
}
La incorporé a los
trucos ya que sólo existía la forma de hacerlo en Delphi.