请问怎么改动本机名?(20分)

  • 主题发起人 主题发起人 taizi
  • 开始时间 开始时间
T

taizi

Unregistered / Unconfirmed
GUEST, unregistred user!
例如,我的机器名是h,现在改为l,请问怎么实现,用socket API函数实现,<br>请给出例子,谢谢!
 
//取名<br>var<br>&nbsp; s:Array[1..127] of Char;<br>&nbsp; i:DWord;<br>begin<br>&nbsp; GetComputerName(@s,i);<br>&nbsp; Edit5.Text:=s;<br>end;<br>//改名<br>&nbsp; if SetComputerName(Pchar(Edit2.Text)) then<br>&nbsp; &nbsp; ShowMessage('改名成功')<br>&nbsp; else<br>&nbsp; &nbsp; ShowMessage('改名失败') &nbsp;
 
接受答案了.
 
后退
顶部