Mega Code Archive
How to get username
<![CDATA[
Another solution (my favorite)
function GetUserName(Var Name:String):Boolean;
var I : integer
begin
I := 100 ; {buffer length}
setlength (Name,I) ;
GetUserName (pchar(Name),I) ;
setlength (Name,I) ;
Result := (I <> 0) ;
end ;
]]>