Rechnername rausbekommen.

[smart]

Wie bekommt ich den eigenen Rechnernamen heraus?

Gruß
Heike

[toms]

Hallo

Mit der GetComputerName-Funktion. (ist irgendwie logisch...)

[smart]

Klappt nicht ganz. Hat Einer eine Idee?

Delphi-Quellcode:

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

[Dax]

Hm, geht das?

Delphi-Quellcode:

Function GetNetBIOSComputerName(): String;
begin
  SetLength(Result, MAX_COMPUTERNAME_LENGTH + 1);
  GetComputerName(@Result[1], Length(Result));
end;

[Rastaman]

Nein

Delphi-Quellcode:

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

Der zweite Parameter ist ein VAR Parameter, heisst, dass hier auch was zurückgegeben werden kann, und in Length(Result)
kann man nun mal keinen Wert speichern

[smart]

Hallo!

Vielen Dank an Euch Allen. Ich habe es hin bekommen.

Danke nochmal.
Heike

[Matze]

Hi

Anconsten einfach googlen. Im SDC steht dazu beispielsweise das hier.

Nachtrag: Ich vermisse den süßen Kasten ...

[Dax]

Oh, das wusst ich nicht

[toms]

oder in der DP suchen...
http://www.delphipraxis.net/internal...ct.php?t=16741