delphi GetComputerName() GetUserName() 获取本机当前用户名

本文整理自网络，侵删。

 {获取本机当前用户名}//调用 返回值:= GetUser();function GetUserName(): string;var Buffer: array[0..255] of ｃｈａｒ; Size: cardinal;begin Size := 256; if GetUserName(Buffer, Size) then  begin    Result := Buffer  end else   begin    Result := 'Unknown'   end;end;
{获取计算机名}//调用 返回值:= GetComputerName();function GetComputerName(): string;var  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of ｃｈａｒ;  Size: Cardinal;begin  Size := MAX_COMPUTERNAME_LENGTH + 1;  Windows.GetComputerName(@buffer, Size);  Result := StrPas(buffer);end;
 

相关阅读 >>

Delphi中的处理事件 application.processmessages

Delphi设置屏幕分辨率的函数

Delphi 写3389自动登录器

Delphi资源文件的详细使用方法

Delphi 修改快捷方式

Delphi的combobox不能输入只能选择

重新组织编写Delphi的md2、md4、md5类

Delphi打开文件夹并定位到一个文件

winapi 字符及字符串函数(1): charlower - 字符或字符串转小写

Delphi 新版 thttpclient组件同步下载文件方法

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