Home » Tipps & Tricks » Netzwerk/Internet » Netzwerkeigenschaften » Computernamen des eigenen Rechners ermitteln

Computernamen des eigenen Rechners ermitteln

Im Netzwerk hat jeder Computer einen bestimmten Namen, den man auch in der Netzwerkumgebung sehen kann. Diese Funktion gibt den Computernamen des eigenen Rechners zurück:

function GetComputerName: String;
var
  Len: DWORD;
begin
  Len:=MAX_COMPUTERNAME_LENGTH+1;
  SetLength(Result,Len);
  if Windows.GetComputerName(PChar(Result), Len) then
    SetLength(Result,Len)
  else
    RaiseLastOSError;
end;

Die Konstante MAX_COMPUTERNAME_LENGTH steht für die maximale Länge des Computernamen.RaiseLastOSError ist erst ab Delphi 6 verfügbar. Programmierer, die mit älteren Versionen arbeiten müssen an dieser Stelle RaiseLastWin32Error verwenden.