Delphi 获取计算机名称3


本文整理自网络,侵删。

 
function GetComputerName: string;
var
  buffer: array [0 .. MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Result := 'N/A';
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Winapi.Windows.GetComputerName(@buffer, Size);
  Result := StrPas(buffer);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Caption:=GetComputerName;
end;

相关阅读 >>

Delphi 之 标签组件(tlabel组件)

Delphi 关于选择文件路径 selectdirectory 弹出窗口居中的问题

Delphi firedac操作sqlite内存数据库

Delphi通过idsmtp发送邮件的简单代码

Delphi文件分割合并

Delphi xe10对json的解析应用

Delphi 遍历系统窗口标题可用于反外挂反破解

Delphi randstring 随机字符串

Delphi 获取jpg文件宽度高度的方法

Delphi for 循环的例子 多种用法

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...