GORAGOD.com

Function Computername: String;
Var
   buf: Array [0..MAX_COMPUTERNAME_LENGTH] of Char;
   bufsize: DWORD;
Begin
   bufSize := Sizeof(buf);
   If GetComputername( buf, bufsize ) Then
     Result := buf
   Else
     Result := EmptyStr;
End;