Odczytywanie nazwy użytkownika

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

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   DWORD Rozmiar = 0;
   GetUserName(NULL, &Rozmiar);
   char *Uzytkownik = new char[Rozmiar];
   Uzytkownik[0] = '\0'; GetUserName(Uzytkownik, &Rozmiar);
   Label1->Caption = "Aktualny użytkownik: " + (AnsiString)Uzytkownik;
   delete [] Uzytkownik;
}