Delphi 取Windows登录用户名

本文整理自网络，侵删。

 
//取本机的计算机名
{ ComputerName }
function ComputerName: string;
var
    FStr: PChar;
    FSize: Cardinal;
begin
    FSize := 255;
    GetMem(FStr, FSize);
    Windows.GetComputerName(FStr, FSize);
    Result := FStr;
    FreeMem(FStr);
end;

//取Windows登录用户名
{ WinUserName }
function WinUserName: string;
var
    FStr: PChar;
    FSize: Cardinal;
begin
    FSize := 255;
    GetMem(FStr, FSize);
    GetUserName(FStr, FSize);
    Result := FStr;
    FreeMem(FStr);
end;
 

相关阅读 >>

Delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法

Delphi datasnap使用ipv6

Delphi listbox自动获取列表框中的组件焦点

Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar

Delphi 取得txt文件编码

Delphi判断ie是否使用代理

Delphi tlist性能注意事项

Delphi idtcp下载文件

Delphi写的dll回调c#

Delphi settimer 用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 取Windows登录用户名