Как узнать имя юзера

[Betty]

Здравствуйте. Помогите мне пожалуйста.
c:\Users\Имя пользователя\AppData\
Как узнать «Имя пользователя» чтобы перейти по ссылке.
Проблема в том что на всех компьютерах имена разные

[raxp]

в delphi есть возможность получить пути к спецпапкам (поиск по форуму)...

const CSIDL_APPDATA = $001a;

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := GetSpecialPath(CSIDL_APPDATA);
  result := PChar(s);
end;

собственно, загляните в модуль- ShlObj.

[Kotofff]

К примеру, есть такая функция получения пути к системным папкам :

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

Ее аргумент - в прилагаемом файле или тут : http://www.delphilab.ru/content/view/160/85/
Тебя интересует аргумент : CSIDL_APPDATA эквивалент которому число $001a.

raxp, я не специально. Прости !

[Betty]

извиняюсь за тупость.
а как её вызвать, а то s=''

[Kotofff]

Пропиши ее в секции implementation главного модуля своей программы и просто используй ...

uses ShlObj; // Должно присутствовать обязательно!!!
......

......

var
  Form1: TForm1;

implementation
{$R *.dfm}

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

.....

.....

И где-нибудь далее в модуле :

s := GetSpecialPath(26);

// 26 = $001a и равно CSIDL_APPDATA - той самой константе которая описана в ShlObj.pas (как сказал raxp )