[Neftali [Germán.Estévez]]

Empezado por Chupi

C:\documents and settings\cualquierusuario\...

Se puede hacer vía API;
Crea un form, coloca un Memo y un botón y en el OnClick del botón lo siguiente:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 Var
   SFolder :  pItemIDList;
   SpecialPath : Array[0..MAX_PATH] Of Char;
   i:Integer;
 const
   DIR: array[0..16] of Integer =
     (CSIDL_STARTUP, CSIDL_BITBUCKET, CSIDL_CONTROLS, CSIDL_DESKTOP,
      CSIDL_DESKTOPDIRECTORY ,CSIDL_DRIVES ,CSIDL_FONTS ,CSIDL_NETHOOD,
      CSIDL_NETWORK ,CSIDL_PERSONAL ,CSIDL_PRINTERS ,CSIDL_PROGRAMS,
      CSIDL_RECENT ,CSIDL_SENDTO ,CSIDL_STARTMENU ,CSIDL_STARTUP ,CSIDL_TEMPLATES);
 begin
 
   for i := 0 to 16 do begin
     SHGetSpecialFolderLocation(Form1.Handle, DIR[i], SFolder);
     SHGetPathFromIDList(SFolder, SpecialPath);
     Memo1.Lines.Add(SpecialPath);
   end;
 end;

Añade ShlObj al USES.