Доња функција ће вратити корисничко име пријављеног корисника, ради у Виндовс НТ и Виндовс95/98.
Јавна функција декларисања ГетУсерНаме Либ "адвапи32.длл" _ Алиас "ГетУсерНамеА" (БиВал лпБуффер Ас Стринг, нСизе Ас Лонг) Ас Лонг Функција РетурнУсерНаме () Ас Стринг 'враћа НТ домену Корисничко име Дим рСтринг Ас Стринг * 255, сЛен Ас Лонг , тСтринг Ас Стринг тСтринг = "" Он Еррор Ресуме Нект сЛен = ГетУсерНаме (рСтринг, 255) сЛен = ИнСтр (1, рСтринг, Цхр (0)) Иф сЛен> 0 тхен тСтринг = Лефт (рСтринг, сЛен - 1) Елсе тСтринг = рСтринг Крај ако је грешка Иди на 0 РетурнУсерНаме = УЦасе (Трим (тСтринг)) Крај функција
Ако не желите да вратите корисничко име мреже,
али желите да вратите корисничко име које је корисник регистровао у апликацији, можете то учинити:
АцтивеУсерНаме = Апплицатион.УсерНаме