Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 25. Apr 2003
  Nach Rücksprache mit Assarbad hier jetzt die optimierte Version. Damit umgeht man auch das Problem, welches Microsoft gerade zu provoziert:
  
  procedure TWinInfo.GetCompName;
  var
  buffer : array of Char;
  Size: DWORD;
  begin
  Size := sizeof(buffer);
  GetComputerName(buffer, Size);
  SetString(FComputerName, buffer, lstrlen(buffer));
• Forum: Win32/Win64 API (native code)

  GetComputerName / GetUserName

    Delphi
    by Luckie, 25. Apr 2003
  Microsoft ist doch immer wieder für eine Überraschung gut bzw. ich habe die Vermutung, sie wollen uns einfach nur ärgern. Folgendes habe ich in meiner SysInfo benutzt:
  
  
  procedure TWinInfo.GetCompName;
  const
  UNLEN = 256; // Maximum computer name length (LmCons.h)
  var
  Size: DWORD;
  begin
  Size := UNLEN + 1;