pcname auslesen wo leiget der fehler?

[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