如何获知机器名称(就是computer name)

[fangheling]

如何获知机器名称(就是computer name)

[fangheling]

结,谢了

[lyneville]

tracert ip;

[38]

GetComputerName

[mengbo]

开始－》运行 －》winipcfg!

[pandaxj]

也可以读注册表嘛·

[pdsinfo]

var
CNameBuffer : PChar; fl_loaded : Boolean; CLen : ^DWord;
begin
GetMem(CNameBuffer,255); New(CLen); CLen^:= 255;
fl_loaded := GetComputerName(CNameBuffer,CLen^);
if fl_loaded then ComputerName := StrPas(CNameBuffer)
else ComputerName := 'Unkown';
FreeMem(CNameBuffer,255);
Dispose(CLen);
end