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.