Was passiert hier?

[Luckie]

Ich würde es aber besser so machen:

Delphi-Quellcode:

function ComputerName: string;
var
  Size : DWORD;
begin
  result := '';
  Size := MAX_COMPUTERNAME_LENGTH;
  SetLength(result, Size);
  if GetComputerName(PChar(result), Size) then
    SetLength(result, Size-1)
  else
    result := '';
end;