Windows.GetUserName...

Function GetCurrentUserName : String;
var
  Size : Cardinal;
begin
Size := MAX_PATH;
SetLength(Result, Size);
Windows.GetUserName(PChar(Result),Size);
SetLength(Result, Pred(Pos(#0,Result)));
end;

Problem ->
Hvis man ikke er logget ind som noget (annulleret ved login) returnerer den noget meget uaktuelt tekst, den burde returnere ''!

Bruger D4 standard under Win98 (ikke SE).