[Hack M]

Надо узнать имя юзера, накопал такую ф-цию:

Код:

function GetUserFromWindows: string;
var
  UserName : string;
  UserNameLen : Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName,1,UserNameLen - 1)
  else
    Result := 'Unknown';
end;

Но мне надо как то это дело вставить в путь, например C:\Document and Setting\сюда имя юзера вставить надо\1.txt


подскажите плиз, было бы на php или cmd я бы уже сделал, а так только знакомлюсь с делфи