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 ado 连接mssql数据库

Delphi with do和for do语句

Delphi 数据库处理密码防止sql注入

Delphi toolbar按钮添加图标

Delphi中怎么取出字符串中单个char

Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面

Delphi正则表达式匹配中文

Delphi 替换指定字符串的函数

Delphi 日期时间函数

Delphi md5单元文件

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

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