修改计算机的名称.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 20 行

修改计算机的名称
在'得到计算机名称'按钮上的单击事件:
var
computename:Pchar;
size:dword;
begin
//分配缓冲区
getmem(computername,255);
size:=255;
//获取计算机的名称
if getcomputername(computename,size)=false then
begin
  messagebox(handle,'获取计算机名称失败!','错误',MB_OK+MBICONEROR);
  freemem(computername);
  exit;
end;
edit1.text:=computername;
//释放缓冲区
freemem(computername);
end;