随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
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  万一  阅读(...)  评论(...编辑  收藏