Узнаём стандартные папки Windows

uses
 Registry; 

procedure
 TForm1.Button1Click(Sender: TObject); 
var
 
  reg : TRegistry; 
  ts : TStrings; 
  i : integer; 
begin
 
  reg := TRegistry.Create; 
  reg.RootKey := HKEY_CURRENT_USER; 
  reg.LazyWrite := false
; 
  reg.OpenKey( 
   'SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders', 
              false
); 
    ts := TStringList.Create; 
    reg.GetValueNames(ts); 
    for
 i := 0 to
 ts.Count -1 do
 begin
 
      Memo1.Lines.Add(ts.Strings[i] + 
                      ' = ' + 
                      reg.ReadString(ts.Strings[i])); 
    end
; 
    ts.Free; 
  reg.CloseKey; 
  reg.free; 
end
;

Другое по теме:

• Удаление каталога со всем содержимым
• Копирование файлов вместе с каталогами
• Определение размера каталога