Den Computernamen ermitteln

[negaH]

Delphi-Quellcode:

function ComputerName: String;
var
  Size: DWord;
begin
  Size := MAX_PATH;
  SetLength(Result, Size);
  if not GetComputerName(PChar(Result), Size) then Size := 0;
  SetLength(Result, Size);
end;

Schont den Stack. Gruß Hagen