Usuário ID

O exemplo a seguir usa um Button que, ao receber um clique, exibe uma caixa de mensagens com o usuário ID da máquina:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
LPTSTR usuario;
unsigned long uns_lg = 256;
char ch[256];
usuario = ch;
if( GetUserName(usuario, &uns_lg) )
Label1->Caption = usuario;

}