, hoe de huidige gebruikers login, gebruikersnaam: touw, de functie, het variabele afmetingen:,,,,,, dword; naam: PChar vormen;,,,, naam: = stralloc (256);,, afmetingen: = 255;,, als GetUserName (naam, afmetingen en dan de resultaten:,,) =... (naam), en de andere, de resultaten: = ";,,,,, aan het einde van StrDispose (naam);,,,