Den Computernamen ermitteln

[Cuchulainn]

Diese Funktion ermittelt den Computernamen und gibt ihn zurück.

Delphi-Quellcode:

function FComputername: String;
var 
  CompName: Array [0 .. 256] of char;
  size: DWORD;
begin
  size := 256;
  GetComputerName(Compname, size);
  Result := CompName;
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]

[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

[Luckie]

Erstens sollte man für die länge des Buffers die Konstante MAX_COMPUTERNAME_LENGTH + 1 nehmen und zweitens wäre es wohl sinnvoll, dass Array auf die wirkliche Länge des Computernamens abzuschneiden.

Bei mir würde das so aussehen:

Delphi-Quellcode:

function ComputerName: String;
var
  Size: DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetComputerName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

[Alexander]

und wenn man das mit .NET machen will, schaut man sich die Environment.MachineName-Eigenschaft an...