Windows: как каницировать файл в специальной папке?

Question

Я хочу сохранить некоторые имена файлов для пользователя (например, последние файлы).

Давайте использовать шесть примеров файлов:

• c:\Documents & Settings\Ian\My Documents\Budget.xls
• c:\Documents & Settings\Ian\My Documents\My Pictures\Daughter's Winning Goal.jpg
• c:\Documents & Settings\Ian\Application Data\uTorrent
• c:\Documents & Settings\All Users\Application Data\Consonto\SpellcheckDictionary.dat
• c:\Develop\readme.txt
• c:\Program Files\Adobe\Reader\WhatsNew.txt

Теперь я сейчас к жесткому кодированию к специальным папкам. Если пользователь перенаправляет свои папки, бродит на другой компьютер или обновляет свою операционную систему, пути будут нарушены:

Я хочу быть хорошим разработчиком, и преобразуйте эти жесткие абсолютно Пути к относительный Пути от подходящего Специальные папки:

• %CSIDL_Personal%\Budget.xls
• %CSIDL_MyPictures%\Daughter's Winning Goal.jpg
• %CSIDL_AppData%\uTorrent
• %CSIDL_Common_AppData%\Consonto\SpellcheckDictionary.dat
• c:\Develop\readme.txt
• %CSIDL_Program_Files%\Adobe\Reader\WhatsNew.txt

Трудность поставляется с тем, что для одного и того же файла может быть несколько представлений, например:

• c:\Documents & Settings\Ian\My Documents\My Pictures\Daughter's Winning Goal.jpg
• %CSIDL_Profile%\My Documents\My Pictures\Daughter's Winning Goal.jpg
• %CSIDL_Personal%\My Pictures\Daughter's Winning Goal.jpg
• %CSIDL_MyPictures%\Daughter's Winning Goal.jpg

Обратите внимание, что в Windows XP Мои рисунки хранятся в My Documents:

%CSIDL_Profile%\My Documents
%CSIDL_Profile%\My Documents\My Pictures

Но на Vista / 7 они отдельно:

%CSIDL_Profile%\Documents
%CSIDL_Profile%\Pictures

Примечание: Я понимаю синтаксис %CSIDL_xxx%\filename.ext не действует; Эти окна не будут расширять эти ключевые слова, такие как они, являются окружающей средой. Я использую его только как способ задать этот вопрос. Внутренне я бы явно хранил предметы какой-то другой путь, возможно, как CSIDL родительи хвост пути, например:

 CSIDL_Personal         \Budget.xls
 CSIDL_MyPictures       \Daughter's Winning Goal.jpg
 CSIDL_AppData          \uTorrent
 CSIDL_Common_AppData   \Consonto\SpellcheckDictionary.dat
 -1                     c:\Develop\readme.txt   (-1, since 0 is a valid csidl)
 CSIDL_Program_Files    \Adobe\Reader\WhatsNew.txt

Вопрос становится, как можно использовать, как можно больше, пути относительно канонических специальных папок?

---

Я думаю:

void CanonicalizeSpecialPath(String path, ref CSLID cslid, ref String relativePath)
{
   return "todo";
}

Смотрите также

• MSDN: Перечисление CSIDL
• Новая старая вещь: Остерегайтесь в роуминге пользовательских профилей
• Новая старая вещь: Остерегайтесь перенаправленных папок тоже
• MSDN: Pathcanonicalize Функция

Answer 1

Я полагаю, вы можете узнать, как карта CSIDL к путям (используя что-то вроде Штутнаун Залбота), Создайте обратный словарь из них, затем проверьте, следует ли начало пути к хранению, соответствует любую из клавиш в словаре, а затем удалить начало и хранить CSIDL, который соответствует.

Не очень элегантно, но он должен проделать работу.

Answer 2

function CanonicalizeSpecialPath(const path: string): string;
var
    s: string;
    BestPrefix: string;
    BestCSIDL: Integer;
    i: Integer;
begin
    BestPrefix := ''; //Start with no csidl being the one
    BestCSIDL := 0;

    //Iterate over the csidls i know about today for Windows XP.    
    for i := Low(csidls) to High(csidls) do
    begin
       //Get the path of this csidl. If the OS doesn't understand it, it returns blank
       s := GetSpecialFolderPath(0, i, False);
       if s = '' then
          Continue;

       //Don't do a string search unless this candidate is larger than what we have
       if (BestPrefix='') or (Length(s) > Length(BestPrefix)) then
       begin
          //The special path must be at the start of our string
          if Pos(s, Path) = 1 then //1=start
          begin
             //This is the best csidl we have so far
             BestPrefix := s;
             BestCSIDL := i;
          end;
       end;
    end;

    //If we found nothing useful, then return the original string
    if BestPrefix = '' then
    begin
       Result := Path;
       Exit;
    end;

    {
       Return the canonicalized path as pseudo-environment string, e.g.:

           %CSIDL_PERSONAL%\4th quarter.xls
    }
    Result := '%'+CsidlToStr(BestCSIDL)+'%'+Copy(Path, Length(BestPrefix)+1, MaxInt);
end;

И тогда есть функция, которую «расширяет» Специальные ключевые слова среды:

function ExpandSpecialPath(const path: string): string;
begin
   ...
end;

который расширяется:

%CSIDL_PERSONAL%\4th quarter.xls

в

\\RoamingProfileServ\Users\ian\My Documents\4th quarter.xls

Это делает это, ища% xx% в начале строки и расширяя его.