Odczytywanie nazwy komputera

Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlona została nazwa komputera wywołujemy funkcję Windows API GetComputerName() podając jako argumenty adres zmiennej, której zostanie przypisana nazwa komputera i adres zmiennej zawierającej długość nazwy komputera:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   DWORD dwSize = MAX_COMPUTERNAME_LENGTH + 1;
   char szBuf[MAX_COMPUTERNAME_LENGTH + 1];
   szBuf[0] = '\0';
   GetComputerName(szBuf, &dwSize);
   Label1->Caption = szBuf;
}