Как получить имя текущего пользователя в windows?

[betirsolt]

все привет.пытаюсь получить имя пользователя,мне нужно составить путь программно C:\Documents and Settings\ и дальше идет имя юзера а так как у всех разное то я хотел как то получить это имя и присвоить переменной а потом путь записать примерно так: 'C:\Documents and Settings\'+user+'\AppData\Roaming' ... нашел тут на форуме функцию

 function GetCurrentUserName: string;
 const
   cnMaxUserNameLen = 254;
 var
   sUserName: string;
   dwUserNameLen: DWORD;
 begin
   dwUserNameLen := cnMaxUserNameLen - 1;
   SetLength(sUserName, cnMaxUserNameLen);
   GetUserName(PChar(sUserName), dwUserNameLen);
   SetLength(sUserName, dwUserNameLen);
   Result := sUserName;
 end;

потом использую ее вот так

procedure TForm1.FormCreate(Sender: TObject);
begin
 user:=GetCurrentUserName;
end;

но прога выдает ошибку не удалось открыть файл.нет доступа C:\Documents and Settings\betirsolt

а в переменной user в результате выполнения функции GetCurrentUserName оказывается 'betirsolt'#0
почему #0??по моему из за этого и возникает ошибка....также я пытался из реестра получить но все не получается.вобщем помогите разобраться.буду очень благодарен и всем поставлю +)))

[betirsolt]

а когда я переменной user присваиваю betirsolt

user:='betirsolt'

то все работает отлично,но может этот путь можно получить гораздо легче?

извините,разобрался.вот функция

 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 := 'admin';
End;

но тему думаю можно оставить как пример....а то тут я не нашел нормальных примеров

[veniside]

> тему думаю можно оставить как пример

как пример решения простой задачи через задницу. SHGetSpecialFolderPath() для кого ввели?