Mega Code Archive
Get the current user
<![CDATA[
How to get the current user's login name.
function UserName : String;
var
Size : DWord;
Name : PChar;
begin
Name := StrAlloc(256);
Size := 255;
if GetUsername(Name,Size) then
Result := String(Name)
else
Result := '';
StrDispose(Name);
end;
]]>