Free Software, Source Code, and Best-Practice Documentation Index from your
Cleveland Software, Database, Web Design, Consulting, and SQL / Delphi Experts

//******************************************************************************
//Call the WindowsAPI function to get the name of the computer from which this 
//call was made.  
//This just wraps the API function in a way that returns standard String result.
//Note: you will need the "Windows" unit in your USES clause.
//******************************************************************************
function GetComputerNetName: string;
var
  NameBuffer: array[0..255] of char;
  NameString : String;
  size: dword;
begin
  Result := '';

  try
    size := 256;
    if GetComputerName(NameBuffer, size) then
    begin
      NameString := NameBuffer;
      Result := Trim(NameString);
    end;
  except
    // eat errors
  end;
end; //GetComputerNetName