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.