Как узнать расположение папки мои документы?

[apromix]

Здраствуйте! Может знает кто, как узнать расположение папки "Мои документы" для текущего пользователя? Скажем присвоить путь к папке переменной MyDocs (String)

[Pedro]

procedure TForm1.FormCreate(Sender: TObject);
const
  Folders: array [0..0] of integer = (
CSIDL_PERSONAL);
var
  s: PChar;
  p: PItemIDList;
  i: integer;
begin
  s := StrAlloc(128);
  for i := low(Folders) to high(Folders) do begin
    p := nil;
    SHGetSpecialFolderLocation(Form1.Handle, Folders[i], p);
    SHGetPathFromIDList(p, s);
    ListBox1.Items.Add(s);
  end;
end;

Сто пудов, здесь много лишнего, но все же...

[Air]

Ключ реестра
HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Explorer\S hell Folders
параметр "Personal"

[SERG1980]

s: array[0..255]of char;

SHGetSpecialFolderPath(0,PansiChar( @s),CSIDL_PERSONAL,false);

[mutabor]

http://www.programmersforum.ru/showthread.php?t=6689