delphi 获取计算机名称 函数

本文整理自网络，侵删。

 
function GetComputerNetName: string;
var
  buffer: array [0 .. 255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;
 

相关阅读 >>

Delphi 类和对象

Delphi fmx检测屏幕旋转

Delphi xe5 android toast

Delphi 拷贝dbgrid当前行

Delphi提取字符串

Delphi kmp(字符串匹配)算法

Delphi case选择语句练习代码简化

Delphi中动态加载image控件图片的方法

Delphi winsock downloader

Delphi get_hd_serial() 获得磁盘驱动器序列号

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

转载请注明出处：木庄网络博客 » delphi 获取计算机名称 函数