pcname auslesen wo leiget der fehler?

[gandime]

hi,
ich hab mir mal eine procedure geschreiben womit man den pcnamen auslesen kann

Delphi-Quellcode:

procedure get_pcname;
var
  pc_name2: array[0..256] of char;
  l: cardinal;
begin
  GetComputerName(@pc_name2[0],l);
  pcname:=pc_name2;
end;

blos mein problem dabei is dass manchmal nicht das richtige dabei hinaus kommt wie z.b. "FºÑw
:"
wie kann ich das verhindern oder wie bekomme ich immer den korrekten pcnamen?

[Luckie]

Delphi-Quellcode:

function GetCompName: string;
var
  Buf               : array[0..MAX_COMPUTERNAME_LENGTH] of Char;
  Size              : DWORD;
begin
  Size := SizeOf(Buf);
  if GetComputerName(Buf, Size) then
    Result := Buf
  else
    Result := '';
end;

Warum Prozedur? Du willst doch was zurückbekommen.

[Bernhard Geyer]

Muß alle 2 Wochen GetComputerName mit einer eigenen Wrapperfunktion ausgestattet werden.
Bitte mal die Suche verwenden.

Und wenn du bei GetComputerName als 2 Parameter eine 1 angiebst bedeutet das für die Aufgerufene Funktion das der Buffer nur 1 Zeichen lang ist.

[Klaus01]

und noch eine etwas andere Variation:

Delphi-Quellcode:

function GetRechnerName: string;
var
  len: DWORD;
begin
  len := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(result, len);
  if not Windows.GetComputerName(PChar(result), len) then
    RaiseLastWin32Error;
  SetLength(result, len);
end; //function

Grüße
Klaus

[Andidreas]

wenn du die jedis hast, dann kannst du auch einfach die komponente JvComputerInfoEx verwenden...
diese liefert dir alle möglichen pc informationene unter anderem auch den namen :zwinker:

[gandime]

jo thx jetzt geht´s endlich richtig