Как добраться до папки юзера?

[pnz_punisher]

Я вот не знаю как вбить это в поиск. Мне нада, что бы по кнопке открывалась папка, это то я сделал, но вот та папка, что мне нужна, вне зоны досягаемости для меня.

Папка: Roaming
Она есть у каждого (ну или почти у каждого на Win)

Путь до неё лежит через C:\\
C:\Users\$user_name$\AppData\Roaming

Т.к. все пользователи в сестеме имеют свой ник, папка $user_name$ у всех называется по разному, у меня это: C:\Users\punisher\AppData\Roaming

А мне нада, что бы дельфи, как бы знала ник и ставила туда тот что нужен, что бы добраться до папки \AppData\Roaming\

Помогите, я не знаю как дельфи объяснить что я хочу от неё))

[veniside]

Дельфи тут не при чём, кури SHGetSpecialFolderPath().

[moscow]

%USERPROFILE% еще нигде не отменяли:

procedure TForm1.Button1Click(Sender: TObject);
var
I: Cardinal;
R: String;
h: hwnd;
begin
I := GetEnvironmentVariable('USERPROFILE ', nil, 0);
if I > 0 then
begin
SetLength(R, I - 1);
GetEnvironmentVariable('USERPROFILE ', PChar(R), I);
ShellExecute(Handle,'explore',PChar (R), nil, nil, SW_SHOWNORMAL);
end;
end;