Delphi 調用 WinAPI：SetComputerName 變更電腦名稱

一行 API 完成電腦重命名

SetComputerName 可程式化修改本機電腦的 NetBIOS 名稱。需注意：變更需重新開機才生效，且通常需要系統管理員權限。

函數宣告

function SetComputerName(lpComputerName: PChar): BOOL; stdcall;

使用範例

var
  s: string;
begin
  s := 'NewName';
  if SetComputerName(PAnsiChar(s)) then
    ShowMessage('已設定為：' + s)
  else
    ShowMessage('改名失敗，錯誤碼：' + IntToStr(GetLastError));
end;

注意事項

• 名稱長度上限為 15 個字元 (NetBIOS 限制)。
• 僅接受 ANSI 字元集，Unicode 版本為 SetComputerNameEx 搭配 ComputerNameNetBIOS。
• 成功後必須重新開機，GetComputerName 才會回傳新名稱。

適合在自動化部署腳本或系統管理工具中使用。