如何使用api函数:GetUserName？

[jianling0538]

请大侠提供完整调用过程，非常感谢

[一点点凋落]

该函数获得当前进程的用户名。
var
ss: PChar;
size: DWord;
begin
getmem(ss,255);
if GetUserName(ss,Size) then
showmessage(strpas(ss));