//声明:
SetComputerName(
  lpComputerName: PChar {新名称串指针}
): BOOL;				

//举例: var s: string; begin s := 'NewName'; if SetComputerName(PChar(s)) then ShowMessage(s) else ShowMessage('改名失败'); end; {改名成功后, 重新启动计算机后才有效}
posted on 2008-02-07 13:41  万一  阅读(3494)  评论(0编辑  收藏  举报