создание файла в папке Мои Документы (Delphi)

[sonic007]

в общем задача - создание пустого текстового файла в папке "мои документы" текущего пользователя

проблема заключается в следующем
путь к папке
C:\Documents and Settings\Юзверь\Мои документы\

значение Юзверь на разных компах будет разное..
как сделать, чтобы программа выполнялась на любых компах ?
проблема 2
если задавать имя папки с пробелами, то программа отказывается работать.. говорит что Invalid path..

program FileCreate;
uses
  windows,
  sysutils

var
f:TextFile;
begin
AssignFile(f,'c:\documents and settings\ilya\My Documents\_srvlog.txt');
rewrite(f);
CloseFile(f);
end.

помогите пожалуйста

[Stilet]

Читаем тут внимательно:
http://programmersforum.ru/showthrea...FolderLocation
Для SHGetSpecialFolderLocation для "Моих доков" константа CSIDL_PERSONAL