Aquí puedes ver los diferentes valoes para el parámetro Folder.
http://www.installmate.com/support/i...ons/csidls.htm
En principio deberás concatenar con CSIDL_PROFILE
Código Delphi
[-]
var
ruta : string;
[...]
ruta := (GetSpecialFolderPath(40 , 0);
ruta := IncludeTrailingPathDelimiter(ruta);
ruta := ruta + + 'Dropbox\FotoVehiculos';
if DirectoryExists(ruta) then
begin
FileListBox1.Directory := ruta;
[...]
end
else
begin
ShowMessage('No encuentro la ruta ' + ruta);
end;