Eigener Dienst -> Speicherauslastung wächst und wächst...

[hoika]

Hallo,

Delphi-Quellcode:

function GetCurrUserName: string;
var
  Size              : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

das sieht nicht gut aus !

Delphi-Quellcode:

function GetCurrUserName: string;
var
  Size      : DWORD;
  sUserName : String;
begin
  Result:= '';

  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(sUserName, Size);
  if GetUserName(PChar(sUserName), Size) then Result:= sUserName;
end;

Heiko