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在设计时设置tstringgrid控件各列的列宽

Delphi中 tstringlist和thashedstringlist的性能对比

Delphi实现二分查找

Delphi xe2读取内存偏移数据代码

webbrowser自动填表模板

Delphi checklistbox 用法

Delphi 输出用空格对齐字符串的函数

Delphi的combobox不能输入只能选择

Delphi提取任意长度随机数

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

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