GetComputerName / GetUserName

[Luckie]

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:

Delphi-Quellcode:

procedure TWinInfo.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)  // Size _ohne_ #0
  else
    FComputerName := '';
end;

procedure TWinInfo.GetUser;
const
  UNLEN = 256; // Maximum computer name length (LmCons.h)
var
  Size: DWORD;
begin
  Size := UNLEN + 1;
  SetLength(FUserName, Size);
  if GetUserName(PChar(FUserName), size) then
    SetLength(FUserName, Size-1) // Argh Size _mit_ #0
  else
    FUserName := '';
end;

Man beachte die Kommentare. Ich hatte erst GetCompName geschrieben und dann per Copy&Paste GetUser raus gemacht. Soweit kein Problem. Ich habe mich nur gewunder, warum nach dem Aufruf von GetUser nichts mehr ausgegeben wird. Beim Debuggen habe ich dann gesehen, dass GetCompName 'HAL9000' und GetUser 'Administrator'#0 liefert. Das dann natürlich die Ausgabe bei null terminierenden Strings zu ende ist, ist klar. :roll:

Und wenn man im PSDK nach liest, findet man auch folgendes:

Delphi-Quellcode:

BOOL GetComputerName(
  LPTSTR lpBuffer,
  LPDWORD lpnSize
);

Zitat:

lpnSize
[in, out] On input, specifies the size of the buffer, in TCHARs. On output, the number of TCHARs copied to the destination buffer, not including the terminating null character.
If the buffer is too small, the function fails and GetLastError returns ERROR_MORE_DATA. The lpnSize parameter specifies the size of the buffer required, not including the terminating null character.

Und:

Delphi-Quellcode:

BOOL GetUserName(
  LPTSTR lpBuffer,
  LPDWORD nSize
);

Zitat:

nSize
[in, out] On input, this variable specifies the size of the lpBuffer buffer, in TCHARs. On output, the variable receives the number of TCHARs copied to the buffer, including the terminating null character.
If lpBuffer is too small, the function fails and GetLastError returns ERROR_MORE_DATA. This parameter receives the required buffer size, including the terminating null character.

Kann mir mal jemand erklären, was der Schwachsinn soll? :shock:

So viel zur Konsistenz der WIN-API. :x

[Luckie]

Nach Rücksprache mit Assarbad hier jetzt die optimierte Version. Damit umgeht man auch das Problem, welches Microsoft gerade zu provoziert:

Delphi-Quellcode:

procedure TWinInfo.GetCompName;
var
  buffer : array[0..MAX_PATH] of Char;
  Size: DWORD;
begin
  Size := sizeof(buffer);
  GetComputerName(buffer, Size);
  SetString(FComputerName, buffer, lstrlen(buffer));
end;

GetUserName eben so.