Путь к AppData

[-=L.Morgan=-]

В программе есть путь к файлу логов роботы программы
C:\Documents and Settings\Igor\Application Data\MyProject\log.txt
Где Igir - имя компютера (ну ето всем понятно)
Итак, в компа может быть другое имя. Как зделать путь универсальным (на што заменить "Igor") штоб файл открывался независимо от имени компютера?

[5naip]

насколько я понял, нужно все же имя ПОЛЬЗОВАТЕЛЯ.

var
  UserName : string;
  UserNameLen : Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    ShowMessage('C:\Documents and Settings\'+Copy(UserName,1,UserNameLen - 1)+'\Application Data\MyProject\log.txt')
  else
    ShowMessage('error');
end;

[-=L.Morgan=-]

Принцып понятен