Delphi实现得到登陆用户名

最新推荐文章于 2024-05-14 16:01:05 发布

原创最新推荐文章于 2024-05-14 16:01:05 发布 · 1.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #function #string

本文展示了一段使用Pascal语言编写的代码，该代码通过调用Windows API函数GetUserName来获取当前登录用户的名称。首先分配内存用于存放用户名，然后尝试获取用户名，如果失败则释放内存并返回空字符串。

Function TForm1.GetLocalName():String;
Var UserName : PChar;
    Size : Dword;
Begin
Getmem(UserName ,255);
Size:=255;
if Windows.GetUserName(UserName,Size) = False then
begin
    Freemem(UserName);
    GetLocalName := '';
    Exit;
end;
GetLocalName := UserName ;
Freemem(UserName);
end;