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 删除目录下指定类型文件

Delphi 实现批量文件名修改

Delphi 设置系统静音取消系统静音

Delphi 如何从html格式的字符串中提取纯文本？

Delphi xe10 手机端错误提示：detected problems with api compatibility (visit g.co/dev/appcompat for more info

Delphi 模拟网站验证码

Delphi 从字符串提取字符串

Delphi edit右键系统菜单加自定义菜单项

Delphi 中压缩流和解压流的应用

Delphi用idhttp.get访问一个网址返回403错误，但用ie浏览器访问正常

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

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