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

markieren

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?

zusammenfalten · markieren

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.

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.

und noch eine etwas andere Variation:

markieren

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

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

jo thx jetzt geht´s endlich richtig