SysInfo

[sakura]

Aus

Delphi-Quellcode:

procedure TSysInfo.GetCompName;
const
  UNLEN = 256; // Maximum computer name length (LmCons.h)
var
  Size: DWORD;
begin
  Size := UNLEN + 1;
  SetLength(FComputerName, Size);
  if GetComputerName(PChar(FComputerName), Size) then
    SetLength(FComputerName, Size - 1)
  else
    FComputerName := '';
end;

wird

Delphi-Quellcode:

procedure TSysInfo.GetCompName;
const
  UNLEN = 256; // Maximum computer name length (LmCons.h)
var
  Size: DWORD;
begin
  Size := UNLEN + 1;
  SetLength(FComputerName, Size);
  if GetComputerName(PChar(FComputerName), Size) then
    SetLength(FComputerName, Size)
  else
    FComputerName := '';
end;

in Datei TSysInfo.inc und dann stimmt auch der Computername

......