//代码一
var
HostName:String;
Size:DWord;
begin
SetLength(HostName,64);
if not GetComputerName(PChar(HostName),Size) then
ShowMessage('Something error!');
HostName:=Copy(HostName,1,Pos(#0,HostName)-1);
//HostName是以#0结尾的,去掉#0以后的东东
ShowMessage(HostName);
end;
//代码二
var
CNameBuffer : PChar;
fl_loaded : Boolean;
CLen : ^DWord;
ComputerName:String;
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);
ShowMessage(ComputerName);
end;