以下是代码片段：

procedure TForm1.Button1Click(Sender: TObject);
var
  computername: Pchar;
  len: Dword;
begin
  len:= 30;
  GetMem(computername,30);
  GetComputername(computername,len);
  edit1.Text := computername;
end;

以下是代码片段：

procedure TForm1.Button2Click(Sender: TObject);
var
  computername: Pchar;
begin
  computername:= pchar(edit2.Text) ;
  SetComputername(computername);
  Application.MessageBox('设置已经更改请重新启动计算机使之生效.','提示',mb_OK);
end;