Rechnernamen feststellen

[d3g]

GetComputerName()

Ich hab zwar kein Windows, aber so sollte es gehen:

Delphi-Quellcode:

funtion GetNetBIOSComputerName(): String;
var
  buf: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
begin
  GetComputerName(@buf, MAX_COMPUTERNAME_LENGTH + 1)
  Result := buf;
end;