Rechnernamen feststellen

[gkaeberich]

Hallo,

wie kann ich den Netbios-Namen des Rechners, auf dem mein Programm laufen soll, möglichst einfach feststellen ?

Danke

Günther

[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;

[gkaeberich]

Danke,

es klappt so in etwas abgewandelter Form

Günther